Import von Datei

  • Ich hoffe, ich kann mein Problem darstellen.
    Also ich habe vor mir eine Datei die aus einer SQL-Anweisung kreirt wurde. Die Information sehen nach einer Strukturierten Form aus und beginnen in der ersten Zeile mit ,sog. Idendifier ( 2 Buchstaben), dahinter folgt eine Menge an Daten.
    Beispiel: 1 Datensatz
    AAabhierkommendaten1.Datensatz
    bbkanntextsein
    bbnochmehrtext
    ccauchnochtext
    -2.ter Datensatz
    AAhierkommendatensätze aus dem2.Satz
    bbwiebekannttext
    cc.......
    Meine Frage: wie kann ich den Datensatz innerhalb der Identifizierer (in diesem Beispiel AA) auslesen und in ein Dokument bringen? Habe vielleicht ein Blackout?!?!?!
    Ich habe schon zum testen folgendes versucht:


    Dim fileNum As Integer
    Dim fileName As String
    Dim firstCheck As String
    fileNum% = Freefile()
    fileName$ = "C:\Test.chi"


    Open fileName$ For Input As fileNum%
    While Not Eof(0)
    firstCheck$ = Input$(2, fileNum%)

    If firstcheck$="AA" Then
    HDR1$=Input$(300,FileNum%)

    Messagebox firstcheck$
    Messagebox HDR1$

    End If
    Wend
    Close fileNum%


    Die Daten werden eingelesen, aber die Identifier übersprungen. Vielleicht ist auch mein Ansatz dumm, aber z.Z. fällt mir halt nichts ein.

  • Bei deinem Quelltext werden nur Daten ausgegeben, die mit den zeichen AA beginnen, daher werden die Identifiere Zeilen natürlich übersprungen, da die messageboxen sich innerhalb der If Bedingung befinden.