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