Skrypt pobierający linie i następną linię.

[flaq1991]

Cześć poszukuję skryptu który będzie mi z pliku tekstowego lub z memo pobierał wyrazy

wyrazy są zapisane w ten sposób :

 

Proba1:Proba2

Proba3:Proba4

Proba1:Proba2

Proba3:Proba4

Proba1:Proba2

Proba3:Proba4

 

I chodzi o to że ma pobierac tekst przed dwukropkiem do jednego pola a po dwukropku do drugiego pola.

 

[Pawellek]

Skrypt:

#include <Array.au3>
#include <File.au3>

Example()

Func Example()
Local $file = @ScriptDir & "\test.txt"
Local $fLines = _FileCountLines($file)
Local $split
Local $Polenr1[$fLines], $Polenr2[$fLines]
Local $fOpen = FileOpen($file)

For $i = 1 To $fLines
	$split = StringSplit(FileReadLine($fOpen, $i), ":")
	_ArrayPush($Polenr1, $split[1])
	_ArrayPush($Polenr2, $split[2])
Next
FileClose($fOpen)

_ArrayDisplay($Polenr1)
_ArrayDisplay($Polenr2)
EndFunc

test.txt

Proba1:Proba2
Proba3:Proba4
Proba1:Proba2