JP1/Script(Windows(R)用)
TextSeek ( FileId 〔, Point〕 )
値 | 意味 |
---|---|
ToBegin | ファイルの先頭に移動します。 |
ToEnd | ファイルの最後に移動します。 |
' 実行フォルダ下のテキストファイル"Loging.txt"の ' 最後に"** END OF FILE **"と書き込む。 Dim file1 file1 = TextOpen ( _BIN_+"Loging.txt" ,ReadWrite ) If file1 = 0 Then MessageBox ( _BIN_+"Loging.txtのオープンに失敗" ,OK ) Else If TextSeek ( file1 ,ToEnd ) Then TextWrite ( file1 ,"** END OF FILE **" ,False ) End TextClose ( file1 ) End
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.