VB中不等号怎么表达?
下面是我做的一个循环片段,你的问提答案在这里面能够得到回答!
If InStr(l1, "[") <> 0 Then
If LCase(Mid(l1, (InStr(l1, "[") + 1), (Len(l1) - 2))) = getcat Then
Do Until EOF(fnum) Or l2 = "["
Line Input #fnum, l2
l2 = Trim(l2)
If InStr(l2, "]") <> 0 Then
Close fnum
Exit Function
End If
If InStr(l2, "=") <> 0 Then
If LCase(Left(l2...全部
下面是我做的一个循环片段,你的问提答案在这里面能够得到回答!
If InStr(l1, "[") <> 0 Then
If LCase(Mid(l1, (InStr(l1, "[") + 1), (Len(l1) - 2))) = getcat Then
Do Until EOF(fnum) Or l2 = "["
Line Input #fnum, l2
l2 = Trim(l2)
If InStr(l2, "]") <> 0 Then
Close fnum
Exit Function
End If
If InStr(l2, "=") <> 0 Then
If LCase(Left(l2, (InStr(l2, "=") - 1))) = getfield Then
GetValue = Trim(Mid(l2, InStr(l2, "=") + 1, Len(l2)))
Close fnum
Exit Function
End If
End If
Loop
End If
End If。
收起