vb中怎么读取txt文件

1. vb 怎样读取TXT文件中的数据

dim a,b,c,d as integer
dim as,bs,cs,ds as string
Open "TESTFILE" For Input As #1 \' 打开文件。
Do While Not EOF(1) \'
Input #1, as
Input #1, bs
Input #1, cs
Input #1, ds
Loop
Close #1 \' 关闭文件
a=val(mid$(as,3,len(as)-3))
b=val(mid$(bs,3,len(as)-3))
c=val(mid$(cs,3,len(as)-3))
d=val(mid$(ds,3,len(as)-3))
'提取数据给变量

2. vb读取文件夹中所有的txt文件

使用VB内建函数读取文本文件

1/3

双击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

2/3

运行代码读取文件

按F8开始单步调试代码，点击Command1，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

查看剩余1张图

3/3

关键代码说明

intFile = FreeFile：获取一个文件句柄

Open strFile For Input As intFile ：打开文件

FileLen(strFile) ：获取文件内容字节大小

InputB：读取文件内容字节流

StrConv：将字节流转换为Unicode字符串

Debug.Print strData：将字符串内容输出到立即窗口

Close intFile：关闭文件句柄

使用FileSystemObject读取文本文件

1/3

添加Microsoft Scripting Runtime引用

点击Project菜单，再点击下拉菜单中的Reference，打开引用对话框，浏览找到Microsoft Scripting Runtime引用，选择后点确定按钮。

查看剩余1张图

2/3

双击Command2添加如下代码

Private Sub Command2_Click()

    Dim objFS

3/3

运行代码读取文件

按F8开始单步调试代码，点击Command2，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

3. 怎么使用VB打开文本文件

这样你换一种写法试一试：
dim x As String
open "g:\杂项\123.txt" for input as #1
DO while not eof(1)
line input #1,x
text1.text = text1.text & x & vbcrlf
loop
close #1
还有一种是：版
open "g:\杂项\123.txt" for input as #1
text1.text = strconv(inputb(lof(2),#1),vbunicode)
close #1
不行的话 再问权我

4. VB如何读取txt数据

Private
Sub
Command1_Click()
'基本读取方法---只能读取非中文
'
Dim
a
As
String,
b
As
String,
c
As
String,
d
As
String,
e
As
String,
f
As
String'定义几个变量
Dim
FileNo
As
Integer
FileNo
=
FreeFile()
'获取一个未使用的文件号
Dim
str
As
String
'用来记录最终的值
Open
"你要读取文件的完整路径"
For
Input
As
#FileNo
While
Not
EOF(FileNo)
Dim
str_Read
As
String
Input
#FileNo,
str_Read
'读取一个字符到变量str_Read---不包含换行回车符,也不包括逗号，分号及Tab，当读到分隔符号(前面列举的4种)时就赋值给后面的变量，如果有多个变量就读取相对应多的分隔数据
'如果为你的007.txt文件且为你列举的内容那么上面一句就改成下面的语句
'
Input
#FileNo,
a,
b,
c,
d,
e,
f
'
str
=
str
&
str_Read
Wend
'Me.Text1.Text
=
str
Close
#FileNo
End
Sub

5. 请问VB中如何读取txt文件的数据

1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。