txt Datei erstellen

  • VB6

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von VBnator.

    txt Datei erstellen

    Hallo,
    Ich möchte gerne ,dass wenn man auf einen Button klickt
    eine txt Datei in einem bestimmten Verzeichniss angelegt wird (am besten noch mit Inhalt der vom Benutzer über eine TextBox eingegeben werden kann).

    Ist so etwas möglich? Wenn ja wie?


    Danke schonmal im voraus

    Der Script geht nicht ;(. Ich bekomme immer diese Meldung:

    Laufzeitfehler '52'

    Dateiname oder -nummer falsch.

    Hab den Dateiname auch schon auf eine bereits angelegte Datei abgeändert doch es passiert nichts.

    Maynard, auf deinen Link kann ich nicht zugreifen. Meine Rechte sind noch nicht hoch genug.

    Hi,

    @Maynard
    a) Du hast Recht, er hätte (und sollte) die SuFu zuerst benutzen.
    b) Werden wir nicht wütend, sondern möchten nur vermeiden, das immer wieder die selben Themen durchgekaut werden. ;)

    @VBnator
    1. solltest Du die Dateinummer ermitteln (FreeFile) und nicht festlegen (#1)
    2. poste mal Deinen Quelltext


    bye ...

    LaMa5.
    Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
    (Autor: Earl Wilson, amerik. Schriftsteller)
    https://www.serviceteam-md.de

    Gerade habe ich eine Lösung gefunden. :D :D :D
    Musste den Script etwas ändern:

    Visual Basic-Quellcode

    1. Private Sub Save_Click()
    2. Open "C:/Dokument1.txt" For Output As #1
    3. Print #1, "Hallo"
    4. Close #1
    5. End Sub


    So klappts.

    Danke für eure Hilfe.

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

    Original von Metal Freak

    Visual Basic-Quellcode

    1. Open App.Path & "C:/whatever/blabla.txt" For Output As #1 Print #1, "Dein Text"
    2. Close #1


    Na, dann würde er ja vermutlich sowas wie

    "c:\programme\visual basic\lists\testprogramm c:\whatever\blabla.txt"

    versuchen zu öfnen. Dürfte schwer fallen :)

    Ich würde gerne noch durch eine InputBox den Dateinamen
    bestimmen können. Weiss nur nicht wie ich das machen soll.
    Könnte mir bitte jemand einen passenden Quelltext schreiben?

    EDIT:
    Hat sich erledigt. Für die InputBox habe ich folgenden

    Quelltext geschrieben:

    Visual Basic-Quellcode

    1. x = InputBox("Bitte Laufwerkbuchstabe und Dateiname mit der endung .txt eingeben.(Beispiel: C:\Dokument.txt) für weitere Informationen in Hilfe nachsehen!")


    Und damit es unter dem angegenbenen Daten gespeichert wird:

    Visual Basic-Quellcode

    1. Open x For Output As #1
    2. Print #1, Text1
    3. Close #1
    4. End Sub


    (Text1 ist die TextBox)
    Danke für eure Hilfe.
    Hier ist das Programm was ich gemacht habe. Es heisst MiniTexter:

    MiniTexter downloaden -


    Edit by LaMa5: Bitte keine Doppelposts --> Beiträge zusammengefügt

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

    Hi,

    Warum hast Du hier 2 Thread's mit dem gleichen Thema ??
    --> 2ter Thread geschlossen!!

    Solltest Du in Deinem Programm nicht auch die Möglichkeit anbieten Textdateien einzulesen ?? Was nützt es mir, wenn ich die Texte speichern kann, aber später nicht mehr laden ?

    Die Auswahl des Dateinamens würde ich über einen CommonDialog machen. Das ist übrigens das gleiche Steuerelement wie für Deine Druckfunktion!!


    bye ...

    LaMa5.
    Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
    (Autor: Earl Wilson, amerik. Schriftsteller)
    https://www.serviceteam-md.de

    Ich bau ne Lesefunktion ein. Mit dem CommonDialog das hab ich schon versucht. Nur wenn ich die Datei speichern will passiert nichts. Daer Dialog öffnet sich zwar ,aber mehr kann der bei mir nicht. Hab es immer wieder versucht. Ich krieg es einfach nicht hin.

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

    Hi,

    der Dialog ist ja auch nicht zum Speichern da!! Er dient lediglich dazu den Dateinamen komfortabel zu erfassen.

    Zum Speichern nutzt Du Deine fertige Speichern Funktion und tauschst einfach nur den Dateinamen aus.


    bye ...

    LaMa5.
    Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
    (Autor: Earl Wilson, amerik. Schriftsteller)
    https://www.serviceteam-md.de

    Hab ne lösung:

    Vorher:

    Visual Basic-Quellcode

    1. CmDialog2.Flags = &H2&
    2. CmDialog2.Filter = "Text (*.txt)|*.txt"
    3. CmDialog2.Action = 2
    4. s = (CmDialog2.FileName)
    5. Ausgang:
    6. Exit Sub
    7. Open s For Output As #1
    8. Print #1, Text1
    9. Close #1
    10. End Sub


    Nacher (das funktioniert)

    Visual Basic-Quellcode

    1. CmDialog2.Flags = &H2&
    2. CmDialog2.Filter = "Text (*.txt)|*.txt"
    3. CmDialog2.Action = 2
    4. s = (CmDialog2.FileName)
    6. Open s For Output As #1
    7. Print #1, Text1
    8. Close #1
    9. End Sub


    Ich dussel. Ich durfte das

    Visual Basic-Quellcode

    1. Exit Sub
    nicht setzen.
    Wegen dem Exit Sub wurde der untere Speicherbefehl nicht mehr ausgeführt da vorher beendet wurde.

    Hier gibt es den Neuen MiniTexterV2.0 zum downloaden.
    Hinweis: Die gespeicherten Dateien sind MiniTexter Dateien (*.mtda).

    MiniTexter V2.0 downloaden

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „VBnator“ ()

    Hi,

    @bsHobbit
    sollte man statt #1, nicht freefile benutzen ?


    wie ich weiter oben schon mal geschrieben habe:

    J A . ;)


    bye ...

    LaMa5.
    Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
    (Autor: Earl Wilson, amerik. Schriftsteller)
    https://www.serviceteam-md.de

Facebook
Telefonspende