FAQ
FAMOS
シーケンス / 関数top
└ファイル関係
ID.s028
Q. インポートフィルターを使ったファイルの読み込み方法
A.
インポートフィルターファイルを使ってファイルを読み込むサンプルを示します。
;ダイアログを使ってファイルを選択します
_filename=DlgFileName
("c:\", "wav","WAVファイルを選択してください",0)
If TLeng(_filename)>0
;ファイルIDの取得
;ファイルへはこのIDを使ってアクセスします。
_fid = FileOpenFAS( _filename, "OROS_WAV.FAS", 0)
;ファイル内の全てのデータを取得します。
_max = FileObjNum?(_fid)
_i=1
While _i<=_max
_chname = FileObjName?(_fid, _i)
<_chname> = FileObjRead(_fid, _i)
Show <_chname>
_i=_i+1
End
_err = FileClose(_fid)
End
Delete _*