Android Question Export the text file after save it (B4X TextEditor example)

[asales]

I'm using this example:

[B4X] TextEditor - Save and load external files

This is a B4i and B4A example, which demonstrates various external files related tasks. The behavior is not exactly the same as the platforms capabilities and behavior are different. B4A Load external files, including online files, using ContentChooser. Save to an external target, using...

www.b4x.com

and I want to export the text file using intent, after save it.

How can I get the path of the saved file and open an intent to share it?

Wait For (FileHandler1.SaveAs(in, "text/plain", "NewFile.txt")) Complete (Success As Boolean)
If Success Then
    < INTENT TO SHARED THE FILE ?? >  '<- Here
End If

Thanks in advance for any tip.

 

[Mahares]

I want to export the text file using intent, after save it.

Here is how I did it, it works, but I am not sure it is a good approach. Let's hope Erel can make it more elegant and practical.

Private Provider As FileProvider 'in class_globals
Provider.Initialize
If Success Then
        toast.Show("File saved successfully")        
        wait for (CreateFileToSend) Complete (Res As Object)    
    Else
        toast.Show("File not saved")
    End If
    
    Dim email As Email
    email.To.Add("[email protected]")
    email.Subject = "Spain"
    email.body = "Useful information promised"
    email.Attachments.Add(Provider.GetFileUri("asales.txt"))
    Dim Myin As Intent = email.GetIntent
    Myin.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
    StartActivity(Myin)   
End Sub

Sub CreateFileToSend As ResumableSub    
    Dim b() As Byte = txtField.Text.GetBytes("UTF8")
    Dim Inps As InputStream
    Inps.InitializeFromBytesArray(b, 0, b.Length)    
    Dim out As OutputStream
    out = File.OpenOutput(Provider.SharedFolder,  "asales.txt", False)
    File.Copy2(Inps,  out)
    out.Close
    Return Null
End Sub

 

[Erel]

CreateFileToSend looks much more complicated than it should be.

1. No reason to make it return a ResumableSub. There is no call to Wait For or Sleep inside.
2. It can be replaced with:

File.WriteString(Provider.SharedFolder,  "asales.txt", txtField.Text)