一個(gè)窗體,一個(gè)命令按鈕
創(chuàng)新互聯(lián)主要從事網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)慈利,十載網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18980820575
在你的程序目錄下放一個(gè)名為123的txt文件(里面含有內(nèi)容)
命令按鈕中添加代碼:
Private Sub Command1_Click()
Open App.Path "\123.txt" For Output As #1
Print #1, ""
Close #1
End Sub
實(shí)現(xiàn)效果:?jiǎn)螕裘畎粹o后,123.txt文件中的內(nèi)容被清空
第二題:一個(gè)窗體,一個(gè)命令文本框
文本框change事件中添加代碼:
Private Sub Text1_Change()
Open "C:\a.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
這么菜的問題,分還挺高啊,循環(huán)讀文件,每次一行,跟你輸入的內(nèi)容比較一樣就記錄行號(hào)并且終止循環(huán),并且新建個(gè)文件寫入從開頭到第(你記錄的行號(hào)-1)行的內(nèi)容和(你記錄的行號(hào)+1)行以后的內(nèi)容,把源文件刪了,把新文件改名為老文件名,不一樣就繼續(xù)循環(huán)讀取,到最后讀完都沒有則提示沒有這個(gè)內(nèi)容
就這樣,具體程序自己寫,如果沒耐心那就沒辦法了 學(xué)不來編程了
思路與方法:
1,一行為讀取單位,讀取并保存到數(shù)組。
2,逆序循環(huán),可以獲得末尾空白行數(shù)。
3,以行為寫單位,寫入到文件。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.FileSystem.WriteAllText(完整路徑字符串, 要寫入的字符串)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim txt As String = My.Computer.FileSystem.ReadAllText("c:\新建 文本文檔.txt", System.Text.Encoding.Default) '先讀取文本中所有內(nèi)容
My.Computer.FileSystem.WriteAllText("c:\新建 文本文檔.txt", "", False, System.Text.Encoding.Default) '清空原文本內(nèi)容
Dim AllLine() = Split(txt, vbCrLf) '按回車符號(hào)切割成數(shù)組
For i As Integer = 0 To UBound(AllLine) '循環(huán)數(shù)組
' AllLine(i) = Replace(AllLine(i), "000", "111") '如果所有行都是統(tǒng)一轉(zhuǎn)換則本條生效
If i = 5 Then '只轉(zhuǎn)換第六行 起始是0,所以5實(shí)際為第6行
AllLine(i) = Replace(AllLine(i), "000", "111")
End If
My.Computer.FileSystem.WriteAllText("c:\新建 文本文檔.txt", AllLine(i) vbCrLf, True, System.Text.Encoding.Default) '按行重新寫入
Next
End Sub
為什么非要存成TXT文件呢?最好的辦法是將你的這些數(shù)據(jù)存放在DataSet對(duì)象里,然后用DataSet對(duì)象的WriteXML方法寫入文件。下次讀取時(shí),使用該對(duì)象的ReadXML方法就可以取回存在文件中的數(shù)據(jù)了。你想增、刪、編輯都可以,很方便的!如果非要生成TXT文件,可以在DataSet對(duì)象順序讀取數(shù)據(jù),然后再生成想要的TXT文件。你也用不著去追究IO流的操作了。