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

来源：互联网发布：晕3d的人是天才知乎编辑：程序博客网时间：2024/06/05 10:26

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

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

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

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

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

Dim firstString,otherStringdata = "湖东路99号标力大厦2楼"data2 = "鼓楼区五四路159号世界金龙大厦5层"sep = "区"divideString data,sepmsgbox firstString&vbCrlf&otherStringdivideString data2,sepmsgbox firstString&vbCrlf&otherStringFunction divideString(data,sep)Dim arrayarray = split(data,sep,-1,1)if ubound(array) > 0 ThenfirstString = array(0)&sepotherString = Right(data, len(data)-len(array(0)&sep))elsefirstString = ""otherString = dataend ifEnd Function

0 0