Ini-Dateien auslesen / auswerten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Ini-Dateien auslesen / auswerten
von: Karsten
Geschrieben am: 09.04.2005 14:04:16
Hallo Forum,
ich suche einen Weg Ini-Dateien auszuwerten, also nach bestimmten Einträgen suchen und dann diese an Variablen in VBA zu übergeben.
Die Ini-Dateien sehen ungefähr so aus:


#Ware1
Gruppe
Einheit
Nummer
Status
#Ware2
Gruppe
Einheit
Nummer
Status

usw.
Das ganze soll nach z.B. Ware1 suchen, dann die wie in diesem Fall vier Daten an die Variablen übergeben.
Irgendwie krieg ich das nicht hin.
Gruß Karsten
Bild

Betrifft: AW: Ini-Dateien auslesen / auswerten
von: Ramses
Geschrieben am: 09.04.2005 14:08:04
Hallo
als Ansatz mal hier vorbei schauen
http://www.office.gmxhome.de/_excel_vba_externe_daten.htm
Bei VBA-Gut sollte der Rest kein problem sein
Gruss Rainer
Bild

Betrifft: AW: Ini-Dateien auslesen / auswerten
von: Karsten
Geschrieben am: 09.04.2005 14:29:32
@Ramses,
den Link kenne ich, aber das mit dem auslesen von Daten die nicht in einer Tabelle steht und dann auch noch gesucht werden muß, da habe ich echt Null Ahnung.
Das Problem ist ich muß das bis Dienstag irgend wie hin bekommen, sonst muß ich das alles per Hand umtragen ;-(
Gruß Karsten
Bild

Betrifft: AW: Ini-Dateien auslesen / auswerten
von: Ramses
Geschrieben am: 09.04.2005 16:57:15
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
Bild

Betrifft: AW: Ini-Dateien auslesen / auswerten
von: Karsten
Geschrieben am: 10.04.2005 13:19:41
Hallo Rainer,
erstmal vielen Dank für Deine Hilfe.
Leider habe ich Tomaten auf den Augen, den bei Deinem VBA ist ein Fehler.
Userbild

Wie ich schon sagte, externe Sachen sind nicht mein Fall.
Aber ich werde mal beim nächsten mal meine VBA Kenntnisse runterschrauben.
Gruß Karsten
Bild

Betrifft: AW: Ini-Dateien auslesen / auswerten
von: Ramses
Geschrieben am: 10.04.2005 14:05:07
Hallo
Sorry, habe deine Office Version nicht beachtet
Ändere die Zeile
Dim TextArr As Variant
in
Dim TextArr As String
Gruss Rainer
Bild

Betrifft: AW: Ini-Dateien auslesen / auswerten
von: Karsten
Geschrieben am: 10.04.2005 14:41:19
Woh, Danke für die schnelle Antwort und korrektur.
Leider ist das so eine Sache mit den Excel Versionen.
Habe jetzt nen neuen Fehler:
Userbild

Sorry, aber momentan stehe ich echt neben mir.
Gruß Karsten
Bild

Betrifft: AW: Ini-Dateien auslesen / auswerten
von: Ramses
Geschrieben am: 10.04.2005 14:49:08
Hallo
öffnende und schliessende Klammern sind irgendwie verloren gegangen :-((
Es muss heissen
Dim TextArr() As String
Gruss Rainer
Bild

Betrifft: AW: Ini-Dateien auslesen / auswerten
von: Karsten
Geschrieben am: 10.04.2005 16:03:51
Hallo Rainer,
SUPER, es funktioniert einwandfrei!!!!
Habe somit den Grundstock für die Auswertung und ich glaube, ich habe auch im großen und ganzen verstanden verstanden wie das ganze funtzt und werde es weiter anpassen können.
Gruß Karsten
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ini-Dateien auslesen / auswerten"