テキストファイル操作

COBOL

VB.NET
Module Module1
    Sub Main()
        WD()    'テキストファイル書き込み
        RD()    'テキストファイル読み込み
    End Sub
    Private Sub WD()
        Dim F As New System.IO.StreamWriter("C:\コボラー的VB.NET.txt")
        For i As Integer = 1 To 10
            F.WriteLine(Format(i, "###:" & "コボラー的VB.NET VB.NET2005"))
        Next
        F.Close()
    End Sub
    Private Sub RD()
        Dim F As New System.IO.StreamReader("C:\コボラー的VB.NET.txt")
        Dim R As String
        Do Until F.EndOfStream
            R = F.ReadLine
            Console.WriteLine(R)
        Loop
        F.Close()
    End Sub
End Module

文字コードを指定するにはファイル名の後に指定します。指定が無いとUTF-8で処理されます。
読込み
        Dim F As New System.IO.StreamReader("C:\コボラー的VB.NET.txt", System.Text.Encoding.Default)
書き込み
        Dim F As New System.IO.StreamReader("C:\コボラー的VB.NET.txt", False, System.Text.Encoding.Default)

Default部分はOSの規定値で以下のような指定ができます。
ASCII
BigEndianUnicode
Unicode
UTF32
UTF7
UTF8

System.Text.Encoding.Defaultの代わりに以下のような書き方もできます。
        Dim F As New System.IO.StreamReader("C:\コボラー的VB.NET.txt", System.Text.Encoding.GetEncoding("Shift_JIS"))
またはコードページを指定する。
        Dim F As New System.IO.StreamReader("C:\コボラー的VB.NET.txt", System.Text.Encoding.GetEncoding(932))

お役に立てましたか？
ＩＴ、プログラミングのランキングサイトはこちらです。

最新記事の自動受信登録はこちらです。