Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

2 Fragen

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Mark7788



Anmeldungsdatum: 21.01.2006
Beiträge: 77
Wohnort: Frankfurt Freebasic

BeitragVerfasst am: 28.03.2006, 20:38    Titel: 2 Fragen Antworten mit Zitat

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 happy
_________________
www.DasMillionenQuiz.de.vu ; www.Mkse.de.vu
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen MSN Messenger
Devilkevin
aka Kerstin


Anmeldungsdatum: 11.11.2004
Beiträge: 2532
Wohnort: nähe Mannheim

BeitragVerfasst am: 28.03.2006, 21:09    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 28.03.2006, 21:51    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
oldirty



Anmeldungsdatum: 04.08.2005
Beiträge: 65

BeitragVerfasst am: 28.03.2006, 23:06    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Michael712
aka anfänger, programmierer


Anmeldungsdatum: 26.03.2005
Beiträge: 1593

BeitragVerfasst am: 29.03.2006, 16:21    Titel: Antworten mit Zitat

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
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
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.

 Impressum :: Datenschutz