XProfan

Deutsch

liveFamilie

Hallo,
ich hatte mal wieder etwas Zeit zum lesen und probieren.
Ich wollte einen speichern Dialog machen und habe mir die Beispiele angeschaut und ausprobiert aber nichts klappt so richtig.
Bei diesen Beispielen aus MMJ-Quellcode, Handbuch und HilfeDatei :

Kompilieren Markieren Separieren

Name$ = @SaveFile$("Datei speichern","Normal (.txt)|*.txt")

Hierbei erscheint kein Fenster, es passiert gar nichts bei mir.

Kompilieren Markieren Separieren

Name$ = @SaveFile$("Datei speichern","Test.txt")

Hierbei erscheint das Fenster, ich kann einen Namen eingeben und auf OK klicken, aber wenn ich dann nachschaue ist keine Datei erzeugt worden.

Wo ist bitte schön mein Denkfehler ?
Ich möchte nur den speichern-dialog aufrufen, einen Dateinamen eingeben (Vorgabe sollte txt sein) und wenn ich auf speichern/OK gehe, sollte eine Datei erzeugt werden.
Bitte in Profan V8, für Hinweise wäre ich dankbar.

Gruß
Toni

XProfan 8
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.

28.03.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

liveFamilie

Hallo,
@Nico und Dieter

ja mit euren beiden Lösungen bin ich wieder einen kleinen Schritt weiter. DANKE

@Dieter
Das mit der V9.1 hatte ich zwar schon gelesen, da ich aber nicht so oft im Internet bin, hatte ich es wieder verdrängt.
Dafür war dann heute mal ein Tag der ganzen Programm updates.
Aber getestet ob alles noch so ist wie es war, dazu bin ich noch nicht gekommen.

Auch hier Danke für meine vergesslichkeit, das Alter lässt grüßen.

Toni

XProfan 8
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.

29.03.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Julian
Schmidt

Das Befehl funktioniert genauso, wie er sollte!
Es erstellt einen Dialog zur Auswahl eines Dateipfades, und gibt den Pfad nach der Wahl zurück. Anschließend kannst du den Pfad in deinen Programm verarbeiten, etwa eine Datei auf diesen erstellen o.ä..
Siehe in der Hilfe SaveFile.

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

28.03.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Nico
Madysa

Hallo Toni,

ich versuche mal, auf beide Fragen einzugehen.

liveFamilie (28.03.12)

Kompilieren Markieren Separieren

Name$ = @SaveFile$("Datei speichern","Normal (.txt)|*.txt")

Hierbei erscheint kein Fenster, es passiert gar nichts bei mir.

Probiere doch bitte mal, den folgenden Quelltext aus und sage mir, ob ein Auswahldialog erscheint:

Kompilieren Markieren Separieren

cls
declare name$
name$ = SaveFile$("Datei speichern","Normal (.txt)|*.txt")
end

Bei mir funktioniert er nämlich problemlos.

liveFamilie (28.03.12)

Wo ist bitte schön mein Denkfehler ?
Ich möchte nur den speichern-dialog aufrufen, einen Dateinamen eingeben (Vorgabe sollte txt sein) und wenn ich auf speichern/OK gehe, sollte eine Datei erzeugt werden.
Bitte in Profan V8, für Hinweise wäre ich dankbar.

Dein Denkfehler liegt darin, dass du mit SaveFile$() nur dem Nutzer die Möglichkeit bietest, sich auszusuchen, wo die Datei gespeichert werden soll.

Dafür, dass sie dann auch tatsächlich gespeichert wird, hast du als Programmierer Sorge zu tragen.

Wie du da am besten vorgehst, hängt davon ab, was du speichern willst.
Ein Bild kannst du mit

Kompilieren Markieren Separieren

SavePic Dateiname$, PicHandle&

speichern, eine Textdatei kannst du auf die folgende Weise speichern:

Kompilieren Markieren Separieren

'Das Handle fileHandle& dient dem Zugriff auf die Datei
fileHandle& = Assign(Dateiname$)
'Erstelle eine neue Datei. Falls schon eine besteht, lösche sie:
Rewrite fileHandle&
'Wirf alles, was du in der Textdatei stehen haben willst, per print hinein
print fileHandle&, "Das ist meine Textdatei"
print fileHandle&, superWichtigerText$
'Anschließend muss die Datei geschlossen werden
Close fileHandle&

Ich hoffe, ich konnte helfen.

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

28.03.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

liveFamilie

Hallo Nico,

wenn ich deinen Vorgeschlagenen Code benutze (oder auch den von mir ausprobierten) erscheint null Komma gar nichts.
Ich besitze 3 PC's mit XP, Vista und 7 auf allen habe ich Profan 8 (wegen dem Compiler) drauf.
Es blinkt nur mal kurz ein Fenster auf und ist sofort wieder weg, setzte ich vor End ein Waitinput, erscheint nur das Fenster was von CLS erzeugt wird.
Benutze ich eine höhere Profan Version dann klappt es mit dem Fenster, aber das ist ja nicht mein Verlangen.
Klappt es denn bei dir auch mit der V8 und nichts höherem ?

@Julian
Ich habe viel gelesen auch unter der Hilfe (unter SaveFile) aber leider nichts genaues gefunden.
Daher habe ich mich ja entschlossen mal hier um Rat und Hilfe zu suchen.

Aber ich bekomme unter V8 ja noch nicht einmal das Fenster hin (siehe Text Nico).

Gruß
Toni

XProfan 8
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.

29.03.2012 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Teste mal diesen Code, der läuft bei mir mit Profan 8 unter Win 7 64bit einwandfrei.
es wird ein Textdatei abgespeichert.

Kompilieren Markieren Separieren

CLS
Declare name$
Name$ = SaveFile$("Datei speichern","*.txt")

If name$ <> ""

    assign #1,name$
    rewrite #1
    print #1,"Das ist ein Test"
    close #1

endif

waitinput