vb读取编辑txt文件并保存
3个文本,分别点击读取,在text1输入内容,点击保存还是保存相应的文件名嫁入点击读取1.txt内容显示在text1中,里面修改,点击保存,还是保存为1.txt的文件。...
3个文本,分别点击读取,在text1输入内容,点击保存 还是保存相应的文件名
嫁入点击读取1.txt 内容显示在text1中,里面修改,点击保存,还是保存为1.txt的文件。 展开
嫁入点击读取1.txt 内容显示在text1中,里面修改,点击保存,还是保存为1.txt的文件。 展开
2个回答
2014-05-11
展开全部
Public x '定义全局变量
Private Sub Command1_Click()
'保存按钮
Open "" & x & ".txt" For Output As #1
Print #1, Text1.Text
Close
End Sub
Private Sub Command2_Click()
'读取1.txt ,并在Text1.Text显示
x = 1
Text1.Text = ""
Open "1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
Text1.Text = Text1.Text & a
Loop
Close
End Sub
Private Sub Command3_Click()
'读取2.txt,并在Text1.Text显示
x = 2
Text1.Text = ""
Open "2.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
Text1.Text = Text1.Text & a
Loop
Close
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询