看你这问题提了好几天了,今天有空给回个吧。
主要用到InStrRev函数,因你的字串符分割后,左则空格数不固定,所以就从右则查找第二个空格处开始再分割就行了。关于InStrRev函数用法,你自己搜吧。
<%
Dim str,arrstr,i,tempstr
str="机场 珠海三灶机场 60 公里 、市中心 拱北口岸 5 公里 、市政府 0.5 公里 、九洲港 5 公里"
Response.Write str&"
"
arrstr=Split(str," 、")
For i=0 To UBound(arrstr)
Response.Write "原名:"&arrstr(i)&"
"
tempstr=InStrRev(arrstr(i)," ",Len(arrstr(i))-3)
Response.Write "地名:"&Mid(arrstr(i),1,tempstr)&"
"
Response.Write "距离:"&Trim(Mid(arrstr(i),tempstr,Len(arrstr(i))))&"
"
Next
%>
直接复制到一个ASP文件,测试即可看到效果。
要求写那么多,干嘛不直接写出你要的最后结果了。
”机场 珠海三灶机场 60 公里“这个串你想分成哪两段,说明白点,你想得到一个什么样的结果