Android Question file txt non leggibile correttamente

[lelelor]

Buona sera, creo un file .txt con un solo campo numerico terminante con crlf, lo passo a VB6 ma non riesco a leggerlo correttamente, su 4 voci presenti ne leggo solo 2, ho altresì creato lo stesso file con una macchina con windows, con quello leggo correttamente il file. Sono ore che cerco di capire dove sia il problema ma niente...

allego i 2 file, uno chiamato GIUSTO.txt e l'altro ERRATO.txt se qualcuno riesce a svelare il mistero...

grazie mille

 

[Pendrush]

Please write in English.

In the GIUSTO.txt file, each line ends with CHR (13) + CHR (10) .... HEX 0D and 0A

In the ERRATO.txt file the lines end without consistency, somewhere there is CHR (13) + CHR (10) as for example in the first line, somewhere is only CHR (10) as for example in the second line.

You can change line end in whole file with for example notepad++

 

[lelelor]

Please write in English.

In the GIUSTO.txt file, each line ends with CHR (13) + CHR (10) .... HEX 0D and 0A
View attachment 114043

In the ERRATO.txt file the lines end without consistency, somewhere there is CHR (13) + CHR (10) as for example in the first line, somewhere is only CHR (10) as for example in the second line.
View attachment 114045

You can change line end in whole file with for example notepad++

sorry, I thought I was writing on the forum Italy, I suspected this, but I can not understand where I am wrong, place the command that writes me the line.
thanks and sorry again

 

[Erel]

Why post it like this?

Post the code directly with code tags.

Sub txtSearch_EnterPressed() 
'    Dim vuoto As String
    Dim pippo As String 
    Dim RigaDaCercare As String
    TIMER1.Enabled=True
    Dim IndexOf As Int
    Label3.Visible =False
    pippo=txtSearch.Text

    txtSearch.Text="" 
 
    lstrighe.Initialize
    lstrighe = File.ReadList(File.DirDefaultExternal, "/anaiper/hj.txt")
    
    RigaDaCercare = "pluto"
  
    IndexOf = lstrighe.IndexOf(RigaDaCercare)

    lstrighe.InsertAt(IndexOf + 1,pippo & Chr(10) & Chr(13) )
      
    File.WriteList(File.DirDefaultExternal, "/anaiper/hj.txt",lstrighe)

    txtSearch.RequestFocus 
End sub

Several mistakes:
1. File.DirDefaultExternal should never be used. Use RuntimePermissions.GetSafeDirDefaultExternal("") instead.
2. Remove this: & Chr(10) & Chr(13)
File.WriteList adds the end of line character (Chr(10)) automatically.

Note that windows end of line = Chr (13) & Chr(10)

 

[LucaMs]

File.WriteList adds the end of line character (Chr(10)) automatically.

Note that windows end of line = Chr (13) & Chr(10)

Try using this:
https://www.b4x.com/android/forum/threads/read-write-windows-lists.131105/post-825493

 

[lelelor]

Why post it like this?

Post the code directly with code tags.

Sub txtSearch_EnterPressed() 
'    Dim vuoto As String
    Dim pippo As String 
    Dim RigaDaCercare As String
    TIMER1.Enabled=True
    Dim IndexOf As Int
    Label3.Visible =False
    pippo=txtSearch.Text

    txtSearch.Text="" 
 
    lstrighe.Initialize
    lstrighe = File.ReadList(File.DirDefaultExternal, "/anaiper/hj.txt")
    
    RigaDaCercare = "pluto"
  
    IndexOf = lstrighe.IndexOf(RigaDaCercare)

    lstrighe.InsertAt(IndexOf + 1,pippo & Chr(10) & Chr(13) )
      
    File.WriteList(File.DirDefaultExternal, "/anaiper/hj.txt",lstrighe)

    txtSearch.RequestFocus 
End sub

Several mistakes:
1. File.DirDefaultExternal should never be used. Use RuntimePermissions.GetSafeDirDefaultExternal("") instead.
2. Remove this: & Chr(10) & Chr(13)
File.WriteList adds the end of line character (Chr(10)) automatically.

Note that windows end of line = Chr (13) & Chr(10)

I did a test:
open the hj.txt file, selected everything, copied and pasted in a new file, saved as hj.txt, ALL PERFECT, why? I go crazy