AW: Ini-Dateien auslesen / auswerten
09.04.2005 16:57:15
Ramses
Hallo
hier der leicht angepasste Code.
Option Explicit
Option Base 1
Sub Write_New_Lines_in_extern_File()
'Hilfsvariable für Anzahl Datensätze
Dim Text1 As String
'Suchvariable
Dim suchText As String
'Variablen für Ergebnis
Dim Var1, Var2, Var3, Var4
'Variablen für den Array nötig
Dim TxtLines As Long, i As Long
Dim TextArr As Variant
'Schliessen einer geöffneten Datei
Close #1
'Variablen Deklarieren
suchText = "Ware1"
'1. Öffnen der Datei
'Den Namen und Pfad bitte anpassen
Open "c:\demo.ini" For Input As #1
'Die anzahl ist nötig um die Gröss des Arrays zu deklarieren
'Zähler auf 0 setze
TxtLines = 0
Do While Not EOF(1) ' Schleife bis Dateiende.
Input #1, Text1 ' Hilfsvariable zum einlesen verwenden
' Zähler hochzählen
TxtLines = TxtLines + 1
Loop
'Schliessen der Datei weil Dateiende erreicht wurde
Close #1
'Erneutes Öffnen um zum Dateianfang zu kommen
Open "c:\demo.ini" For Input As #1 ' Datei zum Einlesen öffnen.
'Array neu auf die Anzahl der Linien initialisieren
ReDim TextArr(TxtLines)
'Einlesen der Dateien in das Array
For i = 1 To TxtLines
Input #1, TextArr(i)
Next i
Close #1
'Array durchsuchen
For i = 1 To UBound(TextArr)
If TextArr(i) = suchText Then
Var1 = TextArr(i + 1)
Var2 = TextArr(i + 2)
Var3 = TextArr(i + 3)
Var4 = TextArr(i + 4)
'Einlesen der Variablen beenden
Exit For
End If
Next i
'Damit hast du deine vier Variablen
MsgBox Var1 & Chr$(13) & Var2 & Chr$(13) & Var3 & Chr$(13) & Var4
End Sub
und hier die passende Musterdatei
https://www.herber.de/bbs/user/20914.txt
Die Datei nach C: koipieren und umbenennen in "Demo.ini"
Den Rest wirst du ja wohl selbst schaffen
Gruss Rainer