Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Mark7788

Anmeldungsdatum: 21.01.2006 Beiträge: 77 Wohnort: Frankfurt Freebasic
|
Verfasst am: 28.03.2006, 20:38 Titel: 2 Fragen |
|
|
Hi!
frage 1:
Wie kann ich dem basic programm sagen das er in die datei name.txt was schreiben soll (ganz normal)
OPEN "name.txt" FOR OUTPUT AS #1
WRITE #1, name$
CLOSE #1
nur wenn die datei Name.txt bereits exestiert soll er anstatt die datei "name.txt" zu ersetzen eine neue erstellen "name2.txt" und wenn beim nächsten mal auch name2.txt exestiert das er dann name3.txt anlegt usw?
frage2:
gibt es eine möglichkeit , das man den text der mit Print ausgegeben wird immer mittig in dem fenster anordnet? also wenn ich:
Print ""dies ist ein Test"
Schreibe , das er dies immer mittig anordnet auf dem bildschirm?
danke!
mfg
Markus  _________________ www.DasMillionenQuiz.de.vu ; www.Mkse.de.vu |
|
Nach oben |
|
 |
Devilkevin aka Kerstin

Anmeldungsdatum: 11.11.2004 Beiträge: 2532 Wohnort: nähe Mannheim
|
Verfasst am: 28.03.2006, 21:09 Titel: |
|
|
Zu Frage 1: Steht in der MonsterFAQ auf qbasic.de ("Wie prüfe ich ob eine Datei vorhanden ist?" - oder so änhlich)
Zu 2: Weis ich nicht. Vielleicht wen du das ganze über SHELL druckst gibts da vllt. einen Parameter. _________________ www.piratenpartei.de |
|
Nach oben |
|
 |
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1876 Wohnort: D59192
|
Verfasst am: 28.03.2006, 21:51 Titel: |
|
|
zu 1.
Hier ging es um ähnliche Probleme:
http://forum.qbasic.at/viewtopic.php?p=22880#22880
zu 2.
Text$="dies ist ein Test"
Locate Zeilenanzahl \2, (Zeilenbreite -Len(Text$)) \2
Print Text$ _________________ Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
Nach oben |
|
 |
oldirty

Anmeldungsdatum: 04.08.2005 Beiträge: 65
|
Verfasst am: 28.03.2006, 23:06 Titel: |
|
|
Hallo,
zu 1.:
Code: |
'dat$=Dateiname, der überprüft werden soll, ob er vorhanden ist
'Gibt fexists mit 0 zurück, falls Datei nicht vorhanden
'ansonsten -1
Declare Function fexists(dat$)
Function fexists(dat$)
f=Freefile
Open dat$ For Append As #f
If Lof(f)=0 Then
fexists=0
kill dat$
Else
fexists=-1
End If
Close #f
End Function
|
|
|
Nach oben |
|
 |
Michael712 aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005 Beiträge: 1593
|
Verfasst am: 29.03.2006, 16:21 Titel: |
|
|
Wieso so kompliziert, wenn es auch FB eigene und bessere Mittel gibt?
Deine Methode klappt nicht, wenn es 0 byte große dateien sind, dafür macht man einfach:
[url="http://freebasic.de/Referenz.php?zeig=tuts&col1=a0d5d0&ref=yes&show=OPEN"]Link[/url]
Da dort aber ein kleiner Fehler ist:
Code: |
SELECT CASE OPEN ("file.ext" FOR INPUT AS #1)
CASE 0
PRINT "Datei existiert und ist bereit."
CASE 2
PRINT "Datei existiert nicht!" 'in deinem Fall müsste nur das überprüft werden
CASE ELSE
PRINT "Fehler beim Öffnen der Datei!"
END SELECT
|
Michael |
|
Nach oben |
|
 |
|