hallo,
ich habe erst vor kurzen angefangen mit vb6 zu programmieren. eigentlich komme ich eher aus der php ecke.
ich versuche zur zeit ein script zu schreiben was unteranderem eine datei rückwärts einliest. nun möchte ich das wenn ich die datei eingelesen habe einen bestimmte teil herausfiltern mit dem ich weiterarbeiten muss/möchte.
die textdatei ist immer wie folgt aufgebaut:
eine textdatei besteht aus vielen solcher einträge die fortlaufend aneinander gereit sind.
ich bin soweit das ich die komplette datei in eine variable schreibe.ich möchte nun alles von "******* [forlaufende nummer] End *******" bis "***** [fortlaufende nummer] start *****" extrahieren und prüfen ob data3 einen gewissen wert. sollte der wert nicht gefunden werden soll mit dem nächsten eintrag genauso verfahren werden.
ich scheitere im moment wo ich das komplette file in die einzelnen bereiche splitten möchte. meine bisherige funktion sieht so aus:
könnte mir bitte jemand einen denkanstoß geben wie ich mein vorhaben am besten realisieren kann?
ich hoffe meine erklärung war halbwegs verständlich.
vielen dank für eure hilfe.
mfg fixmer
ich habe erst vor kurzen angefangen mit vb6 zu programmieren. eigentlich komme ich eher aus der php ecke.
ich versuche zur zeit ein script zu schreiben was unteranderem eine datei rückwärts einliest. nun möchte ich das wenn ich die datei eingelesen habe einen bestimmte teil herausfiltern mit dem ich weiterarbeiten muss/möchte.
die textdatei ist immer wie folgt aufgebaut:
Code:
******* [forlaufende nummer] End *******
Data1
Data2
Data3
Data4
***** [fortlaufende nummer] start *****
******* [forlaufende nummer] End *******
Data1
Data2
Data3
Data4
***** [fortlaufende nummer] start *****
usw...
eine textdatei besteht aus vielen solcher einträge die fortlaufend aneinander gereit sind.
ich bin soweit das ich die komplette datei in eine variable schreibe.ich möchte nun alles von "******* [forlaufende nummer] End *******" bis "***** [fortlaufende nummer] start *****" extrahieren und prüfen ob data3 einen gewissen wert. sollte der wert nicht gefunden werden soll mit dem nächsten eintrag genauso verfahren werden.
ich scheitere im moment wo ich das komplette file in die einzelnen bereiche splitten möchte. meine bisherige funktion sieht so aus:
Code:
Public Function GetLastHand(TableName As String)
Dim HandHistoryFile As String
Dim ReadHHDir As String
Dim asHands() As String
Dim CheckSum As Integer
'falls die funktion GetTableName keinen tisch findet abbrechen
If TableName = "" Then
Exit Function
End If
'progdir lesen und string zusammenfügen
ReadHHDir = IniRead("Settings", "ProgramDir")
BetfairHHDir = ReadHHDir & "\"
'dateinamen zusammensetzen
HandHistoryFile = BetfairHHDir & FindHHFile
iFile = FreeFile
'datei einlesen
Open HandHistoryFile For Input As #iFile
asHands = Split(Input(LOF(iFile), #iFile), vbCrLf)
Close #iFile
For iFile = UBound(asHands) To LBound(asHands) Step -1
'schaen ob unser trennzeichen vorkommt
CheckSum = InStr(1, asHands(iFile), " *****", 1)
For CheckSum = 0 To CheckSum = 1
FileOutput = FileOutput & asHands(iFile) & vbCrLf
Next
Next
'hh file ausgeben
Grabber.txtOutput.Text = FileOutput
End Function
könnte mir bitte jemand einen denkanstoß geben wie ich mein vorhaben am besten realisieren kann?
ich hoffe meine erklärung war halbwegs verständlich.
vielen dank für eure hilfe.
mfg fixmer