vb读取txt文件并把内容显示在textbox控件中 10
比如我知道一个txt文件abc.txt怎样把这个文件内的内容显示到text1.text中啊?忘记说了,如何把textbox控件内容替换掉原来txt文件中的内容假设txt文...
比如我知道一个txt文件abc.txt
怎样把这个文件内的内容显示到text1.text中啊?
忘记说了,如何把textbox控件内容替换掉原来txt文件中的内容
假设txt文件在C根目录下 展开
怎样把这个文件内的内容显示到text1.text中啊?
忘记说了,如何把textbox控件内容替换掉原来txt文件中的内容
假设txt文件在C根目录下 展开
2个回答
展开全部
Private Sub Command1_Click()
Dim s As String
Dim a As String
Open "c:\abc.txt" For Input As #1
If Not EOF(1) Then
Input #1, s
End If
While Not EOF(1)
s = s & vbCrLf
Input #1, a
s = s & a
Wend
Close #1
Text1.Text = s
End Sub
是要把文本框内容存到文件还是
Dim s As String
Dim a As String
Open "c:\abc.txt" For Input As #1
If Not EOF(1) Then
Input #1, s
End If
While Not EOF(1)
s = s & vbCrLf
Input #1, a
s = s & a
Wend
Close #1
Text1.Text = s
End Sub
是要把文本框内容存到文件还是
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
读取文件:
Dim InputData As String*1
Open"C:\abc.txt" For Input As #1
Do While Not EOF(1)
InputData=Input(1,#1)
Text1.Text=Text1.Text+InputData
Loop
Close#1
替换原来文件的内容:
Dim OutputData As String
Open"C:\abc.txt" For Output As #1
Print#1,Text1.Text
Close#1
Dim InputData As String*1
Open"C:\abc.txt" For Input As #1
Do While Not EOF(1)
InputData=Input(1,#1)
Text1.Text=Text1.Text+InputData
Loop
Close#1
替换原来文件的内容:
Dim OutputData As String
Open"C:\abc.txt" For Output As #1
Print#1,Text1.Text
Close#1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询