FAQ
FAMOS
シーケンス / 関数top
└ファイル関係
ID.
Q. ファイルパスを分解したい。
A.
TxSplit()関数を使用して下さい。FAMOS 7.2以降が必要です。
Ver. 7.1まではシーケンスで切り出して下さい。
例)
; Ver. 7.1まで
_path = "C:¥imc¥DatSINTEST1.DAT"
_delimiter = "¥"
_temp = _path
GrPath = GrNew()
GrPath:Path = _path
for _iii = 1 to 100 step 1
_name = "_" + TForm( _iii, "" )
_pos = TxWhere(_temp, _delimiter)
if 0 _pos
_leng = TLeng(_temp)
_part = TPart(_temp, 1, _pos-1)
_temp = TPart(_temp, _pos+1, _leng)
GrPath: = _part
else
GrPath: = _temp
break
end
end