TextWrite ( FileId , Data , 〔NewLine〕 〔, Position〕 )
' スクリプトファイル
Dim file1
file1 = TextOpen ( _BIN_+"Readme.txt" ,Create )
If file1 = 0 Then
MessageBox ( _BIN_+"Readme.txtのオープンに失敗" ,OK )
Else
TextWrite ( file1 ,"JP1/Scriptについての追加情報" )
TextWrite ( file1 ," 目次" ,False )
TextClose ( file1)
End
; Readme.txt
JP1/Scriptについての追加情報
目次