Bestimte Zeichen aus Text Datei

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von LaMa5.

    Bestimte Zeichen aus Text Datei

    Hallo,

    ich habe in einer Text Datei z.B. folgendes stehen:

    00001111000011110000000011111111
    00000000000000000000000000000000
    11111111111111111111111111111111
    ...
    ...
    und das ganze 256 Zeilen lang.

    Nun möchte ich jede einzelne Ziffer einzeln einlesen,
    bzw weiter verarbeiten.

    Mit der Funktion

    Dim AllText as String

    Do Until EOF(F)
    Line Input #F, LineOfText
    AllText = AllText & LineOfText & vbCrLf
    Loop

    bekomme ich ja nur jede ganze Zeile eingelesen.

    Mit der Input Methode immer nur das erste Zeichen:

    Dim Zahl as Boolean

    Do While Not EOF(1)
    Input #1, Zahl
    Loop

    Wie bekomme ich denn jedes einzelne Zeichen ausgelesen?

    Muß ich eine Zeile einlesen, die aus z.B. 32 zeichen besteht, und diese in die einzelnen Ziffern zerlegen?

    Oder gibt es die Möglichkeit, eine Bestimmte Ziffer einzulesen, so in etwa mit Koordinaten, die man angibt, wo das zeichen sich befindet?

    Danke im vorraus...

    Gruß Toby

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TobyTetzi“ ()

    Hi,

    was hältst Du von der Idee die Datei komplett in ein Array einzulesen und Dir eine Routine zu schreiben, die dann via Koordinatensystem auf die Zeichen zugreift ??

    Visual Basic-Quellcode

    1. Dim data() as String
    2. '...
    3. Function getZeichen(x as integer, y as integer) as string
    4. getZeichen = mid(data(y+1),x,1)
    5. End Function
    6. '...
    7. Sub loadData(dName as string)
    8. Dim ff as long
    9. ff = FreeFile
    10. ReDim data(0)
    11. Open dName For Input As ff
    12. Do While Not EOF(ff)
    13. ReDim Preserve data(i)
    14. Line Input #ff, data(i)
    15. i = i + 1
    16. Loop
    17. close #ff
    18. End Sub


    Der Code ist nicht getestet !!! sollte aber ausreichend verdeutlichen wie das Prinzip funktioniert.


    bye ...

    LaMa5.

    Edit by Agent: mit VB-Tag siehts besser aus ;)
    Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
    (Autor: Earl Wilson, amerik. Schriftsteller)

    https://www.serviceteam-md.de

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Agent“ ()