VB中INPUT #1,A 是不是读取文件中的第一行数据?

Question

如题所述

Answer 1

VB中的语句INPUT #1,A 实现的是从文件号为1的文件中读取数据赋值给变量A。往往与循环语句结合使用，通过EOF函数判断是否到文件尾。
Do While Not EOF(1)
Input #1, A
......
Loop

Answer 2

不是读取文件中的第一行数据！
INPUT #1,A
表示从文件中读取一行数据，该数据读入到变量A中，其中的#1表示的是文件号，不是指第一行。
读取第一行的方法：
open 你的文件 for input as #1
INPUT #1,A
close #1
读取所有数据：
open 你的文件 for input as #1
do while not eof(1)
INPUT #1,A
ss=ss & vbcrlf & a
loop
close #1
ss=mid(ss,3)'ss即为文件中的所有内容

其中文件号可用freefile来获取：freefile代表下一个可供OPEN语句使用的文件。如：
dim f as integer
f=freefile
open 你的文件 for input as #f
...追问

为什么我一行上的数据是20,但读取 的时候就只读了个2呢。

追答

可能定义了A的长度，比如：dim a as string*1，A只能存一个字符

追问

那个A没定义，用默认的。.直接用的。

追答

那是不可能的。打开你的文件看看是否20？还是一行2一行0，或者显示有问题。

追问

20
soft
143500
N/A
0
N/A
0
N/A
0
N/A
0
这是文件内容

追答

你是如何知道“读取 的时候就只读了个2呢。”，即你的代码。

追问

Open App.Path + "\dat\score.txt" For Input As #1
Input #1, Totle '从文件中读入图片总数
For I = 0 To 4
Input #1, Record(I).Na
Input #1, Record(I).Sc
Next I
Close #1
我用个TEXT控件测试了下TOTLE的值是2

追答

检查下TEXT控件的maxlength是否为1
你可以直接msgbox Totle 看一下

追问

maxlength=0,这个程序是个大家来找茬的游戏,里面有20张图片，其中有个地方的代码是随即产生一张没玩过的图,但是我怎么运行他都只会出现两种图.

追答

你可以直接msgbox Totle 看一下，
检查一下text的change事件

追问

要不我把我在网上下的这个大家来找茬游戏的原程序发给你看看吧,你QQ多少

本回答被网友采纳

Answer 3

有个文件指针，你每读一行，指针会跳到下一行：
open filename for input as #1 '打开文件，指针在文件开始
line input #1,A 'A=第一行，此句执行后，指针到第二行
line input #1,B 'B=第二行，此句执行后，指针到第三行

Answer 4

不是，
读取一行的是
line input #1，a追问

那这样写是读去一个字符?

追答

你原来那样，但他受很多因素影响

追问

那 input #1,a 读取的是什么