Android Question Spliting the data in the next row in .txt file

[Izmirov.Yaminovich]

Hi,

I have a sets of datas that look like this when I click on save:

0, 1, 2, 3, 4

Now when I click it again it goes stacking up like this:

0, 1, 2, 3, 4, 5, 6, 7, 8, 9

How do I make it so that when I click it it will start from another row instead of just doing it in a line? For example like this:

0, 1, 2, 3, 4
5, 6, 7, 8, 9

Are there any threads that I miss or not knowing the keywords in the search bar? Please guide me on this.

Thanks

 

[Beja]

I don't know what's in your Click code.. but you can append CRLF at the end of that code whatever it is.

 

[Izmirov.Yaminovich]

Sub Save_click
    Dim str As String = EditText1.text & "," & EditText2.text & "," & Lat.Text & "," & Lon.Text & "," & Time.Text
    Dim writer As TextWriter
    writer.Initialize(File.OpenOutput(File.DirRootExternal,"data.txt",True))
    writer.WriteLine(str & CRLF)
    writer.Close
   
    Msgbox("Saved","")
End Sub

The code is as above. I've tried using CRLF, but it didn't start with another row though.

 

[Descartex]

Try changing this:

writer.WriteLine(str & CRLF)

With this:

writer.WriteLine( CRLF & str)

 

[Izmirov.Yaminovich]

nope, not working. Weird, it should work in normal circumstances.

 

[Dogbonesix]

Try

Sub Save_click
Dim str AsString = EditText1.text & "," & CRLF & EditText2.text & "," & CRLF & Lat.Text & "," & CRLF & Lon.Text & "," & CRLF & Time.Text
Dim writer AsTextWriter
writer.Initialize(File.OpenOutput(File.DirRootExternal,"data.txt",True))
writer.WriteLine(str & CRLF)
writer.Close
Msgbox("Saved","")
End Sub

 

[Izmirov.Yaminovich]

hmm...not working as well. is is because there's a problem with my loadfiles?

Sub setToAddViews
    to_save_views(0) = EditText1
    to_save_views(1) = EditText2
    to_save_views(2) = Lat
    to_save_views(3) = Lon
    to_save_views(4) = Time
End Sub

Sub load
  If Not(File.Exists(File.DirRootExternal,"data.txt")) Then Return
  Dim txt As String = File.ReadString(File.DirRootExternal,"data.txt")
  txt = txt.Replace(" ", "")
  Dim str() As String = Regex.Split(CRLF,txt)
  If Not(str(str.Length-1).Contains(",")) Then Return
  Dim str2() As String = Regex.Split(",",str(str.Length-1))
  For i = 0 To to_save_views.Length-1
      to_save_views(i).Text = str2(i)
  Next
End Sub


Sub Save_click
    Dim str As String = EditText1.text & "," & CRLF & EditText2.text & "," & CRLF & Lat.Text & "," & CRLF & Lon.Text & "," & CRLF & Time.Text
    Dim writer As TextWriter
    writer.Initialize(File.OpenOutput(File.DirRootExternal,"data.txt",True))
    writer.WriteLine(str & CRLF)
    writer.Close
   
    Msgbox("Saved","")
End Sub

 

[Izmirov.Yaminovich]

Sub SaveData(Items() As String)
Dim su As StringUtils
Dim rows as List = Array (Items)
su.SaveCSV(File.DirInternal, "data.txt", ",", rows)
End Sub

Or should I be using the stringutils instead? I was suggested to use this. But I don't really know how though.

 

[mangojack]

nope, not working. Weird, it should work in normal circumstances.

try this ... the data is written to file correctly

Sub Save_Click
    Dim str As String = EditText1.text & "," & EditText2.text & "," & Lat.Text & "," & Lon.Text & "," & Time.Text 
    Dim writer As TextWriter
    writer.Initialize(File.OpenOutput(File.DirRootExternal,"data.txt",True))
    writer.WriteLine(str & CRLF)
    writer.Close
    Msgbox("Saved","")

    ReadFile

End Sub

Sub ReadFile
    Dim TextReader1 As TextReader
    TextReader1.Initialize(File.OpenInput(File.DirRootExternal, "data.txt"))
    Dim line As String
    line = TextReader1.ReadLine 
    Do While line <> Null
        Log(line) 'read the result to logs
        line = TextReader1.ReadLine
    Loop
    TextReader1.Close
End Sub

 

[Izmirov.Yaminovich]

Still not working though. I am opening this file in notepad on my laptop it just shows it in a straight line. But when I open it in my phone, it shows a vertical motion. I do prefer it to be working on the laptop though. Here's an attachment of my coding. Not really sure what's wrong.

 

[mangojack]

Also .. it you might want to get in the habit of giving views more descriptive names .. ie:

btnSave (button) edtLan or txtLan (EditText) lblTime (label)

You will definitely find this useful as you project grows.

 

[Izmirov.Yaminovich]

I'll look up to that. Any more to help in the problem I have? .txt files are not arranging accordingly as it is coded. There's must be something wrong with the code that I failed to notice.

 

[Erel]

You shouldn't use Notepad. It doesn't handle non-Windows end of line characters. Use a proper text editor such as Notepad++.

 

[Izmirov.Yaminovich]

Are there anyway that I can just use it in the notepad Erel?

 

[sorex]

use windows based linefeed.

Dim eol As String = Chr(13) & Chr(10)


Dim str As String = EditText1.text & "," & EditText2.text & "," & Lat.Text & "," & Lon.Text & "," & Time.Text & eol

 

[Izmirov.Yaminovich]

oh, Thanks Sorex. Cool....

 

[mangojack]

here is a slightly revamped work of your project , using @sorex 's suggestion above...

As suggested it might be wise to look at using seperate Activities .. versus hiding/showing Layouts and panels