werte aus txt file parsen

~~kknb~~ · 04/09/2011, 18:33

moin moin,

wollte mal fragen ob hier wer langeweile hat und mir nen script bastelt welches mir alle werte einer jeden zeile aus einer txt file ausliest und praktischerweise in einem array speichert.

die werte wären von links nach rechts gesehen:
position, name, alter, stärke, frische, ep, tp, awp

txt file sieht so aus.

TrickGamer · 04/09/2011, 21:14

nimm doch einfach IniRead() und IniWrite()

lolkop · 04/09/2011, 21:57

versuchs mal hiermit:

Code:

StringRegExp($content, '([[:graph:]]+)[[:blank:]]*([[:print:]]+)[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]+)', 4)

Edit:
da keine antwort kam hier nochmal als vollständiges beispiel:

Code:

$content = FileRead('text.txt')
$parsed = StringRegExp($content, '([[:graph:]]+)[[:blank:]]*([[:print:]]+)[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]+)[[:blank:]]*([[:graph:]]+)', 4)
For $z = 0 To UBound($parsed)-1
	$selected = $parsed[$z]
	ConsoleWrite('Item'&$z&':'&@CRLF)
	For $i=1 To UBound($selected)-1
		ConsoleWrite('    '&$selected[$i]&@CRLF)
	Next
Next

output würde dann so aussehen:

Spoiler

natürlich musst dus nich so ausgeben, wollte nur mal zeigen das du so alles sofort in einem einzigen array gespeichert hättest.

~~kknb~~ · 04/10/2011, 18:28

also im endeffekt hab ichs nun doch recht einfach gelöst, hier mal ein ausschnitt.

Code:

					$CountLines = _FileCountLines($file)
					For $i = 0 To $CountLines
						If $i = 1 Or Mod($i, 9) = 0 Then
							$line = FileReadLine($file, $i + 1)
							If StringInStr($line, "€") Then ContinueLoop
							$prepLine = StringRegExpReplace($line, "	", "/")
							FileWrite($prepedFile, $prepLine & @CRLF)
						EndIf
					Next
					$prepedLines = _FileCountLines($prepedFile)
					For $a = 1 To $prepedLines
						ReDim $Position[$a + 1]
						ReDim $Name[$a + 1]
						ReDim $Alter[$a + 1]
						ReDim $Staerke[$a + 1]
						ReDim $Frische[$a + 1]
						ReDim $Erfahrung[$a + 1]
						ReDim $Training[$a + 1]
						ReDim $AWP[$a + 1]
						$line = FileReadLine($prepedFile, $a)
						$splittedString = StringSplit($line, "/")
						$Position[$a] = $splittedString[6]
						$Name[$a] = $splittedString[7]
						$Alter[$a] = $splittedString[8]
						$Staerke[$a] = $splittedString[10]
						$Frische[$a] = $splittedString[11]
						$Erfahrung[$a] = $splittedString[14]
						$Training[$a] = $splittedString[15]
						$AWP[$a] = $splittedString[16]
					Next

sry wegen der formatierung ist halt mitten aus dem script kopiert.
im endeffekt hab ich einfach die tabs durch "/" ersetzt und dann via stringsplit gesplittet.