VB读写文本文件问题

来源：百度知道 编辑：UC知道 时间：2024/05/21 09:39:36
设有一个文本文件t1.txt，其中已有若干字符。在窗体上有一个文本框和一个命令按钮。要求编程实现：单击“读文件”命令按钮时，可读入该内容并显示在文本框中。对文本框中内容进行编辑修改，单击“写文件”按钮，即可将文本框中所有字符重新写入文本文件t1.txt

楼上的代码我比较怕怕,好长啊!我写的不好,但比较简单.
Private Sub Command1_Click()
Text1.Text = ""
Open ("d:\vb.txt") For Input As #1
Do While Not EOF(1)
Line Input #1, tem
Text1.Text = Text1.Text + tem + vbCrLf
Loop
Close #1
End Sub

Private Sub Command2_Click()
Open "d:\vb.txt" For Output As #1
Print #1, Text1
Close
End Sub

'添加窗体Form1,文本框Text1,按钮Command1,Command2,然后添加如下代码:
Private Sub Form_Load()
    Command1.Caption = "读文件"
    Command2.Caption = "写文件"
End Sub

Private Sub Command1_Click() '读文件
    Text1.Text = fileStr("C:\t1.txt")
    MsgBox "读入完毕！"
End Sub

Private Sub Command2_Click() '写文件
   &n