Question

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

txt 中数据如下
a=3.54
b=8.27
c=6.9
d=7.8
请问怎样将每个数据读取给程序中的变量a,b,c?

Answer 1

代码如下:
Private Sub Command1_Click()
Open "F:\数据.txt" For Input As #1
Input #1, a, b, c, d
Print "a="&a,"b="& b,"c="&c,"d="&d
Close #1
End Sub

-几种打开文件方法-------------------------
1.open <文件名> for input as#<文件号>
如果文件不存在则会出错,文件号将在以后操作中取代文件名,范围是[1,511]。

2.open <文件名> for output as#<文件号>
建立一个新文件并打开它,如果文件存在就删了再建立。

3.open <文件名> for append as#<文件号>
为了在文件尾部追加内容而打开,写入数据时是从尾部进行。

-读取-------------------------------------
1.input #<文件号>,<变量表>
读出一行数据并依次分配给各变量
2.line input #<文件号>,<变量名>
读出一行数据直到回车换行之前的全给此变量
------------------------------------------

Answer 2

Private Sub Command1_Click()
Dim s(1 To 4) As String
Dim i As Integer
Open "d:\1.txt" For Input As #1
Do While Not EOF(1) '如果没读到最后一行则循环
For i = 1 To 4
Line Input #1, s(i)
Next
Loop
Close #1
a = s(1)
b = s(2)
c = s(3)
End Sub

Answer 3

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))
'提取数据给变量

Answer 4

dim fileNO as integer
fileNO = freefile

Open "TESTFILE" For Input As #fileNO ' 打开文件。
Do While Not EOF(1)
Line Input #1, a
Line Input #1, b

Line Input #1, c
Line Input #1, d

Loop
Close #fileNO ' 关闭文件

Answer 5

Dim sline As String
On Error GoTo err
CommonDialog1.DialogTitle = "打开txt文件"
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "Text文件(*.txt)|*.txt;"
CommonDialog1.filename = ""
CommonDialog1.ShowOpen
Open CommonDialog1.filename For Input As #1
While Not EOF(1)
Line Input #1, sline
Text1.Text = Text1.Text & sline & vbCrLf
Wend
Close #1
err: