本文目录一览：
- 1、vb6 点击窗体按钮打开同一路径下的txt文件查看 怎么写代码？
- 2、vb6 读取全部 txt文档
- 3、VB如何打开一个文本文件？
- 4、请问VB中如何读取txt文件的数据
- 5、VB6打开自动用记事本打开C盘目录TXT文件
- 6、VB6.0读取TXT内容
vb6 点击窗体按钮打开同一路径下的txt文件查看 怎么写代码？
private sub command1_click()
open app.path "\1.txt" for input as #1
while not eof(1)
line input #1,s
text1=text1 s vbnewline
wend
close #1
end sub
vb6 读取全部 txt文档
'***************************************************************
'读文件返回字符串函数
Private Function ReadFile(filePath As String) As String
Dim fileStr As String
Open filePath For Input As #1
Do While Not EOF(1)
Line Input #1, tem
fileStr = fileStr tem vbCrLf
Loop
Close #1
ReadFile = fileStr
End Function
'***************************************************************
使用方法:
dim x as string
x=ReadFile("C:\abc.txt")
补充,你把上边的函数代码一起拷进去
VB如何打开一个文本文件？
1、获取文本文件路径\x0d\x0a2、通过流的方式打开文本文件\x0d\x0a示例：\x0d\x0aDim MyString\x0d\x0aPrivate Sub Command1_Click() ’按钮事件\x0d\x0a Open App.Path + "\Myfile.txt" For Input As #1 '打开文本文件，读取。\x0d\x0a Do While Not EOF(1) '是否没到文件末尾\x0d\x0a Input #1, MyString '读取文件内容\x0d\x0a Loop\x0d\x0a Close #1\x0d\x0aEnd Sub-vb6代码打开txt文件
请问VB中如何读取txt文件的数据
1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。
2、双击Command1添加如下代码
Private Sub Command1_Click()
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "c:\学生成绩.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
End Sub
3、按F8开始单步调试代码，点击Command1，进入单步调试功能，
4、多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。
VB6打开自动用记事本打开C盘目录TXT文件
Private Sub form_load()
Shell "notepad c:\ShangPin.txt"
'Shell "notepad ""c:\ShangPin.txt""" '如果文件路径有空格，还是下一种写法为好。
End Sub
VB6.0读取TXT内容
TXT指什么？是文本文件还是文本框？
文本文件：
Option Explicit
Private Sub Command1_Click()
Dim SZtxt() As String
Dim d() As String
Dim n As Integer
Dim LinStr As String
Dim i As Integer
n = 0
Open "c:\1122.txt" For Input As #1 '以读的方式打开文件
Do While Not EOF(1) ' 循环至文件尾
n = n + 1
ReDim Preserve SZtxt(1 To n) As String '数组增加1个元素
Line Input #1, LinStr '读入一行用户名
d = Split(LinStr, ",")
SZtxt(n) = d(2)
Loop
Close #1 ' 关闭文件。
End Sub
文本框：
Dim SZtxt() As String
Dim d() As String
Dim ls() As String
Dim LinStr As String
Dim i As Integer
LinStr = Trim(Text1.Text)
ls = Split(LinStr, vbCrLf)
ReDim SZtxt(UBound(ls)) As String
For i = 0 To UBound(ls) - 1
d = Split(ls(i), ",")
SZtxt(i + 1) = d(2)
Next i
