Android Question Special Character Decoding Reading txt file.

[Chianca]

Hello, I have a text file that contains some lines and special characters words like "CAFÉ".

When I'm using de code below, the words that contains special characters returns with other characters, like "CAF■".

dim FileReaderList as List
    FileReaderList.initialize
FileReaderList = File.ReadList(File.DirAssets,"MyFile.txt")
msgbox(FileReaderList.get(0),"")

The original line inside the .txt file is: "0001 CAFÉ SÃO BRAZ"
The return is: "0001 CAF• S¬O BRAZ"

NOTE:. These characters used to show the return (• and ¬) are symbolic.

 

[Erel]

File.ReadList assumes that the text file is encoded with UTF8.

This is not the case here. You can use TextReader instead of File.ReadList. It will allow you to use a different encoding (probably ISO-8859-1 is the correct one).

 

[Luis Miguel T. Martins]

Erel, can you give a example please? Thanks

 

[Erel]

Can you upload the text file?

 

[Luis Miguel T. Martins]

Can you upload the text file?

Remember, I need the return of a specific line, I need just the line 123 for example. Thanks

 

[Erel]

You can use this code:

Dim tr As TextReader
tr.Initialize2(File.OpenInput(File.DirAssets, "english.txt"), "ISO-8859-1")
Dim lines As List = tr.ReadList
tr.Close

 

[Luis Miguel T. Martins]

this work, thanks Erel

Dim lines As List
Dim tr As TextReader

...

Sub lingua(l_number As Int) As String
l_number=l_number-1
tr.Initialize2(File.OpenInput(File.DirDefaultExternal, "english.txt"), "ISO-8859-1")
lines = tr.ReadList
tr.Close

'return the line text with ç á ü ƒ etc

Return(lines.Get(l_number))

End Sub

 

[James Chamblin]

Glad you found a solution, but I would suggest making a couple small changes. No need to read the file again every time you need to access a line.

Dim lines As List
Dim tr As TextReader
...

Sub lingua(l_number As Int) As String
    l_number=l_number-1
    If lines.isInitialized = False Then
        tr.Initialize2(File.OpenInput(File.DirDefaultExternal, "english.txt"), "ISO-8859-1")
        lines = tr.ReadList
        tr.Close
    End If

    'return the line text with ç á ü ƒ etc

    Return(lines.Get(l_number))

End Sub