Petitverse

(Moonbrowserでは)ないです

どのようなことをするのか分割していくと、個々の命令に当てはめていけるので、具体化して分割していきましょう(というわたしがいつも言っているやり方)

「指定した拡張子のファイルのみを読み込んだりいろいろする方法」を分割すると、「指定した拡張子のファイル一覧を取得する」「ファイル一覧を使って、読み込んだり、その他いろいろする」といったところでしょうか。

今回はFILES命令(ヘルプの2番目の内容)と配列処理、文字列処理が大いに役立ちそうです。ヘルプに載っているサンプルコードとかも試してみてくださいな。

FILES命令では、全部ごっちゃにしたファイル一覧を取得することしかできないので、ファイル一覧を取得したのちに指定した拡張子のファイル名だけを残しておく必要がありそうです。拡張子の長さが決まっているならばRIGHT$命令を使えばうまくいきそうですね。(例：.TXTファイルの場合 RIGHT$(NAMETBL$[I],4)==".TXT"とか)

さらにもう一点付け加えると、FILES命令で取得したファイル名一覧の先頭に、テキスト系ファイルなら「＊」バイナリ・データ系ファイルなら「　」が入ってしまっているので、これを削り落とす必要があります。これもRIGHT$命令でやってもいいですし、MID$命令を使うこともできます。

そうして得られた純粋な「指定した拡張子のファイル名」を、そのための配列に上手に入れていけば完成です。配列の長さを予想することができない時は、DIM(またはVAR)命令で最初の長さを0にしておいて、PUSH命令でデータを足していくとうまくいきます。

あ、拡張子の判別は、「.」を含むようにするとエラーを未然に防げます
例えば、「.TXT」を判別しようとしているとき、同じプロジェクトに無拡張子のファイルで「TALKTXT」みたいな(中身もフォーマットと違う)ファイルが存在していたときにハネることができます

公開中の作品にEXFILES命令というDEFがあるんだけど、複数のDEFが組み合わさってるので使いにくいな…

アルバム見てたらちょうどいい感じにまとめてあったので参考にどうぞ。

EXFILESは高機能なので拡張子以外の方法も使えます
例：EXで始まる名前のファイルを探す、とか

高機能な分だけプログラムが長いので、拡張子絞り込みだけで十分な場合は、画像よりもかなり短いプログラムにできます。

EXFILES(ファイル種別,キーワード,検索方法)
ファイル種別＝ TXT:　または　DAT:
検索方法＝　ゼロなら「含まれる」　マイナスなら「先頭が一致」　プラスなら「末尾が一致」

拡張子絞り込みは「末尾が一致」です。

ファイル名の先頭につく「＊」「　」を消す機能は付いていないのでご注意い。