Sub ReadTextReader (Nom As String)
Dim TextReader1 As TextReader
Dim sb As StringBuilder
Dim line As String
Dim h As String
Dim i As Int
Dim S As String
sb.Initialize
TextReader1.Initialize(File.OpenInput(File.DirAssets , Nom))
line = TextReader1.ReadLine
Do While line <> Null
line = TextReader1.ReadLine
'---- debug
For i=1 To line.Length -1
S= line.CharAt(i-1)
Log (S & " " & Asc(S))
Next
'--- end debug
sb.Append(line).Append(CRLF)
Loop
TextReader1.Close
h=sb.ToString
Return h
End Sub