Code für das Einlesen von einer Zeile aus mehreren Dateien

  • Excel

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von vba-noob111.

    Code für das Einlesen von einer Zeile aus mehreren Dateien

    Hallo,

    Ich bin unwissender Anfänger was VBA angeht und habe folgendes Problem.

    Ich habe viele .dis-Dateien die ich gerne in Excel weiterverarbeiten würde.

    Ich würde gerne die vorletzte Zeile der .dis-Datei in die erste Zeile meiner Excel Tabelle übertragen.

    Die dis.-Dateien sehen immer gleich aus. Im Anhang befindet sich eine Beispieldatei.

    Ich brauche pro Spalte einen Wert aus der vorletzten Zeile (durch Leerzeichen getrennt).

    Für jede neue .dis-Datei soll eine Zeile weitergesprungen werden in Excel.

    Vielen Dank im Voraus.

    Gruß Reinhold
    Dateien

    • Beispiel.zip

      (3,72 kB, 66 mal heruntergeladen, zuletzt: )

    Willkommen im Forum.

    Ich hab mir (und ggf. der Nachwelt?) jetzt mal ne ReadAllLines-Function zusammengeschustert, mit der Du weiterarbeiten kannst. Das ist keine fertige Lösung!

    Visual Basic-Quellcode

    1. Sub Makro1()
    2. Dim Text() As String
    3. Text = ReadAllLines("C:\Users\Zed\Desktop\Beispiel.dis")
    4. End Sub
    6. Function ReadAllLines(FileName As String) As String()
    7. Dim Result() As String
    8. If Dir(FileName) = "" Then
    9. ReDim Result(0)
    10. ReadAllLines = Result
    11. Exit Function
    12. End If
    14. Set fs = CreateObject("Scripting.FileSystemObject")
    15. Set f = fs.OpenTextFile(FileName, 1, 0)
    16. Dim CompleteText As String
    17. Dim Count As Integer
    18. CompleteText = f.ReadAll
    19. Count = StringCountOccurrences(CompleteText, vbCrLf)
    20. ReDim Result(Count)
    21. f.Close
    22. Set f = fs.OpenTextFile(FileName, 1, 0)
    23. For i = 0 To Count - 1
    24. Result(i) = f.ReadLine
    25. Next
    26. ReadAllLines = Result
    27. End Function
    29. Function StringCountOccurrences(strText As String, strFind As String, Optional lngCompare As VbCompareMethod) As Long '*
    30. Dim lngPos As Long
    31. Dim lngTemp As Long
    32. Dim lngCount As Long
    33. If Len(strText) = 0 Then Exit Function
    34. If Len(strFind) = 0 Then Exit Function
    35. lngPos = 1
    36. Do
    37. lngPos = InStr(lngPos, strText, strFind, lngCompare)
    38. lngTemp = lngPos
    39. If lngPos > 0 Then
    40. lngCount = lngCount + 1
    41. lngPos = lngPos + Len(strFind)
    42. End If
    43. Loop Until lngPos = 0
    44. StringCountOccurrences = lngCount
    45. End Function

    * shamelessly stolen from codevba.com

    @petaod & @mumpel: Geht das nicht noch effizienter?
    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.

    Ein Testbeispiel für eine Datei.
    Ergebnisse werden in Zeile 1 eingetragen.

    Visual Basic-Quellcode

    1. Sub test()
    2. Dim t$, i&, L&, arr$()
    4. Open "D:\#0\Beispiel.dis" For Binary As #1 '<--- Pfad anpassen
    5. L = LOF(1) - 150
    6. t = Space$(150)
    8. Seek #1, L
    9. Get #1, L, t
    10. Close
    11. 'Debug.Print t
    12. t = Split(t, vbCrLf)(1)
    13. Debug.Print t
    14. While InStr(t, " ")
    15. t = Replace(t, " ", " ")
    16. Wend
    17. Debug.Print t
    18. arr = Split(t, " ")
    19. For i = 1 To UBound(arr, 1)
    20. Cells(1, i) = arr(i)
    21. Next
    23. End Sub

    Hallo,
    Danke erstmal für eure schnelle Hilfe.

    @Eierlein: Der Code funktioniert super. Allerdings brauche ich die drittletzte Zeile und nicht die vorletzte, hatte mich geirrt.

    Wie müsste ich den code verändern um an die drittletzte Zeile zu gelangen?

    LG Reinhold