2,461
社区成员
发帖
与我相关
我的任务
分享
Public Sub test()
Dim filename As String
filename = "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
Next
End Sub
Public Sub openfile()
Dim j As Integer
Dim s() As String
Dim filename As String
filename = "C:\1.hcd"
'Split返回一个从零开始的一维数组,其中包含指定数量的子字符串
'Chr(10) 返回换行符
'StrConv返回按照指定方式转换的字符串
'InputB从已打开的顺序文件中读出数据并将数据指定给变量
'LOF(1)返回一个 Long 值,表示用 FileOpen 函数打开的文件的大小(以字节为单位)
Open filename For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) 'Chr(10)) 'vbCrLf回车符与换行符
For j = 0 To UBound(s)
Select Case Mid(s(j), 2, 12)
Case Is = "MainType 2"
MsgBox (s(i)) '已经成功读取了该行,下面需要做的事情是读取下面几行。
MsgBox (s(i + 1))
MsgBox ("直线可能存在")
Case Is = "MainType 3"
MsgBox ("曲线可能存在")
Case Else
End Select
Next j
Close #1
End Sub
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