GetTextPosition ( FileId )
' 実行フォルダ下のテキストファイル"Loging.txt"内の文字列
' "開始"を"スクリプト実行開始"に書き換える。
Dim file1
file1 = TextOpen ( _BIN_+"Loging.txt" ,ReadWrite )
If file1 = 0 Then
MessageBox ( _BIN_+"Loging.txtのオープンに失敗" ,OK )
Else
Dim line ,position ,buff
For line = 1 To 10
' 読み書き開始位置を取得する
position = GetTextPosition ( file1 )
If TextRead ( file1 ,buff ) Then
If buff = "開始" Then
' 取得した読み書き開始位置に上書きする
TextWrite ( file1 ,"スクリプト実行開始" ,True ,position )
End
Else
Exit For
End
Next
TextClose ( file1 )
End