Function ext_IsMember(strNodeName As String,strNodes As String,strSplitChar As String) As Boolean
%REM
功能:判断是不是包含子字符串
strNodeName:字串
strNodes:父串
strSplitChar:分隔符
ywcheng 20160926 add
%END REM
On Error Goto ArraygetindexDo
ext_IsMember=False
If Len(strNodes)<1000 Then
IsUnits=Evaluate(|@IsMember("|+strNodeName+|";@explode("|+strNodes+|";"|+strSplitChar+|"))|)
If IsUnits(0)=1 Then
ext_IsMember=True
Exit Function
Else
ext_IsMember=False
Exit Function
End If
Else
Dim nodes As Variant
nodes=Split(strNodes,strSplitChar)
If Isnull(Arraygetindex(nodes,strNodeName))=False Then
ext_IsMember=True
Exit Function
End If
ext_IsMember=False
Exit Function
End If
Exit Function
ArraygetindexDo:
NewErr.LogToFile=0
NewErr.ErrModule="lcyqk.nsf中 script库 sysExtFucScript(ext_IsMember).错误行:" +NewErr.SysErrLine
Call NewErr.OutPutErrMsg("")
Call system_clew("0"," ext_IsMember方法错误","")
Exit Function
End Function