Re: [.NET] 如何讀取多個文字檔呢?

看板Visual_Basic作者rocksan (Rocksan)時間19年前 (2006/04/22 01:07)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/3 (看更多)

※ 引述《mohocho (去你的火星人)》之銘言： : 日前寫了個小小程式 : 把兩個文字檔中的字串抓出來做比較 : Dim str1 As StreamReader = File.OpenText("D:\1.txt") : Dim str2 As StreamReader = File.OpenText("D:\2.txt") : TextBox1.Text = str1.ReadToEnd() : TextBox2.Text = str2.ReadToEnd() : If TextBox1.Text = TextBox2.Text Then : Label1.Text = 1 : Else : Label1.Text = 0 : End If : 現在我想把他擴充成讀取多個但不定數量檔然後跟某檔比較 : 就是說把全部文字檔都讀進來 : 然後以其中一個為標準剩下的每個都跟他比較 : 不過問題是我之前小小版是把檔名寫死在裡面 : 現在要抓的檔檔名跟數量都不是固定 : 這樣要怎麼處理呢?? ======================================= 這個程式，主要的功能為將指定的資料夾中所有的文字檔，全部讀取進來並且跟某個文字檔比較內容，並把相同，與不相同的檔名記錄下來。這是我目前的想法，說不定有更好的做法唷。小弟也是VB.NET新手，多多互相討論 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim stritem As String Dim Filelist As New ArrayList Dim Samelist As New ArrayList Dim Difflist As New ArrayList Dim str1 As StreamReader Dim str2 As StreamReader ChDir("c:\") '改變目前的資料夾 stritem = Dir("*.txt") '找出目前資料夾中所有副檔名為txt的檔案名稱 Do Until stritem = "" Filelist.Add(stritem) '記錄所有的檔案路徑 stritem = Dir() ' 下一個 Loop str1 = File.OpenText("c:\01.txt") TextBox1.Text = str1.ReadToEnd '用來做為比較的文字檔 For i As Integer = 1 To Filelist.Count - 1 str2 = File.OpenText((CStr(Filelist.Item(i)))) '讀進所有的文字檔，一一比較 TextBox2.Text = str2.ReadToEnd If TextBox1.Text = TextBox2.Text Then Samelist.Add(CStr(Filelist.Item(i))) '記錄內容相同的檔名 Else Difflist.Add(CStr(Filelist.Item(i))) '記錄內容不相同的檔名 End If Next ListBox1.DataSource = Samelist ListBox2.DataSource = Difflist '在LISTBOX中顯示出來 End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.112.94.115