[Hilfe]Textdatei bestimmte zeile auslesen Visual Basic 2015

  • Sonstige

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von peterkalinowska.

    [Hilfe]Textdatei bestimmte zeile auslesen Visual Basic 2015

    hey

    kann mir jemand helfen wie ich die textdatei auslesen kann?


    beispiel.txt
    ================

    Quellcode

    1. AreaDataFile
    3. ObjectCount 4
    5. Start Object000
    6. 9622.782227 -24617.035156 16909.705078
    7. 1862926655
    8. 0.000000#0.000000#95.000000
    9. 0.000000
    10. End Object
    11. Start Object001
    12. 10525.650391 -22190.673828 16670.675781
    13. 1862926655
    14. 0.000000#0.000000#93.000000
    15. 0.000000
    16. End Object
    17. Start Object002
    18. 7703.757324 -22802.085938 16198.387695
    19. 3515438753
    20. 0.000000#0.000000#225.000000
    21. 250.000000
    22. End Object
    23. Start Object003
    24. 10815.890625 -22568.177734 16633.517578
    25. 3864081929
    26. 0.000000#0.000000#98.000000
    27. 0.100000
    28. End Object



    ich möchte gerne nur diese zeile auslesen, nach größe sotieren und doppelte einträge löschen
    kann mir da einer von euch helfen?

    Zeile 7. --> 1862926655
    Zeile 13.--> 1862926655
    Zeile 19.--> 3515438753
    Zeile 25.--> 3864081929

    Willkommen im Forum.
    Das sind ein bisken zu wenig Infos. Ist denn der Dateiaufbau immer gleich? Dann

    VB.NET-Quellcode

    1. Dim AllOfYourFileLines = IO.File.ReadAllLines(Dateipfad)
    2. Dim TheLinesYouAreInterestedIn As New List(Of String)
    3. For i = 7 To AllOfYourFileLines.Count -1 Step 6
    4. TheLinesYouAreInterestedIn.Add(AllOfYourFileLines(i))
    5. Next
    6. Dim DifferentLines = TheLinesYouAreInterestedIn.Distinct
    7. Dim DifferentLinesInOrderedFashion = DifferentLines.OrderBy(Function(x) x)

    Ggf. noch in Zahlen umwandeln (erst umwandeln, dann sortieren) und in ein Array umwandeln:

    VB.NET-Quellcode

    1. Dim FinalList = TheLinesYouAreInterestedIn.Distinct.Select(Function(x) Integer.Parse(x)).OrderBy(Function(x) x).ToArray

    Aber irgendwie habe ich das Gefühl, dass das Dateiformat nicht so konstant wie gezeigt ist.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

Facebook
Telefonspende