Dim FSO As System.IO.StreamReader
Dim Read_Txt As String
FSO = My.Computer.FileSystem.OpenTextFileReader(FleName, Encoding.Default)
Do While FSO.Peek() >= 0
Read_Txt = FSO.ReadLine()
Loop
FSO.Close()
PS:
请注意打开方法...
如果没有 Encoding.Default 就无法读取中文....
http://hi.baidu.com/hetaoos/blog/item/f28a7ff02acc78afa50f5203.html
Dim Read_Txt As String
FSO = My.Computer.FileSystem.OpenTextFileReader(FleName, Encoding.Default)
Do While FSO.Peek() >= 0
Read_Txt = FSO.ReadLine()
Loop
FSO.Close()
PS:
请注意打开方法...
如果没有 Encoding.Default 就无法读取中文....
http://hi.baidu.com/hetaoos/blog/item/f28a7ff02acc78afa50f5203.html
浙公网安备 33010602011771号