Hi,
keine Ahnung wofür mans brauchen könnte, aber ich stells trotzdem mal rein :D:
[autoit]dim $s, $i, $len, $file, $left, $right
dim $von = InputBox("Start","Von:")
dim $bis = InputBox("Ende","Bis:")
perm($bis)
[/autoit][autoit][/autoit][autoit]func perm($s)
$file = FileOpen("test.txt",1)
For $i = $von to $s
if permtest($i) Then
FileWriteLine($file,$i & @CRLF)
EndIf
Next
FileClose($file)
ShellExecute("test.txt")
EndFunc
func permtest($line2)
[/autoit][autoit][/autoit][autoit]$str2 = $line2
$len = stringlen($str2)
while $str2
$left = stringmid($str2,1,1)
$right = stringmid($str2,2)
if StringInStr($right,$left) Then
;or StringInStr($right,0)
$str2 = True
ExitLoop
ElseIf $str2 = "" Then
$str2 = False
ExitLoop
Else
$str2 = $right
EndIf
WEnd
[/autoit][autoit][/autoit][autoit]if $str2 = True Then
return 0
else
return $line2
EndIf
EndFunc
[/autoit]