FAQ
FAMOS
FAMOS全般top
└ファイル
ID.g066
Q. 一度に違う形式のデ―タを読み込みたい
A.
メニュー"ファイル/開く"を選択して表示された標準のFAMOSダイアログでは、同じ種類のファイルは複数読み込めますが、異なる種類のファイルは読み込めません。
代替案
シーケンスを使用すれば、実現可能です。
以下にサンプルを示します。
;****************************************************************
; 拡張子が異なるファイルを開く方法
;
; FAMOSの標準的な方法（ファイル/開く）では同じファイルの種類しか
; 開くことができません。
; シーケンスを用いて対応します。
;****************************************************************
;; ファイルキットを使うと便利です。
;; ダイアログで複数のファイルを選択してください
fid = FsDlgSelectFiles("ファイル選択","c:\temp","*.uff;*.lst",0)
fmax = FsFileListGetCount(fid)
i=1
While i<=fmax
filename = FsFileListGetName(fid,i)
fileext = FsSplitPath(filename,3)
If TComp(fileext,"uff")=0
id = FileOpenFAS(filename,"UFFインポートファイル",0)
End
If TComp(fileext,"lst")=0
id = FileOpenFAS(filename,"LSTインポートファイル",0)
End
;共通の処理
cnt = FileObjNum?(id)
n=1
While n<=cnt
varname = FileObjName?(id,n)
<varname> = FileObjRead(id,n) n=n+1
End
FileClose(id) i=i+1
End
FsFileListClose(fid)