vb text1怎么样读取txt

Posted 2023-02-14

要用 树状图 那种的自己选取的读取，不要绝对路径的。
一楼的，你说的正是我不想要的。。具体看图

Private Sub Command1_Click()
Dim s As String
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
s = CommonDialog1.FileName
Open s For Input As #1 '绝对相对都可以
Do While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & vbCrLf
Loop
Close #1
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
有不清楚的 hi 我 参考技术A - - 不知道你要达到什么效果
但是读写txt 一般都是
open "路径" for input asd #1 '绝对相对都可以
do while not eof(1)
ling input #1,s
text1.text=text1.text & s & vbcrlf
loop
close #1