Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim objFile As New System.IO.StreamReader("d:\xxx.txt")
Dim strLine As String
Dim strTemp() As String
Dim intCnt As Integer
Dim strData As String
strLine = objFile.ReadLine()
While (strLine <> "")
strTemp = Split(strLine, " ")
For intCnt = 0 To UBound(strTemp)
strData = strData + CStr(intCnt)
strData = strData + strTemp(intCnt)
Next
strData = strData
strLine = objFile.ReadLine()
End While
TextBox1.Text = strData
objFile.Close()
End Sub
StreamReaderで読み込むときに対象ファイルの文字コードを設定しないと、
デフォルトのUTF8として処理されます。
ですので、対象ファイルがShift-JISの場合は下記のように文字コードを指定してください
Dim objFile As New System.IO.StreamReader("d:\xxx.txt", System.Text.Encoding.GetEncoding(932))
それ以外の文字コードの場合は各文字コードを指定してください。
下記が参考になると思います。
DOBON.NET 文字コードを指定してテキストファイルを読み込む
コメント(0件)