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

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

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

不是，
读取一行的是
line input #1，a追问那这样写是读去一个字符?追答你原来那样，但他受很多因素影响追问那 input #1,a 读取的是什么

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

不是读取文件中的第一行数据！
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多少

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！