在解决Iif问题时，为了判断iif语句是否合法，同时找出其中的条件，返回值True及返回值False。却不自然中写出了一个通用的函数模块，该函数能解决闭合符号形式中的一串文字。如”( … )”、”[ … ]”等，看官也可以自己设定一个闭合符号或字符串，但必须是对称出现，如“AVB”和“Def”便可以组合成一对，这样对于字符串AVBCdeOkDef的闭合符号中。现将这些函数整理如下，参数、返回值及函数功用都已经在注释中说明，希望本函数模块能对VB忠实爱好者有所帮助。





' --------------------------------------------------------------------------

' 从某一段文字中查找某一个符号(须考虑大小写)，并且返回该符号的所有位置索引

' douhapy 2005-01-31

'

' 参数:

' strSentence :任意一段文字

' strSymbol :需要查找的特殊符号，或字符串

' SymbolIndex() :返回该符号在文字中的所处位置索引

' blCaseMatch :是否必须大小写匹配 (True 大小写必须匹配)

' blDesc :是否降序排列SymbolIndex中的数据(True 为降序排列索引)

'

' 返回值:

' True 成功找到该符号，同时SymbolIndex有相应的值

' --------------------------------------------------------------------------

Function CheckSymbolFromSentence(ByVal strSentence As String, ByVal strSymbol As String, _

ByRef symbolIndex() As Integer, Optional ByVal blCaseMatch = True, Optional ByVal blDesc = False) As Boolean



Dim intSymbolIndex() As Integer

Dim strTmp As String

Dim intTmp As Integer

Dim blReturn As Boolean



Dim i As Integer



strTmp = strSentence: blReturn = False: i = 0



If blDesc Then

If blCaseMatch Then

intTmp = InStrRev(strTmp, strSymbol)

Else

intTmp = InStrRev(strTmp, strSymbol, -1, vbTextCompare)

End If

Else

If blCaseMatch Then

intTmp = InStr(strTmp, strSymbol)

Else

intTmp = InStr(1, strTmp, strSymbol, vbTextCompare)

End If

End If



Do While intTmp <> 0

blReturn = True

ReDim Preserve intSymbolIndex(i)

intSymbolIndex(i) = intTmp

intTmp = intTmp - 1



If intTmp <> 0 Then

If blDesc Then

If blCaseMatch Then

intTmp = InStrRev(strTmp, strSymbol, intTmp)

Else

intTmp = InStrRev(strTmp, strSymbol, intTmp, vbTextCompare)

End If

Else

If blCaseMatch Then

intTmp = InStr(intTmp + 1, strTmp, strSymbol)

Else

intTmp = InStr(intTmp + 1, strTmp, strSymbol, vbTextCompare)

End If

End If

End If

i = i + 1

Loop



CheckSymbolFromSentence = blReturn

symbolIndex = intSymbolIndex



Erase intSymbolIndex

End Function



' --------------------------------------------------------------------------

' 获取任意一段文字"( ... )"闭合符号中的字符串数据

' douhapy 2005-01-31

'

' 参数:

' strSentence :任意一段文字

' LeftBracketIndex:该段文字中闭合符号左符号的索引

' LeftCloseSymbol :闭合符号的左符号

' RightCloseSymbol:闭合符号的右符号

' blCaseMatch :是否必须大小写匹配 (True 大小写必须匹配)

'

' 返回值

' 若成功 则返回闭合括号中的字符串

' 否则 返回空字符串

' --------------------------------------------------------------------------

Function GetCloseString(ByVal strSentence As String, ByVal LeftBracketIndex As Integer, _

Optional ByVal LeftCloseSymbol As String = "(", Optional ByVal RightCloseSymbol As String = ")", _

Optional ByVal blCaseMatch As Boolean = True) As String



Dim strReturn As String