Befehl-für das zweite "ausführen" eines Buttons

[Nico192]

OK!!

1) Die Textdatei soll beim ersten ausführen des programmes erstellt werden
2) Nach dem zweiten ausführen des Programmes, soll der Text (der eingegeben wird) an das, dass schon in der Text-datei steht drangehangen und nicht ersetzt werden
3) 2 .exe-dateien; eine zum eingeben in die Textdatei; und eine zum auslesen!!

>---< Was genau willst du denn aus der Textdatei auslesen ? Die Texte oder .... >---<
was kann man denn auser Texten (buchstaben) aus einer Textdatei auslesen lassen

Danke N!C0 192

P.S. Hoffe das reicht erstmal!!

 

[JensG]

Textdatei schreiben und gegenfalls Text anfügen

Dim f as Integer
f = FreeFile
Open (deine Datei) For Append As f
        Print #f, "Zeile1"
        Print #f, "Zeile2"
Close #f

Textdatei lesen

Dim Textzeile as String

Open deine Datei For Input As f 
    Do While Not EOF(f)  
          Line Input #f, TextZeile
          MSGBOX Textzeile
    Loop
Close #f

Wieso eigentlich 2 Exe ?
Und was man mit Textdateien noch auslesen kann ?
Mit .NET z.B. Objekte

So und nun nutzt du mal zur Abwechslung die Suche im Forum oder deinen besten Freund die F1 Taste ich bin nämlich erst mal weg für heute.


Jens

 

[Nico192]

Hi

Hat alles geklappt!!
2.exe-dateien, damit es übersichtlicher bleibt..

Nun würde ich noch gerne einrichten, dass...

1) ...alles nach "case16" wieder bei "case1" anfängt (hab mich ma umgeguckt, hat aber alles net gefunzt
2) ...man mit nem ComboBox, verschiedene "Kategorien auszuwählen" (pro kategorie ne form, oda?)

Danke für die Hilfe
N!C0 192

EDIT: Also etwas das man aus der ComboBox auswählen kann, hab ich schon-nur die Befehle(aufbau) fehlt noch...ach und des mit dem:

Dim Textzeile as String

Open deine Datei For Input As f 
    Do While Not EOF(f)  
          Line Input #f, TextZeile
          MSGBOX Textzeile
    Loop
Close #f

net ganz (hab wie es bei dem anderen Code auch funktionierte habe ich anstatt:
>> datei name << >> "D:\openme.txt <<

Aber bei dem hier scheint dies nicht zu funktionieren

Danke N!C0 192