亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

遇到了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

更多信息請查看IT技術專欄