VBScript,提取字符串中的一部分

是我肤浅了,直接用Instr函数或InstrRev就可以。

data = "湖东路99号标力大厦2楼"  
data2 = "鼓楼区五四路159号世界金龙大厦5层"  
sep = "区"  
msgbox instr(data2,sep)
msgbox left(data2, instr(data2,sep))


————————————————————————以下为原文————————————————————————————

不知道是否有更快捷的方法。


需求:如果地址中包括“区”,则输出区和之后的地址;不包括,则输出空值和原地址。

Dim firstString,otherString
data = "湖东路99号标力大厦2楼"
data2 = "鼓楼区五四路159号世界金龙大厦5层"
sep = "区"
divideString data,sep
msgbox firstString&vbCrlf&otherString
divideString data2,sep
msgbox firstString&vbCrlf&otherString

Function divideString(data,sep)
	Dim array
	array = split(data,sep,-1,1)
	if ubound(array) > 0 Then
		firstString = array(0)&sep
		otherString = Right(data, len(data)-len(array(0)&sep))
	else
		firstString = ""
		otherString = data
	end if
End Function


阅读更多
文章标签: vbscript vbs
个人分类: VBScript
上一篇Scripting.Dictionary字典对象
下一篇PowerShell,远程操作,读写复制备份文件
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭