textdatei auslesen und verwerten

sataan1337

moin

erstmal kurz was ich machen möchte:

das online-spiel "die stämme" bietet informationen über die server zum download als textdatei an
(karte, welcher spieler sitzt wo / wiviele punkte / wiviele dörfer etc)
die koordinaten der welt sind 0:0 bis 1000:1000

die textdatei sieht folgendermassen aus:

dorfid,name,xxx,yyy,spielerid,dorfpunkte,rang
dorfid,name,xxx,yyy,spielerid,dorfpunkte,rang
dorfid,name,xxx,yyy,spielerid,dorfpunkte,rang
...

ich will ein script schreiben dass:

die datei einliest
alle dörfer die im koordinatenbereich 600:800 bis 700:900 liegen herausfiltert
diese mit ein paar zusatzdaten in eine excel tabelle einfügt

ich scheiter dummerweise schon am einlesen - bei dorf 509 gibts nen fehler:

Line 29 (file: ...)

if $y ...
If ^error

Error: Array variable has incorrect number of subscripts or subscript dimension range exceeded

hier mal mein script

Code

#include<File.au3>	                           ;ermitteln der menge der zeilen (nich elegant ich weiss ^^)
dim $zaehlen
_filereadtoarray("village.txt", $zaehlen)
msgbox(0, "test", $zaehlen[0])       ;ausgabe weil ich was testen wollte




dim $village	                                       
Dim $map[100][100]                 	;das array in das die verarbeiteten datensätze gespeichert werden sollen




For $i = 1 to ($zaehlen[0] )
$village = FileOpen("village.txt", 0) 
$x = FileReadLine($village, $i)
$y = StringSplit($x, ",")
 if $i > 500 then	                                ;die schleife hatte ich reingesetzt um zu sehen in welcher zeile der fehler auftritt
   msgbox(0, $i, $x)
 EndIf
If $y[3] <600 and $y[3]>500 and $y[4]<900 and $y[4]>800 Then
   $y[3] = $y[3] - 500
   $y[4] = $y[4] - 800
   $map[$y[3]][$y[4]] = ("id" & $y[1] & "--" & "name" & $y[2] & "punkte" & $y[6] & "uID" & $y[5])
EndIf
Next


msgbox(0, "test", $map[31][64])  	;ausgabe des wertes für x = 531  y = 864

Alles anzeigen

vielleicht kann mir ja wer weiterhelfen

sataan1337

thx fürs wieder reinsetzen

und nochmal für alle der link des anbieters über die angedachte nutzung der dateien
http://de30.die-staemme.de/help2.php?article=map_data

sind für die verarbeitung / auswertung über ein script vorgesehen

**Oscar**

Sieh Dir mal die Textdatei an. Evtl. gibt es dort eine Leerzeile oder eine Zeile enthält keine Kommata. In diesem Fall gibt StringSplit nur ein Array mit 2 Elementen zurück, was die nachfolgenden Zeilen mit einem Fehler quittieren.
Am besten nach StringSplit eine Fehlerbehandlung einbauen.

sataan1337

Code

$village = FileOpen("village.txt", 0)
$x = FileReadLine($village, 510)
msgbox(0, "test", $x)

darüber frage ich die zeile bei der er im anderen script stockt direkt ab und lasse sie ausgeben - des klappt ohne probleme

509,05|Barbarendorf,485,463,1699679,8009,0 => das is die zeile

im hauptscript hab ichs ja über die kleine schleife so eingestellt dasser ab zeile 500 jeden wert einliest, splittet, als msgbox ausgiebt und dann weitermacht - die ausgabe für die zeile ist dabei leer => der teil mim auslesen is ja das gleiche script wie ich hier grad gepostet hab - nur dass eben ein völlig anderes ergebnis rauskommt

=> der fehler liegt nich der textdatei

des mit der fehlerbehandlung is aber ne gute idee - wenn auch keine endgültige lösung - irgendwo muss der fehler ja herkommen

sataan1337

soo - hab mal ne abfrage eingebaut die verhindert dass ne leere zeile verarbeitet wird

Code

#include<File.au3>
dim $zaehlen
_filereadtoarray("village.txt", $zaehlen)
dim $village
dim $2
Dim $map[100][100]


msgbox(0, "test", $zaehlen[0])
For $i = 1 to ($zaehlen[0] - 1)
$village = FileOpen("village.txt", 0)
$x = FileReadLine($village, $i)


if not $x = "" Then	                                                    ; der eingelesene string darf nicht leer sein


	$y = StringSplit($x, ",")
	if $i > 500 then
	msgbox(0, $i, $x)
	EndIf
	If $y[3] <600 and $y[3]>500 and $y[4]<900 and $y[4]>800 Then
		$y[3] = $y[3] - 500
		$y[4] = $y[4] - 800
		$map[$y[3]][$y[4]] = ("id" & $y[1] & "--" & "name" & $y[2] & "punkte" & $y[6] & "uID" & $y[5])
	EndIf
EndIf
Next


msgbox(0, "test", $map[31][64])

Alles anzeigen

ergebnis: 1. er arbeitet bis zu der stelle an der er vorher abgebrochen hat durch, und alle weiteren eingelesenen werte sind leer
2. ich bin verwirrt

**Oscar**

Ich sehe gerade, dass Du FileOpen innerhalb der For...Next-Schleife stehen hast. FileOpen muss oberhalb von "For" stehen und nach "Next" dann das FileClose nicht vergessen!

Vermutlich hat sich AutoIt an den zu zahlreichen FileHandles "verschluckt".

sataan1337

ich krieg die kriese

jetz klappts

stimmt da war ja ne obergrenze für dateien die gleichzeitig geladen werden können

lass des script grad durchlaufen - dauert nen weilchen (sind 156882 zeilen ^^)
aber kam noch keine fehlermeldung

Code

#include<File.au3>
dim $zaehlen
_filereadtoarray("village.txt", $zaehlen)
dim $village
dim $2
Dim $map[100][100]
$village = FileOpen("village.txt", 0)


msgbox(0, "test", $zaehlen[0])
For $i = 1 to ($zaehlen[0] - 1)


$x = FileReadLine($village, $i)


if not $x = "" Then


	$y = StringSplit($x, ",")
;~ 	if $i > 500 then
;~ 	msgbox(0, $i, $x)
;~ 	EndIf
	If $y[3] <600 and $y[3]>500 and $y[4]<900 and $y[4]>800 Then
		$y[3] = $y[3] - 500
		$y[4] = $y[4] - 800
		$map[$y[3]][$y[4]] = ("id" & $y[1] & "--" & "name" & $y[2] & "punkte" & $y[6] & "uID" & $y[5])
	EndIf
EndIf
Next


msgbox(0, "test", $map[31][64])
FileClose($village)

Alles anzeigen

danke dir vielmals