VBS For Next循環(huán)的陷阱分享
更新時(shí)間:2013年01月14日 00:06:55 作者:
在《VBS For Next循環(huán)的一些細(xì)節(jié)》中說到了 For Next 循環(huán)的控制變量僅僅在循環(huán)開始前求值一次,但是其中存在一處陷阱
昨天寫《QWERTY密碼:加密與解密》的時(shí)候,為了得到26個(gè)字母的字符串,寫了這樣一個(gè) For Next 循環(huán):
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To (i + 25)
s = s & Chr(i)
Next
WScript.Echo s
運(yùn)行后卻發(fā)現(xiàn)沒有字符串輸出,覺得很奇怪,于是簡單修改了一下:
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To (i + 25)
WScript.Echo Chr(i)
s = s & Chr(i)
Next
WScript.Echo s
仍然沒有任何輸出,說明 For Next 循環(huán)中的語句根本就沒有執(zhí)行,百思不得其解,于是請教了一下預(yù)言家晚報(bào),他很快就發(fā)現(xiàn)了陷阱所在:
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To (i + 25) Step -1
WScript.Echo Chr(i)
s = s & Chr(i)
Next
WScript.Echo s
這次種終于有輸出了,相信聰明的你也一定發(fā)現(xiàn)了陷阱在哪里。For Next 循環(huán)的求值順序并不是按照從左到右的,表達(dá)式 (i + 25) 在 i = 65 之前就已經(jīng)求值了,而此時(shí) i 的值是默認(rèn)的0,所以原循環(huán)相當(dāng)于:
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To 25
s = s & Chr(i)
Next
WScript.Echo s
當(dāng)然不會有輸出,最后我把程序改成了這樣:
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = Asc("A") To Asc("Z")
s = s & Chr(i)
Next
WScript.Echo s
既直截了當(dāng),又不會碰到 For Next 陷阱。
復(fù)制代碼 代碼如下:
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To (i + 25)
s = s & Chr(i)
Next
WScript.Echo s
運(yùn)行后卻發(fā)現(xiàn)沒有字符串輸出,覺得很奇怪,于是簡單修改了一下:
復(fù)制代碼 代碼如下:
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To (i + 25)
WScript.Echo Chr(i)
s = s & Chr(i)
Next
WScript.Echo s
仍然沒有任何輸出,說明 For Next 循環(huán)中的語句根本就沒有執(zhí)行,百思不得其解,于是請教了一下預(yù)言家晚報(bào),他很快就發(fā)現(xiàn)了陷阱所在:
復(fù)制代碼 代碼如下:
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To (i + 25) Step -1
WScript.Echo Chr(i)
s = s & Chr(i)
Next
WScript.Echo s
這次種終于有輸出了,相信聰明的你也一定發(fā)現(xiàn)了陷阱在哪里。For Next 循環(huán)的求值順序并不是按照從左到右的,表達(dá)式 (i + 25) 在 i = 65 之前就已經(jīng)求值了,而此時(shí) i 的值是默認(rèn)的0,所以原循環(huán)相當(dāng)于:
復(fù)制代碼 代碼如下:
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = 65 To 25
s = s & Chr(i)
Next
WScript.Echo s
當(dāng)然不會有輸出,最后我把程序改成了這樣:
復(fù)制代碼 代碼如下:
'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/10
For i = Asc("A") To Asc("Z")
s = s & Chr(i)
Next
WScript.Echo s
既直截了當(dāng),又不會碰到 For Next 陷阱。
您可能感興趣的文章:
相關(guān)文章
VBS實(shí)現(xiàn)將Excel表格保存為txt文本
希望能夠找到個(gè)能給excel表另存為TXT的VBS代碼,雖然另存為可以選擇,但還是需要直接VBS執(zhí)行這一步另存為TXT格式的,應(yīng)該如何寫代碼呢2012-12-12用vbs返回 Internet Explorer 的下載控件和 Applet 的列表
用vbs返回 Internet Explorer 的下載控件和 Applet 的列表...2007-04-04用vbs讀取index.dat內(nèi)容的實(shí)現(xiàn)代碼
用vbs讀取index.dat內(nèi)容的實(shí)現(xiàn)代碼,需要的朋友可以參考下。2010-11-11VBS教程:VBscript語句-If...Then...Else 語句
If...Then...Else 語句用于計(jì)算條件是否為 True 或 False,并且根據(jù)計(jì)算結(jié)果指定要運(yùn)行的語句。通常,條件是使用比較運(yùn)算符對值或變量進(jìn)行比較的表達(dá)式。If...Then...Else 語句可以按照需要進(jìn)行嵌套2006-11-11網(wǎng)馬生成器 MS Internet Explorer XML Parsing Buffer Overflow Explo
MS Internet Explorer XML Parsing Buffer Overflow Exploit (vista) 0day利用代碼2009-01-01