Small Basic でファイル出力

Small Basic

シンプル版

'ファイル出力のサンプル1
For i = 1 To 10000
  File.AppendContents("C:\sample.txt", i) 
EndFor
コード説明
  1. 1〜10000を1行毎に出力

ファイル読込んでHTML形式で出力

'ファイル出力のサンプル2

'1行ずつ読込み配列に格納
i = 1
loop:
  lines[i] = File.ReadLine("C:\sample.txt", i)
  If (lines[i] = "") Then
    Goto next
  EndIf
  i = i + 1
Goto loop
next:

'書き出し
For i = 1 To array.GetItemCount(lines)
  File.WriteLine("C:\sample.html", i, lines[i])
EndFor
toHtml()

'HTMLタグを追記するサブルーチン
Sub toHtml
  File.InsertLine("C;\sample.html", 1, "<html><body>")
  File.AppendContents("C:\sample.html", "</body></html>")
EndSub
コード説明
  1. loopはGoto構文のためのラベル。好きな名前にして良い
  2. ファイル末尾の判定は(lines[i] = "")でやる
  3. WriteLineは書き込む行番号を引数にいれなきゃいけなくて使いにくい
  4. Small Basicのサブルーチン（関数）は引数も戻り値もない

上と同じ処理を簡潔に書き直した

'ファイル出力のサンプル3
contents = File.ReadContents("D:\Lab\SmallBasic\sample.txt")
File.WriteContents("C:\sample.html", contents)
toHtml()

'HTMLタグを追記するサブルーチン
Sub toHtml
  File.InsertLine("C:\sample.html", 1, "<html><body>")
  File.AppendContents("C:\sample.html", "</body></html>")
EndSub

コード説明

  1. ReadContents関数はテキスト全体の読込み
  2. WriteContents関数はテキスト全体の書込み