Page 1 of 1

Fileread, Sort funktioniert nicht

Posted: 26 Dec 2019, 22:57
by nacken012
Hallo

Bekomme gerade graue Haare und weiß nicht, warum die Sortierung nicht klappt.

Der Code:
SetWorkingDir %A_ScriptDir%
FileRead, AusgabeVar, KB-Suchbilder.txt

FarbArray := StrSplit(AusgabeVar, "|")

Sort, FarbArray ,CL

Loop % FarbArray.MaxIndex()
{
diese_Farbe := FarbArray[A_Index]
;MsgBox, Farbnummer %A_Index% ist %diese_Farbe%.
FileAppend, %diese_Farbe%|, KB-Suchbilder1.txt
}
return
Die txt Datei:
Aufziehbarer Wahrsager|Auge der Welt|Ballon|Bigfoot|Blauer Drache|Bleiglasfenster|Dankbarkeit des Ordens|Dreistaeter Pferd|Friedensstifter|Furchtloser Drache|Gluecksgeschenk|Goetze|Herbstbaum|Koenig der Nacht|Natur-Totem|Obsidan Altar|Paradiesvogel|Wahrer Schatz|WeihnachtlicherMistelzweig|blubber


Es wird zwar eine neue Datei erstellt (Suchbilder1.txt) aber da steht dann "blubber" immer noch am Ende der Datei

Re: Fileread, Sort funktioniert nicht

Posted: 27 Dec 2019, 01:50
by hd0202
Du versuchst, ein Array-Object zu sortieren, das geht so nicht, ist aber auch nicht nötig

Code: Select all

SetWorkingDir %A_ScriptDir%
FileRead, AusgabeVar, KB-Suchbilder.txt

sort, AusgabeVar, CL  D|

FileAppend, %AusgabeVar%, KB-Suchbilder1.txt
return
Hubert

Re: Fileread, Sort funktioniert nicht

Posted: 27 Dec 2019, 02:15
by nacken012
Vielen lieben Dank, manch mal hat man einfach was vor dem Augen und findet den Fehler nicht.

klappt perfekt :-)

Re: Fileread, Sort funktioniert nicht

Posted: 27 Dec 2019, 04:58
by garry
danke , hier nur ein Test , Ergebnis auf neuer Linie

Code: Select all

SetWorkingDir %A_ScriptDir%
f1=%a_scriptdir%\KB-Suchbilder.txt
f2=%a_scriptdir%\KB-Suchbilder_NEW.txt
ifexist,%f2%
 filedelete, %f2%
e1=
(
Aufziehbarer Wahrsager|Auge der Welt|Ballon|Bigfoot|Blauer Drache|Bleiglasfenster|Dankbarkeit des Ordens|Dreistaeter Pferd|Friedensstifter|Furchtloser Drache|Gluecksgeschenk|Goetze|Herbstbaum|Koenig der Nacht|Natur-Totem|Obsidan Altar|Paradiesvogel|Wahrer Schatz|WeihnachtlicherMistelzweig|blubber
)
ifnotexist,%f1%
   fileappend,%e1%,%f1%
FileRead,aa,%f1%
sort,aa, CL  D|
loop,parse,aa,|  
  e .= a_loopfield . "`r`n"
FileAppend, %e%,%f2%
aa=
e=
run,%f2%
exitapp

Re: Fileread, Sort funktioniert nicht

Posted: 27 Dec 2019, 11:19
by nacken012
Danke Dir für diesen Vorschlag, bin ja viel am basteln und habe schon so einiges für ein Online Spiel gebaut, dafür brauchte ich das jetzt auch.

Bei dem Spiel kann man bei Nachbarn an verschiedenen Objekten buddeln und das sollte natürlich automatisch gehen.

Das habe ich schon lange fertig und man konnte aus verschiedenen Objekten sich 1 aussuchen in den Einstellungen und der rest ging automatisch.

Dann habe ich von Zeit zur Zeit immer neue Objekte hinzu gefügt, mit viel rechnen, eintragen usw.... und da dachte ich mir, baue ich mal was wo ich nur noch 2 Bilder erzeugen muss und der rest mit den ganzen Einträgen geht dann vollautomatisch.

Dank Eurer Hilfe klappt das jetzt perfekt.

Danke