回 帖 发 新 帖 刷新版面

主题:VB读取TXT格式问题请教

各位大侠们
小弟遇到一个问题:
1962      1     27   9411     25     44     -2     54     73     75     72      8     24      0      0  32766      4 
1962      1     28   9422     48     70     25     58     68    100    100     32     48  32700      0  32766     13 
1962      1     29   9450     58    106     26     61     66     68     55     28     75      0     77  32766     27 
1962      1     30   9460     34     68     29     71     91    100    100      0     48     18      0  32766      1 
1962      1     31   9460     32     42     23     72     93    100    100      5     45      3      0  32766      2 
1962      2      1   9471     32     40     23     72     93    100    100      8     42      6      0  32766      0 
1962      2      2   9469     45    102     -8     70     86     68     65     12     80  32001     67  32766     14 
1962      2      3   9456     47    103     -5     72     84     62     60     10     72      0     51  32766     10 
1962      2      4   9432     67     93     50     84     86    100    100      8     77  32700     10  32766      8 
1962      2      5   9414     78    112     52     90     86    100    100      5     93  32700      0  32766      8 


假如我想读取第1,2,3,5,7,10,12 列数据该如何操作?
谢谢了

回复列表 (共3个回复)

沙发

在线等!

板凳

用FSO,一行一行读取,直到AtEndOfStream,读取一行,对空格split,然后就可以取到相应的值



PS:真想好好睡一觉-_-

3 楼

你每行18个数据,只要读取第1,2,3,5,7,10,12 列数据。

方法有两种:
第一种是分行读取,然后截取数据。
读取使用lineinput将一行读到以个字符串里,然后使用slipt进行分割并存入一个变体变量。这是该变量自动变成数组。你只需要选用下标就可(第1个数据的下标是0,以此类推)

第二种方法逐数据读取。例如要把数据读到变量a,b,c,d,e,f,g中
input #1,a,b,c,d,d,e,e,f,f,f,g,g,h,h,h,h,h,h
就行了

我来回复

您尚未登录,请登录后再回复。点此登录或注册