| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Mark7788
Anmeldungsdatum: 21.01.2006
Beiträge: 77
Wohnort: Frankfurt Freebasic
|
 Verfasst am: 02.02.2007, 19:27 Titel: Textdokument mit zahl speichern |
 |
|
Hallo!
kann mir zufällig jemand erklären wie ich eine textdatei erzeugen kann wo im dokumentennamen eine beliebige nummer mit drin vorkommt?
sowas wie: OPEN "Datei"+date$".txt" FOR OUTPUT AS #1 funktioniert ja aber sobald ich mit zahlen ankomme streikt er ... warum?
mein code schaut so aus:
OPEN "Datei"+nummer%".txt" FOR OUTPUT AS #1
Danek schonmal!
Grüße
Markus
_________________
www.DasMillionenQuiz.de.vu ; www.Mkse.de.vu |
|
| Nach oben |
|
 |
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 02.02.2007, 19:33 Titel: |
|
|
Is schnell gelöst:
OPEN "Datei"+str(date$)+".txt" FOR OUTPUT AS #1
OPEN "Datei"+str(nummer%)+".txt" FOR OUTPUT AS #1 |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 02.02.2007, 20:06 Titel: |
|
|
noch besser, um das leerzeichen zu vermeiden:
| Code: |
dim date as string
dim nummer as integer
OPEN "Datei"+trim(str(date))+".txt" FOR OUTPUT AS #1
OPEN "Datei"+trim(str(nummer))+".txt" FOR OUTPUT AS #1
|
ich habe die prefixe $ und % entfernt, da die nicht mehr unterstützt werden. Die habe ich nun durch string/integer ersetzt.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 02.02.2007, 20:12 Titel: |
|
|
| PMedia hat Folgendes geschrieben: | | Code: | | OPEN "Datei"+str(date$)+".txt" FOR OUTPUT AS #1 |
|
Date vom Typ String in einen String umwandeln?
Overkill oder Bug?
| Code: | | OPEN "Datei"+date$+".txt" FOR OUTPUT AS #1 |
Geht ja wunderbar.
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 02.02.2007, 20:15 Titel: |
|
|
stimmt bei string war gar kein handlungsbedarf - aber bei zahlen eben^^
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 02.02.2007, 20:28 Titel: |
|
|
Ups, war mir gar net aufgefallen 
Ging halt um Zahlen, da is mir alles gleich |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 02.02.2007, 20:35 Titel: |
|
|
da is mir grad aufgefallen... dass er ja DATE$ verwenet... TIME$ ginge natürlich nicht, wegen den doppelpunkten... also aufpassen wenn du mit solchen funktionen arbeitest. oder liefert Date$ nicht auch ein datum in form von 02/02/2007 zurück? das ginge natürlich genau so wenig wie 20:37:45, wegen den doppelpunkten.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 02.02.2007, 23:40 Titel: |
|
|
Hi,
machs doch so | Code: | 'Ä=Ž , Ö=™ , Ü=š ; ä=„ , ö=”, ü=? , ß=á ,§=õ , ©=¸
'Screen 0: Width 80, 25
Option Explicit
Declare Function Replace(byVal Text As String, byVal Suche As String, byVal ErsetzeMit As String) As String
Dim i As Integer
Dim DateiName As String="protokoll_" &Replace(Date, "-", "") &"_" &Replace(Time, ":", "") &".prt"
?DateiName
?"Eniki..";
Sleep
Function Replace(byVal Text As String, byVal Suche As String, byVal ErsetzeMit As String) As String
Dim i As Long, s As String=Text
While Instr(s, Suche)
i=Instr(s, Suche)
s=Left(s, i-1) &ErsetzeMit &Mid(s, i+Len(Suche))
Wend
Return s
End Function |
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
Mark7788
Anmeldungsdatum: 21.01.2006
Beiträge: 77
Wohnort: Frankfurt Freebasic
|
| Verfasst am: 03.02.2007, 14:23 Titel: |
|
|
Danke für die codes! funktioniert bei mir alles gut. Leider hab ich das problem seitdem ich jetzt folgenden code programmiert hab:
OPEN "Data"+trim(str(anzahl%+1))+".txt" FOR OUTPUT AS #1
das er mir alle dateien ins hauptverzeichnis macht. Leider funktioniert nehmlich bei mir die anweißung:
OPEN exepath+"\Files\Data"+trim(str(anzahl%+1))+".txt" FOR OUTPUT AS #1
ich will ereichen das er mir die "Data.txt" datei mit der nummer in der Textdatei in den Unterordner "Files" kopiert.
Was mach ich da jetzt falsch? sonst hats doch immer so funktioniert *confused*
Liebe Grüße
Markus
_________________
www.DasMillionenQuiz.de.vu ; www.Mkse.de.vu |
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
|
| Nach oben |
|
|
Mark7788
Anmeldungsdatum: 21.01.2006
Beiträge: 77
Wohnort: Frankfurt Freebasic
|
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
