zeilenweises abspeichern einer eingelesenen dat datei

  • VB6

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Einsteiger.

    zeilenweises abspeichern einer eingelesenen dat datei

    Hallo

    Ich suche eine Function mithilfe der ich eine datei systematisch auslesen kann zb:

    >07123408 00MMW mg/m3
    201103100001130.001406
    201103100002130.001546
    201103100003130.001974
    201103100004130.001894
    201103100005130.001504
    201103100006130.001830
    201103100007130.001916
    201103100008130.001482
    201103100009130.001416
    201103100010130.000270
    201103100011130.000401
    201103100012130.001479
    201103100013130.001214
    201103100014130.001048
    201103100015130.001476

    Oben wird definiert was in der datei ist und wie
    dan erste zeile datum uhrzeit und der gemessene wert !

    ich möchte dass es so konvertiert wird

    2011.03.10 00.15 13 0.001476

    Mfg

    Hallo Thx

    hat mich weiter gebracht !
    Jedoch stehe ich vor dem nächstem problem wie erledige ich das für die restlichen zeihlen?
    oder besser gesat wie kann ich jede einzelne zeile in einen string speichern?
    kann ich das auch mit dem namen der datei machen ?wenn ja wie

    THX Baldi

    Visual Basic-Quellcode

    1. Private Sub Command1_Click()
    2. Dim FileLength
    3. f = "C:\Dokumente und Einstellungen\u0325775\Desktop\20110309-11.dat"
    4. Open f For Input As #1
    5. FileLength = LOF(1)
    6. t = Input(FileLength, #1)
    7. Close #1
    8. Text1.Text = t
    9. End Sub
    11. Private Sub Command2_Click()
    12. strText = Text1.Text
    13. strmessnetz = Mid(strText, 2, 2)
    14. strmessstellenk = Mid(strText, 4, 4)
    15. strkomponente = Mid(strText, 8, 8)
    16. strwertetyp = Mid(strText, 12, 16)
    18. MsgBox strmessnetz
    19. MsgBox strmessstellenk
    20. MsgBox strkomponente
    21. MsgBox strwertetyp
    23. End Sub

    Hallo baldi,
    ändere den Code mal so:

    Visual Basic-Quellcode

    1. Private Liste$()
    3. Private Sub Command1_Click()
    5. Dim Dat1$, XFile$
    7. Dat1 = "C:\Dokumente und Einstellungen\u0325775\Desktop\20110309-11.dat"
    8. Open Dat1 For Binary As #1
    9. XFile = Space$(LOF(1))
    10. Get #1, , XFile
    11. Close #1
    12. Liste = Split(XFile, vbCrLf)
    13. XFile = ""
    15. End Sub
    17. Private Sub Command2_Click()
    19. Dim strText$, strmessnetz$, strmessstellenk$
    20. Dim strkomponente$, strwertetyp$, i&
    21. Dim Ans As VbMsgBoxResult
    23. strText = Liste(0)
    24. strmessnetz = Mid$(strText, 2, 2)
    25. strmessstellenk = Mid$(strText, 4, 4)
    26. strkomponente = Mid$(strText, 8, 8)
    27. strwertetyp = Mid$(strText, 12, 16)
    28. MsgBox strmessnetz & vbCr & strmessstellenk & vbCr & _
    29. strkomponente & vbCr & strwertetyp
    30. For i = 1 To UBound(Liste)
    31. Ans = MsgBox(Liste(i) & vbCr & "Weiter?", vbQuestion + vbYesNo)
    32. If Ans = vbNo Then Exit For
    33. Next i
    35. End Sub
    Gruss,

    Neptun

Facebook
Telefonspende