XProfan

English

E.T.

following situation:

If through @RTF("LoadRTF"... a before begot, vain rtf-File loaded becomes, becomes these to the loading not again released, To the program terminates. this exit in the Interpreter and in the finished exe on.

around the To illustrate, Please I the subesquent View source to start and:
1. on the Button 1. The 3 boxing in 3 Files Save To clicking
___Dann go The RichEdits each (without Error) in a File written.
2. on the Button 2. The begot 3 Files new reading To clicking
___Hier becomes then Error:6?? zurückgegeben

If I now again on the Button 1. ... click (too, if I now in Box 3 something reinschreibe), sustain I the Error 32. the heist, The File is yet opened !! the can integrally slight understand, if one The File RTF-Test_3.rtf (if the Prog yet runs) in z.B. Word opens and there on Save clicking. one can also try, with yet laufendem Prog The 3 begot rtf-Files To delete, with the first and the second works the, with the third becomes verweigert. in this Context is me too noticed, the one Erase on The concerned File no %ioresult setting (so be I first on it come, the The File yet opened is). interestingly is too, the the Explorer no Attribut "schreibgeschützt" with this File indicating.

here time my Test-code, I hope, I Have me verständlich enough framed:
Compile Mark Separation

Declare rtf_box&[], rtf_Btn&[]Ich liebe diese dynamischen Variablen
Declare Ende%, rtf_error%
Window 800,600
rtf_box&[1] = @Create("RichEdit",%HWnd,"RTF-Box 1",10,10,770,90)
rtf_box&[2] = @Create("RichEdit",%HWnd,"RTF-Box 2",10,110,770,90)
rtf_box&[3] = @Create("RichEdit",%HWnd,"",10,210,770,90)Diese Box bitte leer lassen !!
rtf_Btn&[1] = @Create("Button",%HWnd,"1.   Die 3 Boxen in 3 Datein speichern",10,350,770,25)
rtf_Btn&[2] = @Create("Button",%HWnd,"2.   Die erzeugten 3 Datein neu einlesen",10,400,770,25)
Clear Ende%

WhileNot Ende%

    waitinput

    If @Clicked(rtf_Btn&[1])Speichern

        WhileLoop 3

            rtf_error% = @RTF("SaveRTF",rtf_box&[&loop],"RTF-Test_" + @str$(&loop) + ".rtf")
            Case rtf_error% : @messagebox("RTF-Fehler : "+@str$(rtf_error%),"FEHLER BEIM SPEICHERN, Datei : "+ @str$(&loop),64)
            Clear rtf_error%

        EndWhile

    Elseif @Clicked(rtf_Btn&[2])Laden

        SetText rtf_box&[1],""
        SetText rtf_box&[2],""
        SetText rtf_box&[3],""

        WhileLoop 3

            rtf_error% = @RTF("LoadRTF",rtf_box&[&loop],"RTF-Test_" + @str$(&loop) + ".rtf")
            Case rtf_error% : @messagebox("RTF-Fehler : "+@str$(rtf_error%),"FEHLER BEIM LADEN, Datei : "+ @str$(&loop),64)
            Clear rtf_error%

        EndWhile

    EndIf

EndWhile

end

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

12/06/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dieter
Zornow

the whole has nothing with the release To do, RTF() has one
Completed: clear RTF-Files. it'll indeed always The 3. vain File
angemeckert.
I have time first The Files created,
the Program then exits and simply The before begot Files read.
The Error coming just as.

have then with a others Program The 3. vain File loaded something written,
but the new written can here not abspeichern.
means can with Profanmitteln a vain already abgespeicherte RTF-File not new
describe.
The problem shining but already since the undokumentierten Call() To consist, only that
then a Error Message coming. In RTF() comes no Error Message More but the trouble
isn't fixed

as workaround can you the following use.

case gettext$(rtf_box[&loop]) = "":settext rtf_box&[&loop]," "

If in all 3 Files something standing, operates your Program without Error Message.

one can of a grundsätzlichen BUG in RTF() or in the Richedit go out
with Wordpad goes But without Problems and the uses still certainly ditto
one Richedit.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

12/06/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote