| 标题 | asp截取字符串重复间的内容 |
| 内容 | 遇到了asp截取一个有规律的字符串,通过规律找到开始,结束,然后获取中间内容输出. 代码如下: <%@LANGUAGE = VBScript%> <%Option Explicit%> <%Dim str,b_temp,e_temp,b_array,e_array,temp,cutstr,cutstr2,begin,minnum,i,falg 'w--str'原有字符串 'w--b_temp'开始字符串临时变量 'w--e_temp'结束字符串临时变量 '.--b_array'开始字符位置数组 'f--e_array'结束位置数组 'o--temp'函数中临时位置变量 'r--cutstr'开始字符串 'a--cutstr2'结束字符串 's--begin'开始位置 'p--minnum'位置最小值 '.--i'循环位置 'cn--falg'值如果为begin则求出开始字符串结束位置.如果不是,则是结束字符串位置 str = "abcded,abf,abixin,abodjf,absdifj," Function get_b(str,cutstr,begin,flag) temp = InStr(begin,str,cutstr) If temp >0 Then If flag = "begin" then temp = temp+Len(cutstr)&","&get_b(str,cutstr,temp+1,flag) Else temp = temp&","&get_b(str,cutstr,temp+1,flag) End if Else Exit function End If get_b = temp End Function Function min(num1,num2) If num1>num2 Then min = num2 Else min = num1 End if End function cutstr = "ab" begin = 1 cutstr2 = "," b_temp = get_b(str,cutstr,begin,"begin") e_temp = get_b(str,cutstr2,begin,"end") b_array = Split(b_temp,",") e_array = Split(e_temp,",") 'response.write UBound(b_array)&"=="&UBound(e_array)&"<br>"&b_temp&"<br>"&e_temp minnum = min(UBound(b_array),UBound(e_array)) For i = 0 To minnum-1 response.write mid(str,b_array(i),(e_array(i)-b_array(i)))&"<br>"'输出最后获得的字符串 next 'www.forasp.cn原创,转载请注明 %> 结果如下: cded f ixin odjf sdifj |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。