vb 打开txt文件并显示在一个文本框中

Private Sub File1_Click()
Dim st As String, fpath As String
Text1.Text = ""
If Right(Dir1.Path, 1) = "\" Then
fpath$ = Dir1.Path & File1.FileName
Else
fpath$ = Dir1.Path & "\" & File1.FileName
End If
Open fpath For Input As #1'个人怀疑这儿错了但不知道怎么改
Do While EOF(1) '一直执行直到读到文件末尾
Line Input #1, st '每次读取一个整行
Text1.Text = Text1.Text + st + vbCrLf
Loop
Close #1
End Sub

举报该问题

其他回答

第1个回答 2010-05-23

你说的那里没错，但下一行应该是
Do while not EOF(1)本回答被提问者采纳

第2个回答 2010-05-23

没错啊，你用这个代码有啥问题？

相似回答

如何用VB6.0获取一个txt文件的所有文本,并显示在text1,文本框里答：先添加commondialog控件到窗体，改名称CDL1，加按钮Cmd1，文本框TexT1..Private Sub Cmd1_Click()Dim yy$, FF&(10)Text1 = ""CDL1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CDL1.FileName = ""CDL1.ShowOpen On Error Resume Next If CDL1.FileName = "" Then Exit...

如何利用写好的vb记事本小程序打开TXT格式的文档答：text1 = text1 & s & vbCrLf Wend Close #1 Exit Sub ErrorHandler:MsgBox "文件打开失败或文件路径错误，请检查文件路径是否正确。", vbExclamation, "错误提示"通过这种方式，你可以更安全地读取TXT文件，并在文本框中显示其内容。

vb怎样把一个txt中所有内容(多行)显示在一个text中?答：a = "C:\reg\shit.txt" '你要读取的TXT文件路径 Open a For Input As #1 Do While Not EOF(1)Input #1, b text2.text=text2.text & b Loop close #1 ‘打开文本后记得关闭 end Sub

VB如何把文件内容显示在文本框中?答：' 显示“打开”对话框 CommonDialog1.ShowOpen ' 显示选定文件的名字 Debug.Print CommonDialog1.FileName Str = CommonDialog1.FileName Open CommonDialog1.FileName For Input As #1 Do Until EOF(1)Line Input #1, s Text1.Text = Text1.Text & s & vbCrLf Loop Close #1 Exit Sub ErrHa...

VB 怎样将文本框的数据读取和保存到文本文件中?答：1、vb读取txt文件内容，以下代码实现把电脑txt中的内容读取到程序文本框text1中。Private Sub Command1_Click()Open App.Path & "\123.txt" For Input As #1 '备注：App.Path & "\123.txt"是程序目录下的123.txt Dim Lines As String Line Input #1, Lines '读取文本内容 Close #1 text1....

VB.NET中,现有一多行TXT文件,想按行读取全部内容,然后显示在一文体框...答：="" FileOpen(1, Application.StartupPath() & "\file\t1.txt", OpenMode.Input) Do While Not EOF(1) Input(1, a) TextBox1.Text =TextBox1.Text & a & vbcrlfLoop 一次性读取a=File.ReadAllText(Application.StartupPath() & "\file\t1.txt")...

vb读取txt文件并把内容显示在textbox控件中答：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 是要把文本框内容存到文件还是...

vb读取网站目录txt文件内容到text1.text答：在Visual Basic中，我们可以使用API函数来下载文件并通过文本框显示其内容。以下是一个示例代码，首先通过URLDownloadToFile函数下载远程服务器上的txt文件，然后将其内容逐行读取并显示在Text1文本框中。为了实现这一功能，我们首先需要声明URLDownloadToFile函数，该函数位于urlmon库中。该函数的原型为：Privat...

vb中,怎样使txt文本中的内容一行一行显示在文本框中?答：把文本框的MultiLine属性设为True，ScrollBars属性设为2或3，然后：Open "123.txt" For Binary As #1 Text1.Text = Input(LOF(1), #1)Close #1

大家正在搜

vb在文本框中输入文本 vb文本框显示文字 vb打开txt文件 vb读取txt文本其中一行 vb文本框显示 vb哪个是文本框控件 vb文本框多行显示 vb创建txt文件 vb如何保存文件为txt