Array einlesen + bearbeiten

Hallo! Ich hab mir mal gedacht, dass ich mich diesmal etwas mehr mit Arrays auseinander setze, aber ich komme irgendwie nicht wirklich klar... Habs noch nie gemacht und die Hilfe hat mir diesmal auch nicht so ganz weiter geholfen.

Ich habe eine Textdatei namens ansii.txt in der ein code drin steht wie z.B. "Chr(54) & Chr(55) & Chr(53)".
Nun dachte ich mir, dass ich NUR die zahlen haben will und diese dann mit einem Komma trennen und dann per Msgbox beispielsweise so anzeigen lassen könnte "54,55,53".

Was ich bisher habe:

[autoit]

#include<Array.au3>
#include <file.au3>

[/autoit][autoit][/autoit][autoit]

Dim $decode

[/autoit][autoit][/autoit][autoit]

_FileReadToArray( @ScriptDir & "\ansii.txt", $decode)
$array = StringSplit($decode, ") & Chr(", 1)

[/autoit]

Wenn ich jetzt z.B "_ArrayDisplay($array)" noch dazufüge, dann zeigt es mir mir nur "[0] = 1" und "[1] = " <-- nichts

Dann interessiert mich noch wie ich hier "Chr(54) & Chr(55) & Chr(53)" vor der "54" das "Chr(" wegkrieg x_X ( 2x string split?)
Und ich würd noch gern wissen wie ich dann nach jeder zweiten Zahl ein Komma einfügen kann Oo (bei der der "53" soll kein Komma DAHINTER)

Kann mir vllt jemand weiter helfen? An Beispielen verstehe ich sowas recht schnell Wäre euch also dankbar, wenn ihr mirn komplettes Beispiel dafür geben könnten^^

Sooo.. Hab jetzt das:

[autoit]

#include <file.au3>

[/autoit][autoit][/autoit][autoit]

$datei = FileOpen(@ScriptDir & "\ansii.txt", 0)

[/autoit][autoit][/autoit][autoit]

$decode = FileRead($datei, 1)
$split = StringSplit($decode, ") & Chr(")
MsgBox(0,"", $split)
FileClose($datei)

[/autoit]

Leider glaube ich, dass mit Stringsplit in diesem Falle garnicht hilft..., da ich ja einfach nur alle ") & Chr(" rausschneiden und durch nen Komma ersetzen will >-<

Wenn du etwas ersetzen willst, benutze StringReplace.
Die Überreste kannst du mit der selben Funktion raushauen.

Zitat von nuts

[autoit]

#include <file.au3>

[/autoit] [autoit][/autoit] [autoit]

$datei = FileOpen(@ScriptDir & "\ansii.txt", 0)

[/autoit] [autoit][/autoit] [autoit]

$decode = FileRead($datei, 1)
$split = StringReplace($decode,") & Chr(",",")
MsgBox(0,"", $split)
FileClose($datei)

[/autoit]

So müsste es gehen.

Hmm.. wenn ich es nach deinem Beispiel mache, kommt das bei der MsgBox immer nur ein C. Wahrscheinlich von "Chr(54)"

[autoit]

$datei = FileOpen(@ScriptDir & "\ansii.txt", 0)

[/autoit][autoit][/autoit][autoit]

$decode = ""
while 1
$decode &= FileRead($datei, 255)
If @error = -1 Then ExitLoop
Wend
FileClose($datei)
$split = StringReplace($decode, ") & Chr(", ",")
$split = StringReplace($split, ")" ,"")
$split = StringReplace($split, "Chr(" ,"")
MsgBox(0,"", $split)

[/autoit]

Zitat von Lava

[autoit]

$datei = FileOpen(@ScriptDir & "\ansii.txt", 0)

[/autoit] [autoit][/autoit] [autoit]

$decode = ""
while 1
$decode &= FileRead($datei, 255)
If @error = -1 Then ExitLoop
Wend
FileClose($datei)
$split = StringReplace($decode, ") & Chr(", ",")
$split = StringReplace($split, ")" ,"")
$split = StringReplace($split, "Chr(" ,"")
MsgBox(0,"", $split)

[/autoit]

Alles anzeigen

Wow, danke. Es funktioniert

Zitat von UEZ

Hier mein Vorschlag:

[autoit]

#include <Array.au3>
Global $decoded, $string, $array, $i
$string = "Chr(54) & Chr(52) & Chr(53)" & @CRLF & "Chr(6) & Chr(57) & Chr(58)"
$array = StringRegExp($string, "\d+", 3)
For $i = 0 To UBound($array) - 2
$decoded &= $array[$i] & ", "
Next
$decoded &= $array[UBound($array) - 1]
MsgBox(0, "Test", $decoded)

[/autoit]

Gruß,
UEZ

PS: mein erster StringRegExp Einsatz

Alles anzeigen

Sieht interessant aus Oo Mit FileRead hab ich es bei deinem Beispiel nicht hinbekommen, aber mit InputBox^^ Danke