Explaining text files

File.OpenOutput (Dir As String, FileName As String, Append As Boolean)
- Opens the given file for output, the Append parameter tells whether the text will be added at the
end of the existing file or not. If the file doesn't exist it will be created.

Click to expand...

File.OpenOutput(strFolder, fn, True)
    
Private msg As String = "Hello World 2"
File.WriteString(strFolder, fn, msg)
    
Private msg As String = "Hello World 3"
File.WriteString(strFolder, fn, msg)

File.WriteString (Dir As String, FileName As String, Text As String)
- Writes the given text to a new file.

Click to expand...

ilan said:

File.writestring() will create a new file (if it doesnot already exists) and if it exists it will overwrite the existing file.

if you want to append any data to a file you can use outputstream like this:

B4X:

    Dim txt As String = "test "
    Dim bytes() As Byte = txt.GetBytes("UTF8")
    Dim out As OutputStream = File.OpenOutput(File.DirApp, "test.txt", True)
    out.WriteBytes(bytes,0,bytes.Length)
    out.Close

you will need to convert the data to bytes to safe the data but like this you can append data to data that is already existing.

Click to expand...

pliroforikos said:

Thank you,
something without converting to bytes?

Click to expand...

    File.WriteString(File.DirApp,"test.txt","this is the first line")
   
    '....'
   
    Dim sb As StringBuilder
    sb.Initialize
    sb.Append(File.ReadString(File.DirApp,"test.txt")).Append(CRLF).Append("this is the second line")
    File.WriteString(File.DirApp,"test.txt",sb.ToString)

pliroforikos said:

Thank you again
I'm looking for a solution that it will be easy to explain to young students that they are dealing with files for a first time.
And all time i have to do is about 90 - 130 minutes. In this time i have to explain everything about text files, adding text, list and maps making new folders and do some examples and give them some exercises.

Click to expand...