[已解决]如何循环显示26个字母

temp

如何循环显示26个字母
如何循环显示26个字母 类似bat中的 for %%i in (a b c d。。) do echo %%i

netegg

for $i = 65 to 90
  consolewrite(Chr($i)&@crlf)
next

temp

回复 2# netegg

谢谢你的回复，没看懂，能再说明白点吗？
我的代码
Dim $aArray[2]
$aArray[0]="a"
$aArray[1]="b"
for $i in $aArray
   msgbox (0,"",$i)
Next
如果要循环26个字母点话，难道要写26个 $aArray[1]="

netegg

回复 3# temp
#include<array.au3>
dim $aArray, $string
for $i = 1 to 26
$string&= chr($i+64) & '|'
next
$aArray=stringsplit(stringtrimright($string,1), '|')
for $i = 1 to $aArray[0]
   msgbox (0,"",$aArray[$i])
Next
另外如果你是要循环显示的话根本就用不到数组，上面那个里面直接msgbox就行了

temp

回复 4# netegg

谢谢，对我来说还是太高深了，看不懂。
自己看帮助写了个，也达到了逐一循环的效果，麻烦看看对吗？
Dim $var = "abcdefghijklmnopqrstuvwxyz"
while 1
   $var = StringTrimLeft ( $var, 1 )
   msgbox (0,"",$var)
   if $var="z" then exitloop
wend
msgbox (0,"","ok")

netegg

回复 5# temp
你这是一次删一个字符呀
你要这么写的话也行，不过你写的不对
Dim $var = 'abcdefghijklmnopqrstuvwxyz'
Dim $i = 1
While 1
        If $i <> 1 Or $i <> 26 Then
                $ret = StringTrimLeft(StringLeft($var, $i), $i - 1)
        Else
                If $i = 1 Then
                        $ret = StringLeft($var, 1)
                Else
                        $ret = StringRight($var, 1)
                        MsgBox(0, "", $ret)
                        exitloop
                EndIf
        EndIf
        MsgBox(0, "", $ret)
        $i+=1
WEnd
MsgBox(0, "", "ok")
如果这样的话还不如
Dim $var = 'abcdefghijklmnopqrstuvwxyz'
For $i = 1 To 26
        MsgBox(0, "", StringMid($var, $i, 1))
Next

temp

回复 6# netegg

多谢指点，慢慢研究中。。。。。

lpxx

输出26个大写字母

For $i = 65 To 90
        MsgBox(0, "", Chr($i))
Next

输出26个小写字母

For $i = 97 To 122
        MsgBox(0, "", Chr($i))
Next

lpxx

或者：

For $i = Asc("A") To Asc("Z")
        MsgBox(0, "", chr($i))
Next

你喜欢数组也可以

#Include <Array.au3>
$arr = StringSplit("a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z", "|")
_ArrayDisplay($arr)

hollandmfq

雷锋精神传天下！谢谢分享！