怎样取得一个字符串在另外一个字符串中出现的次数?
PublicFunctionsCount(String1AsString,String2AsString)AsInteger
DimIAsInteger,iCountAsInteger
I=1
Do
If(ILen(String1))ThenExitDo
I=InStr(I,String1,String2,vbTextCompare)
IfIThen
iCount=iCount 1
I=I 2
DoEvents
EndIf
LoopWhileI
sCount=iCount
EndFunction
□怎样在一个字符串中完全删除里面的另外一个字符串?
FunctionStringCleaner(sAsString,_
SearchAsString)AsString
DimiAsInteger,resAsString
res=s
DoWhileInStr(res,Search)
i=InStr(res,Search)
res...[ 查看全文 ]