JP1/Script(Windows(R)用)
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
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.