プチコン 非公式コミュニティ
プレイ日記
あまさとしおん
◆mzDKTVUAtwqE
2018/12/23 16:04
2018/12/23 16:04
便利ツールができたので上げます
「ファイル検索（全プロジェクト）」
ソースコードは返信に。
「ファイル検索（全プロジェクト）」
ソースコードは返信に。
コメント
あまさとしおん
2018/12/23 16:07
◆mzDKTVUAtwqE
ソース
OPTION STRICT
OPTION DEFINT
DIM PROJ$[0],FILE$[0]
VAR Q$,I,J
ACLS
FILES "//",PROJ$
Q$=DIALOG("","")
FOR I=0 TO LEN(PROJ$)-1
FILE$=NEW_ARRAY()
FILES PROJ$[I],FILE$
FOR J=0 TO LEN(FILE$)-1
IF INSTR(FILE$[J],Q$)+1 THEN
?PROJ$[I]+FILE$[J]
ENDIF
NEXT
NEXT
DEF NEW_ARRAY()
DIM ARRAY$[0]
RETURN ARRAY$
END
※行頭の半角スペースが消えるので全角で書いてますが半角でお願いします。
OPTION STRICTとVARの行は省略可能
OPTION STRICT
OPTION DEFINT
DIM PROJ$[0],FILE$[0]
VAR Q$,I,J
ACLS
FILES "//",PROJ$
Q$=DIALOG("","")
FOR I=0 TO LEN(PROJ$)-1
FILE$=NEW_ARRAY()
FILES PROJ$[I],FILE$
FOR J=0 TO LEN(FILE$)-1
IF INSTR(FILE$[J],Q$)+1 THEN
?PROJ$[I]+FILE$[J]
ENDIF
NEXT
NEXT
DEF NEW_ARRAY()
DIM ARRAY$[0]
RETURN ARRAY$
END
※行頭の半角スペースが消えるので全角で書いてますが半角でお願いします。
OPTION STRICTとVARの行は省略可能
あまさとしおん
2018/12/23 16:08
◆mzDKTVUAtwqE
現状は「文字列を含む」しか対応していませんがそのうち高機能版を作るかも？
こういち
2018/12/23 16:39
◆ou0jbJnEJ0Kb
なるほど。
これは
CHKFILE()じゃ出来ないFILES特有の使い方。
ついでににぶたんでも出来ない。
状況によってはしんいちさんのFINDコマンドより便利かも。
これは
CHKFILE()じゃ出来ないFILES特有の使い方。
ついでににぶたんでも出来ない。
状況によってはしんいちさんのFINDコマンドより便利かも。
あまさとしおん
2018/12/23 17:15
◆mzDKTVUAtwqE
必要があったのでDAT VIEWERも改良…
まとめて公開キーを出す予定です
まとめて公開キーを出す予定です
あまさとしおん
2018/12/23 17:16
◆mzDKTVUAtwqE
ちなみにDAT VIEWERは「配列の中間要素を削除する」機能を実装しました。
（VIEWERなのに編集とは）
（VIEWERなのに編集とは）
コメントを書く
この投稿にはコメントできません。
- WEB PATIO -