您好,登錄后才能下訂單哦!
小編給大家分享一下dim函數第三個參數如何設置截取字符的長度,相信大部分人都還不怎么了解,因此分享這篇文章給大家參考一下,希望大家閱讀完這篇文章后大有收獲,下面讓我們一起去了解一下吧!
dim函數的第三個參數,也就是截取字符的長度,我在設置這個的時候,出了些問題:response.write mid(up_address,a(i),a(i+1)-1) & “<br />”像我上面這樣寫的時候,它就會報錯,提示無效的過程調用或參數,
response.write mid(up_address,a(i),a(i+1)+1) & “<br />”但是當我把其中的a(i+1)-1改為a(i+1)+1時,就能執行了,a(i+1)對應的值是11,可為什么只能減不能加呢?全部代碼如下:
VB code:
復制代碼 代碼如下:
dim a(),up_address
up_address = "aaa djaldk adflj adafadfasdfa afd ad"
redim a(len(up_address))
a(0) = instr(up_address," ")
response.write a(0) & "<br />"
if a(0)<>0 then
for i=0 to len(up_address)-1
a(i+1) = instr(a(i)+1,up_address," ")
response.write mid(up_address,a(i),a(i+1)-1) & "<br />"
if a(i+1)=0 then
exit for
end if
response.write a(i+1) & "<br />"
next
end if如上代碼,我是想把字符串按空格分解出來,但是mid的第三個參數那出了點問題,我本來是想這樣截取的:
VB code:
復制代碼 代碼如下:
mid(up_address,a(i),a(i+1)-a(i)-1)
‘a(i)是空格的位置
‘a(i+1)是下一個空格的位置
‘a(i+1)-a(i)-1是兩個空格直間的字符長度
現在的問題是,經測試,mid的第三個參數那,無法使用減法,也就是說,我可以寫a(i+1)+,但不能寫a(i+1)-,想了好久,我一直不明白問題出在哪?應該怎么來解決呢?
出現這個問題是因為上面的MID函數的第三個參數出現了負數,下面是在網上找的測試的VBS代碼,原理一樣,如下的代碼:
VBScript code:
復制代碼 代碼如下:
dim a(),up_address
up_address = "aaa djaldk adflj adafadfasdfa afd ad"
MsgBox len(up_address) '36
redim a(len(up_address)) 'a(36)
a(0) = instr(up_address," ")
MsgBox a(0) 'a(0)=4
MsgBox a(0) & "<br />"
if a(0)<>0 then
for i=0 to len(up_address)-1
a(i+1) = instr(a(i)+1,up_address," ")
MsgBox a(i) &" "& (a(i+1)-1)‘這里的結果為34,-1,所以導致出錯
MsgBox mid(up_address,a(i),a(i+1)-1) & "<br />"
if a(i+1)=0 then
exit for
end if
MsgBox a(i+1) & "<br />"
next
end if
以上是“dim函數第三個參數如何設置截取字符的長度”這篇文章的所有內容,感謝各位的閱讀!相信大家都有了一定的了解,希望分享的內容對大家有所幫助,如果還想學習更多知識,歡迎關注億速云行業資訊頻道!
免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。