以下代碼可以將textbox中的內容保存到txt檔案中。而且是可以選擇目錄來保存。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim txt As String = Me.getTxt
SaveTxt(txt)
End Sub
'取得存盤的文本
Private Function getTxt() As String
' Dim x(0 To 10) As Integer
' For i As Integer = 0 To x.Length - 1
' x(i) = CInt(100 * Rnd())
' Next
' Dim str As String = ""
' For j As Integer = 0 To x.Length - 1
' Str += x(j).ToString & vbCrLf
' Next
'Return str
Dim x(1) As String
Dim Str As String = ""
x(0) = TextBox1.Text
x(1) = TextBox2.Text
For j As Integer = 0 To 1
Str += x(j) & vbCrLf
Next
Return Str
End Function
'存盤文本
Private Sub SaveTxt(ByVal v As String)
Dim fp As String = GetSavePath()
If String.IsNullOrEmpty(fp) = False Then
'StreamWriter
Dim Swriter As New StreamWriter(fp, False) '覆寫或新建
Swriter.WriteLine(v)
Swriter.Close()
End If
End Sub
'取得存盤路徑
Private WithEvents sd As New SaveFileDialog
Private Function GetSavePath() As String
sd.FileName = ""
sd.AddExtension = True '如果檔案沒有擴展名，默認為txt擴展名
sd.DefaultExt = "txt"
sd.Filter = "TXT檔案(*.txt)|*.txt"
sd.ShowDialog()
Return sd.FileName
End Function
代碼是在網上找的，修改了一下。
我想實作將上面txt檔案中的內容再讀取到textbox中，
'************************************
'Textbox1.Text = ""
'Dim str As IO.StreamReader = New IO.StreamReader("C:\123.txt", System.Text.Encoding.Default)
'Do Until str.EndOfStream
'TextBox1.Text = TextBox1.Text & Str.ReadLine()
'Loop
'Str.Close()
'這段代碼可以讀出123.txt中的值
按照這個代碼可以讀固定目錄下固定txt檔案中的內容。我想要的是和存盤到txt檔案一樣，是可以選擇目錄下的txt檔案。
uj5u.com熱心網友回復：
用OpenFileDialog得到檔案名，將"C:\123.txt"換成新檔案名即可
uj5u.com熱心網友回復：
那目錄怎么得到？uj5u.com熱心網友回復：
加個按鈕，加個OpenFileDialog控制元件Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.Multiselect = False '只能選取一個檔案
OpenFileDialog1.Filter = "文本檔案|*.txt" '選取檔案的型別，如果沒有這行則默認可選擇所有檔案型別
OpenFileDialog1.ShowDialog() '顯示打開檔案的表單，這句是最主要的其他的都是對這個表單選擇項的設定
End Sub
uj5u.com熱心網友回復：
根據問題，大概分為發下幾個步驟1、觸發“保存”（通常為點擊按鈕）
2、呼叫對話框，獲取保存檔案的路徑。(用OpenFileDialog,而不用SaveFileDialog)
3、讀取TextBox內容，保存為檔案，方法很多，但我最喜歡用ws。
dim ws = CreateObject("Wscript.Shell")
dim fso = CreateObject("SCripting.FileSystemObject")
dim f=fso.CreateTextFile(path, True)
f.write TextBox.Text
uj5u.com熱心網友回復：
感謝大家。已經解決了uj5u.com熱心網友回復：
其實VS里你點右鍵插入代碼段就帶有讀寫檔案參考代碼給你。很簡單的。uj5u.com熱心網友回復：
多謝樓上的大俠！轉載請註明出處，本文鏈接：https://www.uj5u.com/net/149631.html
標籤：VB.NET