nineaddnine的部落格

一次讀取

Dim szAllFileData As String<br />
Dim arr() As String<br />
szAllFileData = My.Computer.FileSystem.ReadAllText("a.txt")<br />
arr = szAllFileData.Split(",".ToCharArray())<br />
Dim i As Object<br />
For Each i In arr<br />
    RichTextBox1.Text += i + " "<br />
Next i

 

 

如果是分行讀取.. 那就改用SteamReader的方式讀

Dim fs As New FileStream(檔案路徑, FileMode.Open, FileAccess.Read)<br />
Dim sr As New StreamReader(檔案路徑, System.Text.Encoding.GetEncoding("BIG5"))<br />
Dim strLine As String<br />
   Do<br />
        strLine = sr.ReadLine<br />
        txtContent.Text = txtContent.Text + strLine<br />
   Loop Until strLine Is Nothing