工作心得网

工作心得精彩分享
代码积累持续学习

ext_IsMember函数

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

我们的缺点麻烦您能提出,谢谢支持!

关于站长