这个数组的功能怎么实现（与读文本文件有关）

这个数组的功能如何实现（与读文本文件有关）？
功能：在一个文本文件中，读取其中内容，判断其中是否有某些内容，如果有就读其下面的某一行，做一些事情。
代码如下：

VB code

Public Sub test()Dim filename As Stringfilename = "C:\2.hcd"'此命令可以打开或读取、 修改，将添加到文件的数据文件。    Open filename For Input As #1    'Split返回一个从零开始的一维数组，其中包含指定数量的子字符串    'Chr(10) 返回换行符    'StrConv返回按照指定方式转换的字符串    'InputB从已打开的顺序文件中读出数据并将数据指定给变量    'LOF(1)返回一个 Long 值，表示用 FileOpen 函数打开的文件的大小（以字节为单位）     s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), Chr(10))     Close #1'在执行For Each...In 循环结构时，会将In 后面的集合对象中第一个对象的内存地址从内存取出，'并由For Each 后面的变量接收；遇到Next 叙述时则取出下一个在集合对象中的项目，'并将内存地址给For Each 后面的变量接收，直到集合对象中的所有对象全部被取出完毕为止。                For Each elm In s    'If Mid(elm, 2, 12) = "MainType   2" Then           'MsgBox "直线可能存在"        'End If    Select Case Mid(elm, 2, 12)        Case Is = "MainType   2"     MsgBox (elm) '已经成功读取了该行，下面需要做的事情是读取下面几行。     MsgBox ("直线可能存在")        Case Is = "MainType   3"     MsgBox ("曲线可能存在")    Case Else    End Select    NextEnd Sub

我现在用的是elm来访问s数组中的单元，请教各位高人，如果要访问当前elm下面的内容该如何做？
我知道s从文本文件中按照回车分离出来的行数组，看了一些资料说要用下标访问，问题是这个elm如何知道下标呢？
谢谢大家的指点和围观！

[解决办法]
这里要不用for each,用for i=更方便。

VB code

for i=0 to ubound(s)   elm=s(i)   Select Case Mid(elm, 2, 12)        Case Is = "MainType   2"     MsgBox (elm) '已经成功读取了该行，下面需要做的事情是读取下面几行。     x=s(i+1)'这是elm的下一行。     x1=s(i+2)'这是elm的下两行。     ''''     ''''     MsgBox ("直线可能存在")        Case Is = "MainType   3"     MsgBox ("曲线可能存在")    Case Else    End Select 

 

查看更多 下一篇