因為作業自學vba、然后學了vb6、給作業弄了點創新
百度了很久都失敗了餓
下圖是以前做的和以前用的代碼模板餓
uj5u.com熱心網友回復：
你這個應該用資料庫來實作吧。然后你下面的代碼是好古老的寫法了，就算是寫到文本檔案，我感覺現在也沒必要這樣寫了。
vb.net有個簡單的寫法，直接寫字串到檔案，最后一個引數是覆寫還是追加
My.Computer.FileSystem.WriteAllText("檔案名", "內容"， False)
.net正常寫字串到檔案的方法如下，還是按流來寫的方式，還有異步語法，寫檔案的方式實在是太多了
Using outputFile As New IO.StreamWriter("WriteLines.txt")
outputFile.WriteLine("內容")
End Using
uj5u.com熱心網友回復：
好的、關鍵我是半路子出家、只懂點vb6
、我先試試、謝啦
uj5u.com熱心網友回復：
https://blog.csdn.net/lsh2216024/article/details/3596973?utm_medium=distribute.pc_relevant_bbs_down.none-task-blog-baidujs-1.nonecase&depth_1-utm_source=distribute.pc_relevant_bbs_down.none-task-blog-baidujs-1.nonecase網上有很多
uj5u.com熱心網友回復：
好的、謝啦、我已經百度出來解決了、有新問題再請假大佬
uj5u.com熱心網友回復：
要用追加寫入的方法System.IO.File.AppendAllText("d:\123.txt",text1.text)
uj5u.com熱心網友回復：
Dim PathUserData As String = "d:\11111.txt" '文本檔案寫入
Dim t As System.IO.StreamWriter = New System.IO.StreamWriter(PathUserData, False, System.Text.Encoding.UTF8)
t.WriteLine(TextBox1.Text)
t.WriteLine(TextBox2.Text)
t.WriteLine(TextBox3.Text)
t.WriteLine(TextBox4.Text)
t.WriteLine(TextBox5.Text)
t.WriteLine(TextBox6.Text)
t.WriteLine(TextBox7.Text)
t.WriteLine(TextBox8.Text)
t.WriteLine(TextBox9.Text)
t.WriteLine(TextBox10.Text)
t.WriteLine(TextBox11.Text)
t.WriteLine(TextBox12.Text)
t.WriteLine(Label4.Text)
t.Close()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader("d:\11111.txt", System.Text.Encoding.Default)
Dim line As String
line = sr.ReadLine '文本檔案讀取
Me.TextBox1.Text = line
line = sr.ReadLine
Me.TextBox2.Text = line
line = sr.ReadLine
Me.TextBox3.Text = line
line = sr.ReadLine
Me.TextBox4.Text = line
line = sr.ReadLine
Me.TextBox5.Text = line
line = sr.ReadLine
Me.TextBox6.Text = line
line = sr.ReadLine
Me.TextBox7.Text = line
line = sr.ReadLine
Me.TextBox8.Text = line
line = sr.ReadLine
Me.TextBox9.Text = line
line = sr.ReadLine
Me.TextBox10.Text = line
line = sr.ReadLine
Me.TextBox11.Text = line
line = sr.ReadLine
Me.TextBox12.Text = line
line = sr.ReadLine
Me.Label4.Text = line
sr.Close()
大佬，有沒有什么辦法簡化這段代碼？如果我有500個text也只能這樣嗎
uj5u.com熱心網友回復：
Dim i As Integerdim strTemp as string
For i = 1 To 500‘這里的500根據實際數量修改
Dim c() As Control = Me.Controls.Find("TextBox" & i, False)
strTemp =strTemp & c(0).Text & vbcrlf
Next
然后保存strTemp到文本檔案即可
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/14595.html
標籤：VB.NET