Android Question Read file with UTF8 encoding

Rusty said:

How can I read a UTF8 encoded file from within my application.
The file was created with Notepad++ encoded with UTF8, no BOM (but I can change this)
I have copied the file from Windows to the Android tablet and wish to read it into a string.
Your advice is appreciated.
Thanks,
Rusty

Click to expand...

' returns a 2-bytes-UTF8 String from a 16-Bit Android String
Sub android2utf(android As String) As String
    Dim c() As Byte = android.getbytes("UTF-8")
    Dim utf As String =""
    Dim m As Int = c.Length-1
    For i=0 To m
        utf = utf & Chr(c(i))
    Next
    Return utf
End Sub

' returns a 16-Bit Android String from 2-bytes-UTF8 String
Sub utf2android(utf As String) As String
    Dim m As Int = utf.Length-1
    Dim i As Int
    Dim android(m+1) As Byte
    For i=0 To m
        android(i) = Asc(utf.CharAt(i))
    Next
    Return BytesToString(android, 0, android.Length, "UTF-8")
End Sub

Erel said:

Can you explain when these methods are useful?

It is very simple to read text with any encoding and UTF8 is the simplest one.

Click to expand...

// returns a 2-bytes-UTF8 string from a 16-bit Android-UTF8 array.
function android2utf($a){
    $s="";
    foreach ($a as $r) {
        if ($r < 128 ){ //ascii
            $s .= chr($r);
        }else{ // utf
            $z = intval($r / 64);
            $s .= chr($z+192) . chr($r - ($z-2)*64) ;
        }
    }
    return $s;
}

// returns a 16-bit Android-UTF8 array from 2-bytes-UTF8 string
function utf2android($s){
    $m=strlen($s);
    $i=0;
    $r=array();
    while ($i < $m) {
        if (ord($s[$i]) < 128 ){ //ascii
            $r[] = ord($s[$i]);
            $i++;              
        }else{ // utf
            $r[] = (ord($s[$i])-194 )*64 + ord($s[$i+1]) ;
            $i +=2;
        }
    }
    return $r;
}

In this situation described, if you send encoded numeric data mixed with utf strings, the transmission is faulty.

Click to expand...

Dim Baznr said:

I use this two complementary functions to pass from 2-bytes-UTF8 to 16-bits-Android-UTF8.
Very usefull, also, if you want to exchange strings between a php script and an Android applet.

B4X:

' returns a 2-bytes-UTF8 String from a 16-Bit Android String
Sub android2utf(android As String) As String
    Dim c() As Byte = android.getbytes("UTF-8")
    Dim utf As String =""
    Dim m As Int = c.Length-1
    For i=0 To m
        utf = utf & Chr(c(i))
    Next
    Return utf
End Sub

' returns a 16-Bit Android String from 2-bytes-UTF8 String
Sub utf2android(utf As String) As String
    Dim m As Int = utf.Length-1
    Dim i As Int
    Dim android(m+1) As Byte
    For i=0 To m
        android(i) = Asc(utf.CharAt(i))
    Next
    Return BytesToString(android, 0, android.Length, "UTF-8")
End Sub

Click to expand...