從VB.net的按鈕打開記事本

我想在VB.net中創建一個按鈕，讓我瀏覽我的硬盤驅動器指定的記事本文件，我想打開並從中檢索內容，我只嘗試過使用FileStream和StreamReader，但這不會讓我手動選擇記事本文件，而不是我必須聲明一個默認文件名。任何示例代碼將不勝感激，我只需要一個起點。我非常堅持這一點。從VB.net的按鈕打開記事本

這個我使用的是現在的代碼，但我必須在它指定了正確的文件名：

 Dim fStream As New System.IO.FileStream("messages.txt", IO.FileMode.Open) 
     Dim sReader As New System.IO.StreamReader(fStream) 
     Dim Index As Integer = 0 
     Do While sReader.Peek >= 0 
      ReDim Preserve sArray(Index) 
      sArray(Index) = sReader.ReadLine 
      Index += 1 
     Loop

來源

2013-07-10 Marc Intes

你想打開記事本，或記事本*文件* ？這兩者非常不同，你的問題不清楚你的意思。 – RoadieRich

我想你可能使用與一個FileStream錯誤的做法。取而代之的是讓用戶選擇一個文件，然後使用Process.Start打開記事本。

看看here關於選擇文件的例子。頁面here然後詳細描述Process.Start。

我很高興直接在這裏提供更多的代碼示例，但這兩個頁面應該足夠了。

來源

2013-07-10 11:30:20 Nick

謝謝，這真的幫了我很多。我現在可以繼續我的工作。 –

如果我正確理解你的問題，你想有一個選項，選擇哪個文本文件打開，如果是的話，你可以試試這個：

Dim openFileDialog1 As New OpenFileDialog() 
openFileDialog1.InitialDirectory = "c:\" 
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" 
openFileDialog1.FilterIndex = 2 
openFileDialog1.RestoreDirectory = True 

If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then 
    Try 
     stream = openFileDialog1.OpenFile() 
     If (stream IsNot Nothing) Then 
      //do your loop here 
     End If 
    Catch Ex As Exception 
     MessageBox.Show(Ex.Message) 
    Finally 
     If (stream IsNot Nothing) Then 
      stream.Close() 
     End If 
    End Try 
End If

來源

2013-07-10 11:39:28 jomsk1e

非常感謝，我將用它作爲我的一個指南。 –

從VB.net的按鈕打開記事本

回答

相關問題