怎样取得一个字符串在另外一个字符串中出现的次数?
PublicFunctionsCount(String1AsString,String2AsString)AsInteger
DimIAsInteger,iCountAsInteger
I=1
Do
If(I>Len(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=Left(res,i-1)&_
Mid(res,i 1)
Loop
StringCleaner=res
EndFunction
□怎样在一个字符串中删除里面的另外一个字符串?
PublicSubsRemove(String1AsString,String2AsString)
DimIAsInteger
I=1
Do
If(I>Len(String1))ThenExitDo
I=InStr(1,String1,String2)
IfIThen
String1=Left$(String1,I-1) Mid$(String1,I Len(String2) 1)
I=I 2
DoEvents
EndIf
LoopWhileI
EndSub
□怎样在一个字符串中替换里面的另外一个字符串?
PublicSubsReplace(String1AsString,String2AsString,RepStringAsString)
DimIAsInteger
I=1
Do
If(I>Len(String1))ThenExitDo
I=InStr(1,String1,String2)
IfIThen
String1=Left$(String1,I-1) RepString Mid$(String1,I Len(String2))
I=I 2
DoEvents
EndIf
LoopWhileI
EndSub
□如何计算一个字符串中的行数?
FunctionCountStringLine(src_stringAsString)AsInteger
OnErrorResumeNext
Dimstring_flagAsInteger
Dimline_cntAsInteger
Dimtest_stringAsString
line_cnt=0'初始-->行数为1
string_flag=1'标志为1
test_string=src_string
DoEvents
Do
line_cnt=line_cnt 1
string_flag=InStr(test_string,vbCrLf)'判断回车换行
test_string=Right(test_string,Len(test_string)-string_flag-1)
LoopUntilstring_flag<=0
CountStringLine=line_cnt
EndFunction
□如何从一个字符串中读取一行字符?
FunctionReadStringLine(src_strAsString,linenoAsInteger)AsString
OnErrorResumeNext
Dimstring_flagAsInteger
Dimline_cntAsInteger
Dimtest_stringAsString
Dimret_stringAsString
line_cnt=0'初始-->行数为1
string_flag=1'标志为1
test_string=Right(src_str,2)
Iftest_string<>vbCrLfThen
test_string=src_str vbCrLf
Else
test_string=src_str
EndIf
DoEvents
Do
line_cnt=line_cnt 1
string_flag=InStr(test_string,vbCrLf)
ret_string=Left(test_string,string_flag)
test_string=Right(test_string,Len(test_string)-string_flag-1)
LoopUntillineno<=line_cnt
'Ifline_cnt=1Then
'ReadStringLine=ret_string
'Else
ReadStringLine=Left(ret_string,Len(ret_string)-1)
'EndIf
EndFunction->