Cont Do

[Glyph]

Like this...

$count = a

Do
          MsgBox(0, "AutoIt Example", "Count is: " & $count)

        $count = $count + 1 letter  

Until $count > zzz
        
MsgBox(0, "Done", "Finished!")

Is there anyway to have it go through a-z, aa-zz, aaa-zzz etc.?

[Xenobiologist]

Hi,

for what? You can try with ASC()

So long,

Mega

[Thatsgreat2345]

#Include <String.au3>
Global $letter[3]
$letter[1] = "a"
$letter[2] = "z"
For $i = 1 to 10
    MsgBox(0,"Test",_StringRepeat($letter[1],$i) & "-" & _StringRepeat($letter[2],$i))
Next

[theguy0000]

$count = 97

Do
          MsgBox(0, "AutoIt Example", "Count is: " & $count &@CRLF& "letter is: " & Chr($count))

        $count = $count + 1

Until $count > 122
        
MsgBox(0, "Done", "Finished!")

not tested

[Cue]

th.meger is right

use ASCII codes

For $a=97 to 122
    MsgBox(0, "AutoIt Example", "Count is: " &Chr($a))
Next

but i have not given you the method for multiple characters since i am slightly suspicous as to what you want this for.

[Thatsgreat2345]

#Include <String.au3>
Global $t = 1
While 1
For $i = 97 to 122
    MsgBox(0,"Test",_StringRepeat(Chr($i),$t))
Next
$t+=1
WEnd

i believe this is for bruteforce use but i coudl care less

Edited October 15, 2006 by thatsgreat2345

[Xenobiologist]

HI,

I guess brutfoeceing can be done better or also with permutation. code by Smoke_N

expandcollapse popup

$permutarray = permute("abcdef")
$msg = ""
For $n = 1 To $permutarray[0]
    $msg = $msg & $permutarray[$n] & @CRLF
Next
ConsoleWrite($msg)

Func rotate($sString, $nRotateLevel)
    Local $aStringArray = StringSplit($sString,"")
    Local $nStartRotate = $aStringArray[0] - $nRotateLevel + 1
    Local $n, $tempchar, $tempstr = "", $retval = ""
    For $n = 1 To $nStartRotate - 1
        $tempstr= $tempstr & $aStringArray[$n]
    Next
    $tempchar = $aStringArray[$nStartRotate]
    For $n = $nStartRotate+1 To $aStringArray[0]
        $retval = $retval & $aStringArray[$n]
    Next
    $retval = $tempstr & $retval & $tempchar
    Return $retval
EndFunc   ;==>rotate

Func permute_internal($sString, $nRotateLevel, ByRef $permutations)
    Local $n, $str
    Dim $arr[$nRotateLevel]
    If $nRotateLevel = 2 Then
        $permutations = $permutations & ":" & rotate($sString,$nRotateLevel)
        Return
    EndIf
    $str = $sString
    For $n = 0 To $nRotateLevel -1
        $str = rotate($str,$nRotateLevel)
        $arr[$n] = $str
        ;--- special check, to stop a level beeing printed twice ---
        If not (($n = 0) AND (StringLen($sString) > $nRotateLevel)) Then
            $permutations = $permutations & ":" & $arr[$n]
        EndIf
        permute_internal($arr[$n],$nRotateLevel-1,$permutations)
    Next
EndFunc   ;==>permute_internal

Func permute($sString)
    Global $permutations = ""
    permute_internal($sString,StringLen($sString),$permutations)
    $permutations = StringTrimLeft($permutations,1)
    Return StringSplit($permutations,":")
EndFunc   ;==>permute

So long,

Mega