B4J Question Try to make a safe dialoig

[appie21]

Hi

I try to save a local txt file
But I get this error

B4J line: 135
ret = fd.Show(\
javac 1.8.0_121
src\b4j\example\main.java:139: error: package android.graphics does not exist
_ret = _fd.Show((java.lang.CharSequence)("Please Enter File Name"),"Save","Cancel","",ba,(android.graphics.Bitmap)(anywheresoftware.b4a.keywords.Common.Null));
                                                                                                          ^
1 error

my code is

Sub BtnStop_Click
    Dim fd As FileDialog
    Dim ret As Int
    Dim sets As Map
    fd.FastScroll = True
    fd.FilePath = File.DirApp ' also sets ChosenName to an emtpy string
    fd.ChosenName = "txt"
    ret = fd.Show("Please Enter File Name", "Save", "Cancel", "",Null)
    If ret = -1 Then
        sets.Clear
        sets.Put("TextArea1", TextArea1.Text)
        
        File.WriteMap(fd.FilePath, fd.ChosenName & ".txt", sets)
    End If
End Sub

What do I wrong
I have add Dialog 4.01 to the libary

 

[stevel05]

FileDialog is an android library. In B4j you can use FileChooser, it is an internal library.

 

[appie21]

oops
But now ho to save my file File.WriteString(File.DirApp, "1.txt", TextArea1.Text)

 

[stevel05]

If you know where you want to save the file, you don't need Filechooser, otherwise see the documentation: https://www.b4x.com/b4j/help/jfx.html#filechooser

 

[appie21]

Hi thanks

I want that the user can save the file where he want

Where do i set the action for (when pressed the save button?)


I have now

    DialogSave.Initialize
    DialogSave.setExtensionFilter("tekst", Array As String("*.txt"))
    DialogSave.ShowSave(MainForm)

The data what i will save is File.DirApp, "1.txt" or found in TextArea1.Text

I have found this out (didn't work because file is damaged after reopen

DialogSave.Initialize
    DialogSave.setExtensionFilter("tekst", Array As String("*.txt"))
    DialogSave.ShowSave(MainForm)
    Log (DialogSave.InitialDirectory)
    File.WriteString(DialogSave.InitialDirectory, DialogSave.InitialFileName, TextArea1.Text)

 

[stevel05]

The showsave method returns the selected filepath

Try this:

DIm FP As String = DialogSave.ShowSave(MainForm)
If FP = "" Then Return
File.WriteString(File.GetFileParent(FP), File.GetName(FP), TextArea1.Text)

 

[appie21]

Thank you