Commondialog Save & Open

  • VB6

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von KirO.

    Commondialog Save & Open

    Heyho..

    Ich hab nen kleines Problem. Ich wollte über die Commondialog funktion speichern. Das funktioniert eigendlich auch. Nun wollte ich aber mehrere Daten so speichern dass ich sie danach einzelnt wieder einlesen kann.

    Visual Basic-Quellcode

    1. CommonDialog1.DialogTitle = "Datei speichern"
    2. If Tagname <> Empty Then CommonDialog1.FileName = Tagname
    3. CommonDialog1.Filter = "Tag u Farben Datei (*.tag)|*.tag|Textdatei (*.txt)|*.txt"
    4. CommonDialog1.InitDir = App.Path
    5. CommonDialog1.ShowSave ' Dialog speichern aufrufen
    7. Open CommonDialog1.FileName For Output As #1
    8. Print #1, Text8.Text
    9. Print #1, rot
    10. Print #1, gruen
    11. Print #1, blau
    12. Close #1


    so hab ich mir das gedacht aber dann weiß ich net wie ich die sachen wieder einlesen kann. (rot gruen blau sind werte)

    //info: ich hab schon im forum gesucht auch manche sachen gefunden aber nix hat mir weitergeholfen

    hoffe mal es kann mir jemand helfen
    THX KirO

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „KirO“ ()

    Ich hoffe ich hab dich Richtig verstanden...

    mach einfach:

    Visual Basic-Quellcode

    1. '...
    2. Print #1, "[TEXT]"
    3. Print #1, Text8.text
    4. Print #1, "[ROT]"
    5. Print #1, rot
    6. Print #1, "[GRUEN]"
    7. Print #1, gruen
    8. Print #1, "[BLAU]"
    9. Print #1, blau
    10. '...



    Beim alslesen sieht das dann in etwa so aus:

    Visual Basic-Quellcode

    1. 'CommonDialog für 'laden' öffnen (.showopen)
    2. '...
    3. Text8.Text = ""
    4. rot = "" ' oder = 0 (kA, was fürn Typ das is)
    5. blau = "" ' oder = 0 ...
    6. gruen = "" ' oder = 0 ...
    8. Open CommonDialog1.Filename for input as #1
    9. While Not EOF(1)
    10. Line Input #1, strLine
    12. select case trim$(strline)
    13. Case "[TEXT]", "[ROT]", "[GRUEN]", "[BLAU]"
    14. strTarget = trim$(strline)
    15. Case Else
    16. select case strTarget
    17. Case "[TEXT]"
    18. If Text8.text <> "" then
    19. Text8.text = Text8.text & vbcrlf
    20. end if
    22. Text8.text = Text8.text & strLine
    23. case "[ROT]"
    24. 'Jez kommts drauf an, obs ne Zahl oder ein String is
    25. 'Wenns nur ne zahl ist, brauchst du einfach nur
    26. Rot = clng(strline) 'schreiben
    27. 'Wenns hingegen ein String is, musst du das selbe wie bei [TEXT] machen
    28. 'Und jez das ganze noch mit case "[GRUEN]" und "[BLAU]"
    29. end select
    30. end select
    31. Loop
    32. close #1
    33. '...



    Ich hoffe mal, dass da keine fehler drin sind.
    Is einfach nur so ausm Kopf runter geschrieben

    Die einfachste Möglichkeit ist:

    Visual Basic-Quellcode

    1. Dim tmp as String
    2. Open CommonDialog1.FileName For Input As #1
    3. Line Input #1, tmp
    4. Text8.Text = tmp
    5. Line Input #1, rot
    6. Line Input #1, gruen
    7. Line Input #1, blau
    8. Close #1
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau