 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Forennutzer87
Anmeldungsdatum: 21.03.2012
Beiträge: 1
|
 Verfasst am: 21.03.2012, 14:13 Titel: Daten fortlaufend in csv oder txt (log-Funktion) |
 |
|
Hallo,
ich bin absolut neu im Thema Free Basic.
Google hat mir schon geholfen, wie ich erfahre, dass Werte in einer Datei abgespeichert werden.
| Code: | OPEN "test.txt" FOR OUTPUT AS #1
WRITE #1, c
CLOSE #1 |
Leider wird die txt damit immer wieder überschrieben.
Wie muss der Code angepasst werden, damit die Werte immer in eine neue Zeile kommen (wie in einer Log Datei)?
Ideal wäre es, wenn sich auch mehrere Werte mit Simikoloin getrennt in eine Zeile könnten (b, Datum und Zeit).
mfg |
|
| Nach oben |
|
 |
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
| Verfasst am: 21.03.2012, 17:41 Titel: |
|
|
Hallo und willkommen im Forum!
Beides, was du vorhast, ist ziemlich einfach möglich. 
Anhängen an eine Datei:
| Code: | OPEN "test.txt" FOR APPEND AS #1
WRITE #1, c
CLOSE #1 |
Einfach OUTPUT (=Neu anlegen oder, wenn vorhanden, überschreiben) durch APPEND (=Neu anlegen oder, wenn vorhanden, fortsetzen) ersetzen.
Komma- bzw. Semikolongetrennte Werte sind auch ganz einfach zu machen:
Variante 1:
| Code: | Dim As String MeinName = "Sebastian"
Dim As Integer Beispielzahl = 421337, ZahlX = 7000
OPEN "test.txt" FOR APPEND AS #1
WRITE #1, MeinName, Beispielzahl, ZahlX
CLOSE #1 |
erzeugt in der Datei die Zeile
| Code: | | "Sebastian",421337,7000 |
Wenn du stattdessen lieber ein Semikolon als Trennzeichen möchtest:
Variante 2:
| Code: | Dim As String MeinName = "Sebastian"
Dim As Integer Beispielzahl = 421337, ZahlX = 7000
OPEN "test.txt" FOR APPEND AS #1
PRINT #1, DATE;
PRINT #1, ";";
PRINT #1, TIME;
PRINT #1, ";";
PRINT #1, MeinName;
PRINT #1, ";";
PRINT #1, Str(Beispielzahl);
PRINT #1, ";";
PRINT #1, Str(ZahlX) '<-- wichtig: Hier kein Semikolon mehr am Ende!
CLOSE #1 |
Ausgabe:
| Code: | | 03-21-2012;16:40:12;Sebastian;421337;7000 |
Viele Grüße!
Sebastian
_________________
Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen! |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
