1、導入Text類

Imports System.Text

如果我们要使用其他包的类,需要使用import导入,从而可以在本类中直接通过类名来调用,否则就需要书写类的完整包名和类名

2、讀取Text的內容

首先定義字符串數組

  Dim filename As String  
  Dim read As String
  Dim result() As String

然後讀取Text內容，讀取的結果為Text中的每一行，每行的數據作為字符串數組中的元素。

 Dim fsr As FileStream = File.Open(filename, FileMode.Open)
 Dim mybyte(fsr.Length) As Byte
     With fsr
       .Read(mybyte, 0, fsr.Length)
       read = Encoding.Default.GetString(mybyte)
       .Close()
     End With
 result = read.Split(New Char() {ControlChars.Lf,ControlChars.Cr},StringSplitOptions.RemoveEmptyEntries)

此處的result作為Text的數據讀取結果，後續的讀取和操作可以依據數組的元素個數做循環，得到想要的結果 。