Module テキスト保存
Public Function 書き込み(ByVal 内容 As String)
'書き込みファイルがすでにあるときは、第2引数にTrue
'
Dim sw As New System.IO.StreamWriter("C:\test.txt", _
True, _
System.Text.Encoding.GetEncoding("shift_jis"))
'内容を書き込む
sw.Write(内容)
'内容を書き込んだ後に改行を入れる
sw.Write(vbCrLf)
'閉じる
sw.Close()
End Function
End Module
内容を書き込んだ後に、sw.Write(VbCrLf)を入れていますが、通常テキストファイルには改行コードというものが入っています。この改行コードというものは、Windows、Mac、LinuxのそれぞれのOSで決まっていて、WindowsはCRLFという改行コードを利用しています。
私も、初めてテキストファイルをプログラムで書こうと思った時にテキストの改行も文字として認識されているということを知りました。
このプログラムを使うと、Cドライブのなかにtext.txtというファイルが作成されます。