XProfan

Italia

liveFamilie

Ciao,
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 File 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 File erzeugt werden.
Bitte in Profan V8, per Hinweise wäre ich dankbar.

Saluto
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 Citazione Zeilenweise Citazione

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

liveFamilie

Ciao,
@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 per 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 Citazione Zeilenweise Citazione

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 File diesen erstellen o.ä..
Siehe in der Aiuto SaveFile.

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

28.03.2012 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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 File erzeugt werden.
Bitte in Profan V8, per Hinweise wäre ich dankbar.

Dein Denkfehler liegt darin, dass du mit SaveFile$() nur dem Nutzer die Möglichkeit bietest, sich auszusuchen, wo die File 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 File
fileHandle& = Assign(Dateiname$)
'Erstelle eine neue File. 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 File 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 Citazione Zeilenweise Citazione

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 Aiuto (unter SaveFile) aber leider nichts genaues gefunden.
Daher habe ich mich ja entschlossen mal hier um Rat und Aiuto zu suchen.

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

Saluto
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 Citazione Zeilenweise Citazione

Dieter
Zornow

Teste mal diesen Code, der corre 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