dandandan 发表于 2005-6-10 15:04:00

[VBA]求助，多谢大家！！

<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT size=3><FONT face=宋体>小妹有一事相求：如下有一文本文件的一部分，我想提取10，20，30后面的数据，并令存在一数组中，请问如何实现？</FONT></FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT size=3><FONT face=宋体>        <FONT size=1>10</FONT></FONT></FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体 size=1>77.95818787889311</FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><FONT size=1>        20</FONT></FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体 size=1>86.67726674893243</FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><FONT size=1>        30</FONT></FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体 size=1>0.0</FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><FONT size=1>        11</FONT></FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体 size=1>77.95818787889311</FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><FONT size=1>        21</FONT></FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体 size=1>40.32671441750705</FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体><FONT size=1>        31</FONT></FONT>


<P class=MsoPlainText style="MARGIN: 0cm 0cm 0pt"><FONT face=宋体 size=3><FONT size=1>0.0</FONT></FONT>

wyj7485 发表于 2005-6-10 16:43:00

打开文件计算文件长度,定义一个动态数组,把要的数据放到里面

dyheng 发表于 2005-6-10 17:40:00

如果数据不太多的话，先定义一个数组A1，把文本文件中的字符串逐行写入数组中，然后再定义另一个双精数组A2，在数组A1中循环读数，遇到想找的数（如10，其在A1中的位置假设是2）后，就把A1（3）（即数组中下一值）赋给A2（0），如此循环下去，直到数组读完为。但是如果文本文件太大的话，这个就不太好用了，一是要写很多代码（逐条件判断），二是速度也会下降。
页: [1]
查看完整版本: [VBA]求助，多谢大家！！