获取特定的字符串
来源:岁月联盟
时间:2003-07-06
aaadfgfga||bfgbbb||ccdfgsgcc||dsfdfdsf||...||
为了实现读取"||"之间的内容,我编写了如下代码
'SStr:表示分隔字符串,LStr:表示要搜索的字符串,i:表示要取第几段字符串
Function GetStr(SStr,LStr,i)
dim ks,js,cd,wz,j'ks:表示开始,JS:计数,cd:长度,wz:位置,j:循环变量
cd=Len(LStr)
ks=1
For j=1 to i
wz=InStr(ks,LStr,SStr)
If wz=0 then
StrLen=""
else
StrLen=Mid(LStr,ks,wz-ks)
ks=wz+2
end if
Next
End Function
这是我编写的函数,彼此共享。