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

看板Visual_Basic作者slasher (you got me)時間19年前 (2006/07/06 12:18)推噓0(0推 0噓 0→)

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

※ 引述《rocksan (Rocksan)》之銘言： : ※ 引述《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 可以繼續問嗎?[vb6] 如果要讓使用者選取多個檔案然後先把這些檔名記下來再一一對他們操作目前只知道怎麼開啟一個檔案... With CommonDialog1 .InitDir = App.Path ' add excel files .Filter = "Text Files, Excel(CSV) Files|*.txt;*.csv" .Action = 1 End With CommonDialog有property 可以同時選取多個檔案嗎那檔名格式的存取方式是什麼x -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 203.66.84.2 ※ 編輯: slasher 來自: 203.66.84.2 (07/06 16:40) ※ 編輯: slasher 來自: 203.66.84.2 (07/06 17:52)