Messwerte aus einer Textdatei in Excel einlesen

  • Excel

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von joethebot.

    Messwerte aus einer Textdatei in Excel einlesen

    Hallo,

    ich bin neu hier und habe nicht sonderlich viel Erfahrung mit VBA.

    Ich schreibe grad meine Masterarbeit und habe von einem Diplomanden eine Exceldatei zur Verfügung gestellt bekommen.

    In dieser Datei ist ein Makro(?) mit Button, der aus einer Textdatei, welche von einem FEM-Programm ausgegeben wurde, Werte zur Verformung und Krafteinleitung einliest.

    Es werden verschiedene Lastschritte in Blöcken aufgezeichnet. Aus diesen Lastschritten liest das VBA-Programm die Werte ein. Manchmal kann es sein, dass in dem ersten dieser Lastschritte (Blöcke) keine Aufzeichnungen von dem FEM Programm gemacht werden und eine "Null" in die Textdatei geschrieben wird. An dieser Stelle, also in der ersten Zeile, liest das Programm eine Null ein und speichert sie unter der Variable Count. Später wird durch diesen Wert (Count) geteilt. Da man nicht durch null teilen kann gibt das Programm einen Debug Fehler aus.

    Hier Teile des Programms:

    Quellcode

    1. If typ Then Sum = Sum / Count * (-1) AddtRow Step, Sum, ExcelRowNr
    2. Else:
    3. Sum = Sum / (1000) AddfRow Step, Sum, ExcelRowNr End If End If Wend



    gerne schicke ich auch eine datei, welche eingelesen werden muss und den ganzen programm code per pn an einen netten forumsbesucher, der helfen will.

    ich danke euch schon mal allen im voraus und verzeiht mir, wenn ich mich nicht korrekt ausgedrückt habe bezüglich der fachsprache.

    meine frage (danke picoflop :) ) lautet:

    wie kann ich dem programm sagen, dass die Null überspringen werden soll, falls eine vorhanden ist in der Zeile. eine null schreibt das programm diana übrigens folgendermassen : 0.000E+00

    eine schnelle idee von mir war, dass ich eine if schleife einbaue, die eben abfragt, ob die zeile eine mull enthält oder nicht----??!!

    gruß

    hannes

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

    hmmm
    was ist die FRAGE?

    dass ich eine if schleife einbaue

    Wenn du das tust, dann hauen wir dich ... Klick mich

    Aber sicherlich ist das Abfragen/Abfangen der 0 per if schon die richtige Lösung

    if count <> 0 then
    If typ Then Sum = Sum / Count * (-1) AddtRow Step, Sum, ExcelRowNr
    Else:
    Sum = Sum / (1000) AddfRow Step, Sum, ExcelRowNr End If End If
    endif

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

    mußte gerade herzlichst lachen :D

    Visual Basic-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Try
    3. Dim c As Long = 0
    4. Dim a As Int32Dim b As Int32
    5. a = 4
    6. b = 0
    7. c = a / b
    8. Catch ex As OverflowException
    9. MessageBox.Show("Böser böser Datentypbereichsfehler")
    10. End Try
    11. End Sub


    war meine Idee ^^

    oh man...

    bin beeindruckt, wie schnell ihr antowrtet...

    vielen dank..

    ich muss jetzt eine berechnung abwarten, bis ich wieder eine datei habe, die ich einlesen kann...

    morgen werde ich dann berichten, ob es geklappt hat...

    danke danke danke

    gruß

    hannes

    nochmal hallo zusammen,

    leider ist das problem damit nicht behoben. ich werde euch einfach die txt datei anhängen und hoffe auf eure hilfe.

    vielen dank.


    Visual Basic-Quellcode

    1. Sub Makro1()
    3. Dim ExcelRowNr
    4. Dim Step
    5. Dim typ
    7. ExcelRowNr = 1
    8. Step = 0
    9. typ = False
    11. AddRow "Lastschritt", "Kraft [kN]", "Lastschritt", "Durchbiegung [mm]", ExcelRowNr
    12. AddRow 0, 0, 0, 0, ExcelRowNr
    15. Dim DLG
    16. DLG = Application.GetOpenFilename("Diana Dateien (*.txt), *.txt")
    18. Open DLG For Input As #1
    20. Dim Text
    21. Dim Sum
    22. Dim Count
    24. While Not EOF(1)
    26. Input #1, Text
    27. zaehler = zaehler + 1
    28. If Mid(Text, 1, 4) = "Step" Then
    29. Step = Mid(Text, 23)
    30. Sum = 0
    31. Count = 0
    33. Input #1, Text
    34. Input #1, Text
    35. Input #1, Text
    36. Input #1, Text
    37. Input #1, Text
    38. zaehler = zaehler + 5
    40. If Mid(Text, 13, 1) = "T" Then
    41. typ = True
    42. Else:
    43. typ = False
    44. End If
    46. Input #1, Text
    47. Input #1, Text
    48. While Not EOF(1) And Not Len(Trim(Text)) < 2 And Not IsEmpty(Trim(Text)) And IsNumeric(Text)
    49. Sum = Sum + CDbl(Text)
    50. Count = Count + 1
    51. Input #1, Text
    52. If Not EOF(1) Then
    53. Input #1, Text
    54. End If
    55. Wend
    56. If typ Then
    57. Sum = Sum / Count * (-1)
    58. AddtRow Step, Sum, ExcelRowNr
    59. Else:
    60. Sum = Sum / (1000)
    61. AddfRow Step, Sum, ExcelRowNr
    62. End If
    64. End If
    65. Wend
    68. Close #1
    70. If typ Then
    71. AddtRow "Ende", "", ExcelRowNr
    72. Else:
    73. AddfRow "Ende", "", ExcelRowNr
    74. End If
    78. End Sub
    80. Private Sub AddRow(t1, t2, t3, t4, Row)
    81. ActiveSheet.Cells(Row, 1) = t1
    82. ActiveSheet.Cells(Row, 2) = t2
    83. ActiveSheet.Cells(Row, 3) = t3
    84. ActiveSheet.Cells(Row, 4) = t4
    85. Row = Row + 1
    86. End Sub
    88. Private Sub AddfRow(t1, t2, Row)
    89. ActiveSheet.Cells(Row, 1) = t1
    90. ActiveSheet.Cells(Row, 2) = t2
    91. Row = Row + 1
    92. End Sub
    94. Private Sub AddtRow(t3, t4, Row)
    95. ActiveSheet.Cells(Row, 3) = t3
    96. ActiveSheet.Cells(Row, 4) = t4
    97. Row = Row
    98. End Sub



    in dieser textdatei von diana sind verschiedene blöcke. ein block sieht so aus...

    Quellcode

    1. Analysis type NONLIN
    2. Step nr. 1
    3. Load factor 1.060E+02
    4. Result DISPLA TOTAL TRANSL
    5. Axes GLOBAL
    7. Nodnr TDtZ
    8. 350 0.000E+00
    9. 353 0.000E+00
    10. 356 0.000E+00
    11. 361 0.000E+00
    12. 366 0.000E+00
    13. 454 0.000E+00
    14. 457 0.000E+00
    15. 460 0.000E+00
    16. 465 0.000E+00
    17. 498 0.000E+00
    18. 501 0.000E+00
    19. 504 0.000E+00
    20. 509 0.000E+00
    21. 2142 -2.169E-02
    22. 2145 -2.156E-02
    23. 2148 -2.149E-02
    24. 2153 -2.162E-02
    25. 2158 -2.152E-02
    26. 2246 -2.146E-02
    27. 2249 -2.148E-02
    28. 2252 -2.147E-02
    29. 2257 -2.147E-02
    30. 2290 -2.156E-02
    31. 2293 -2.168E-02
    32. 2296 -2.152E-02
    33. 2301 -2.161E-02



    es gibt 90 dieser blöcke...mein ziel ist es, die 0.000E+00 - Reihen zu übergehen und einfach nicht zu beachten. denn jetzt gibt excel immer ein debugger fehler aus. die knotennummer (nodnr) bleibt in allen blöcken immer die gleiche...

    der debugger fehler wird in zeile 61 angezeigt...

    könnt ihr mir nochmal helfen??

    vielen lieben dank im voraus


    gruß

    hannes
    Dateien

    • durchbiegung.txt

      (98,94 kB, 199 mal heruntergeladen, zuletzt: )

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

    Visual Basic-Quellcode

    1. If typ and count <> 0 Then
    2. Sum = Sum / - cdbl(Count)
    3. AddtRow Step, Sum, ExcelRowNr
    5. ' Last-Ergebnisse
    6. Else:
    7. Sum = Sum / (1000)
    8. AddfRow Step, Sum, ExcelRowNr
    9. End If



    Der Punkt ist dein Counter kann 0 sein,

    2. Punkt kann der Datentyp sein

    dim sum as double

    dim count as integer

    vielen dank...

    das makro erstellt ja vier spalten.
    in der ersten und in der dritten werden nur die lastschritte ausgegeben.

    die zweite spalte gibt er nach den im post #8 aufgeführten veränderungen auch super aus (kraft). allerdings bleibt spalte 4 (verschiebung) komplett leer.

    habt ihr eine idee??
    hab euch mal die excel datei angehängt...einfach auf import klicken und die txt-datei, die ich in post#5 hochgeladen habe einlesen lassen
    gruß

    hannes

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

    ich komm einfach nicht drauf...

    den logikfehler verstehe ich...aber wie kann ich das programm ändern??

    da ich das programm nicht selber geschrieben habe, ist es schwer, alles nachzuvollziehen.

    vielleicht würde mir eine helfen und mir ein kleinen programm schreiben, wenn es nicht zuviel aufwand ist.

    ich habe also folgendes problem:

    ich würde gerne aus dieser datei, die ich mit dem editor öffnen kann, folgende sachen in einer excel tabelle ausgeben lassen:

    Quellcode

    1. Durchbiegung Page 1
    3. Analysis type NONLIN
    4. Step nr. 1
    5. Load factor 1.060E+02
    6. Result DISPLA TOTAL TRANSL
    7. Axes GLOBAL
    9. Nodnr TDtZ
    10. 350 0.000E+00
    11. 353 0.000E+00
    12. 356 0.000E+00
    13. 361 0.000E+00
    14. 366 0.000E+00
    15. 454 0.000E+00
    16. 457 0.000E+00
    17. 460 0.000E+00
    18. 465 0.000E+00
    19. 498 0.000E+00
    20. 501 0.000E+00
    21. 504 0.000E+00
    22. 509 0.000E+00
    23. 2142 -2.169E-02
    24. 2145 -2.156E-02
    25. 2148 -2.149E-02
    26. 2153 -2.162E-02
    27. 2158 -2.152E-02
    28. 2246 -2.146E-02
    29. 2249 -2.148E-02
    30. 2252 -2.147E-02
    31. 2257 -2.147E-02
    32. 2290 -2.156E-02
    33. 2293 -2.168E-02
    34. 2296 -2.152E-02
    35. 2301 -2.161E-02
    38. Analysis type NONLIN
    39. Step nr. 1
    40. Load factor 1.060E+02
    41. Result FORCE REACTI TRANSL
    42. Axes GLOBAL
    44. Nodnr FBZ
    45. 350 -1.970E+01
    46. 353 -4.257E+01
    47. 356 -4.222E+01
    48. 361 -8.645E+01
    49. 366 -8.498E+01
    50. 454 -4.196E+01
    51. 457 -4.222E+01
    52. 460 -8.390E+01
    53. 465 -8.395E+01
    54. 498 -4.256E+01
    55. 501 -1.970E+01
    56. 504 -8.498E+01
    57. 509 -8.644E+01
    61. Analysis type NONLIN
    62. Step nr. 2
    63. Load factor 2.120E+02
    64. Result DISPLA TOTAL TRANSL
    65. Axes GLOBAL
    67. Nodnr TDtZ
    68. 350 0.000E+00
    69. 353 0.000E+00
    70. 356 0.000E+00
    71. 361 0.000E+00
    72. 366 0.000E+00
    73. 454 0.000E+00
    74. 457 0.000E+00
    75. 460 0.000E+00
    76. 465 0.000E+00
    77. 498 0.000E+00
    78. 501 0.000E+00
    79. 504 0.000E+00
    80. 509 0.000E+00
    81. 2142 -4.337E-02
    82. 2145 -4.312E-02
    83. 2148 -4.297E-02
    84. 2153 -4.323E-02
    85. 2158 -4.303E-02
    86. 2246 -4.292E-02
    87. 2249 -4.297E-02
    88. 2252 -4.293E-02
    89. 2257 -4.293E-02
    90. 2290 -4.312E-02
    91. 2293 -4.337E-02
    92. 2296 -4.303E-02
    93. 2301 -4.323E-02
    96. Analysis type NONLIN
    97. Step nr. 2
    98. Load factor 2.120E+02
    99. Result FORCE REACTI TRANSL
    100. Axes GLOBAL
    102. Nodnr FBZ
    103. 350 -3.939E+01
    104. 353 -8.514E+01
    105. 356 -8.443E+01
    106. 361 -1.729E+02
    107. 366 -1.700E+02
    108. 454 -8.392E+01
    109. 457 -8.444E+01
    110. 460 -1.678E+02
    111. 465 -1.679E+02
    112. 498 -8.513E+01
    113. 501 -3.939E+01
    114. 504 -1.700E+02
    115. 509 -1.729E+02
    119. Analysis type NONLIN
    120. Step nr. 3
    121. Load factor 3.180E+02
    122. Result DISPLA TOTAL TRANSL
    123. Axes GLOBAL
    125. Nodnr TDtZ
    126. 350 0.000E+00
    127. 353 0.000E+00
    128. 356 0.000E+00
    129. 361 0.000E+00
    130. 366 0.000E+00
    131. 454 0.000E+00
    132. 457 0.000E+00
    133. 460 0.000E+00
    134. 465 0.000E+00
    135. 498 0.000E+00
    136. 501 0.000E+00
    137. 504 0.000E+00
    138. 509 0.000E+00
    139. 2142 -6.506E-02
    140. 2145 -6.468E-02
    141. 2148 -6.446E-02
    142. 2153 -6.485E-02
    143. 2158 -6.455E-02
    144. 2246 -6.438E-02
    145. 2249 -6.446E-02
    146. 2252 -6.440E-02
    147. 2257 -6.440E-02
    148. 2290 -6.468E-02
    149. 2293 -6.505E-02
    150. 2296 -6.455E-02
    151. 2301 -6.484E-02
    154. Analysis type NONLIN
    155. Step nr. 3
    156. Load factor 3.180E+02
    157. Result FORCE REACTI TRANSL
    158. Axes GLOBAL
    160. Nodnr FBZ
    161. 350 -5.909E+01
    162. 353 -1.277E+02
    163. 356 -1.266E+02
    164. 361 -2.593E+02
    165. 366 -2.549E+02
    166. 454 -1.259E+02
    167. 457 -1.267E+02
    168. 460 -2.517E+02
    169. 465 -2.519E+02
    170. 498 -1.277E+02
    171. 501 -5.909E+01
    172. 504 -2.550E+02
    173. 509 -2.593E+02
    177. Analysis type NONLIN
    178. Step nr. 4
    179. Load factor 4.240E+02


    in der zeile 1 soll in spalte A "Stufe" stehen, in spalte B "Kraft" und in C soll "Verschiebung stehen.

    die tb-datei(hier eine txt datei, weil ich andere dateien nicht hochladen kann) würde ich gerne aussuchen können.

    in zeile 2 soll in den spalten 1-3 jeweils eine null geschrieben werden.
    jetzt soll aus der datei zunächst Step eingelesen werden und in die zelle A3 geschrieben werden.
    dann sollen die einzelnen zahlen unter TDtZ eingelesen werden und durch ihre anzahl geteilt werden.hierbei muss aber, wie in step 1 erkennbar, die nodnr 350-509 übersprungen werden, da sie null sind. die anzahl der nodnr kann sich aber ändern, also muss jede zeile eingelesen werden und geprüft werden. nodnr 2142-2301 soll der wert eingelesen werden und wie gesagt durch, in diesem fall 13, geteilt werden und in der spalte "Verschiebung2 geschrieben werden in der zeile von step 1.
    danach soll das gleiche mit der kraft geschehen (die werte unter FBZ)...diese werte sollen auch addiert werden und durch sich selber geteilt werden (mittelwert). dann soll diese zahl in der spalte "Kraft" in zeile 1 geschrieben werden.

    das soll dann so lange wiederholt werden, bis alle lastschritte(steps) abgearbeitet sind...

    im prinzip soll das gleiche geschehen wie in dem oben aufgeführtem programm, doch wie schon gesagt überspringt er die 0.000E+00 zeilen nicht und gibt einen fehler aus.




    vielen dank schonmal für eure hilfe...ihr würdet mir echt stunden von arbeit erleichtern......


    gruß

    hannes
    Dateien

    • durchbiegung.txt

      (111,29 kB, 194 mal heruntergeladen, zuletzt: )

    Ich hab' jetzt keine Lust mich durch deinen Code zu wühlen.
    Aber wenn es dir nur um die Zeilen mit »0.000E+00« geht, kannst eine temporäre Datei ohne die entsprechenden Zeilen erstellen.
    Einfach deinen Codeabschnitt:

    Visual Basic-Quellcode

    1. …
    2. Dim DLG
    3. DLG = Application.GetOpenFilename("Diana Dateien (*.txt), *.txt")
    5. Open DLG For Input As #1
    6. …


    durch folgenden ersetzen:

    Visual Basic-Quellcode

    1. …
    2. DIM DLG AS STRING, t AS STRING
    3. DIM DLGtmp AS STRING
    5. DLG = Application.GetOpenFilename("Diana Dateien (*.txt), *.txt")
    6. DLGtmp ="DLGtmp.txt" '<--- evtl. noch LW:\Pfad\ angeben
    8. OPEN DLG FOR INPUT AS #1
    9. OPEN DLGtmp FOR OUTPUT AS #2
    10. WHILE NOT EOF(1)
    11. LINE INPUT #1, t
    12. IF INSTR(t, "0.000E+00") = 0 THEN
    13. PRINT #2, t
    14. END IF
    15. WEND
    16. CLOSE
    18. OPEN DLGtmp for input as #1 ' Jetzt mit der temporären Datei arbeiten
    19. …

Facebook