string eocoded to windows-1253

[kalarius]

hi,

I have the follow code
dim conv as byteconversion

content=File.ReadList("\mnt\sdcard","smsposition.txt")

UeshArxeioy=content.Get(0)
Ypografh=content.get(1)
Byt=conv.StringToBytes(Ypografh,"windows-1253") or ISO-8859-7

Log(Ypografh)

all then bytes of byt =26
how to get back from byt the string to ypografh ?

 

[mc73]

You need bytesToString?

Basic4android Search: bytestostring

 

[adamioan]

I don't understand what you really want. Below is an example about how to read and write in 1253.

' Διάβασμα αρχείου που περιέχει ελληνικούς χαρακτήρες
Sub LoadTextFile(sFolder As String, sFile As String) As String 
Dim TR As TextReader 
Dim sInputed As String 

   Try
      ' Έλεγχος για αν υπάρχει το αρχείο
      If File.Exists(sFolder, sFile) Then ' Το αρχείο υπάρχει
         ' Άνοιγμα αρχείου
         TR.Initialize2(File.OpenInput(sFolder, sFile), "windows-1253")
         ' Διάβασμα περιεχομένων
         sInputed=TR.ReadAll
         ' Κλείσιμο
         TR.Close
      End If
      Return sInputed
   Catch
      ' Καταγραφή σφάλματος
      Log("LoadTextFile Error")
   End Try
End Sub

' Εγγραφή αρχείου που θα περιέχει ελληνικούς χαρακτήρες
Sub SaveTextFile(sFolder As String, sFile As String, sContents As String )
Dim TW As TextWriter 

   Try
      ' Δημιουργία και άνοιγμα αρχείου
      TW.Initialize2(File.OpenOutput(sFolder, sFile, False), "windows-1253")
      ' Εγγραφή περιεχομένων
      TW.Write(sContents)
      ' Κλείσιμο
      TW.Close 
   Catch
      ' Καταγραφή σφάλματος
      Log("SaveTextFile Error")
   End Try
End Sub

 

[kalarius]

for mc73
thank

for adamioan
αυτό ακριβώς έψαχνα να βρω Στο εγχειρίδιο θα έχεις παρατηρήσει ότι θεωρούν οτι χρήστη ξέρει ήδη τις περιγραφές στις βιβλιοθήκες.
Έχω ένα αρχείο στη κάρτα που περιέχει ελληνικούς χαρακτήρες και όταν το διαβάζω για να στείλω sms μου στέλνει μόνο ερωτηματικά.
Ευχαριστώ
**** αν ξέρεις και πώς θα διαβάσω ενα αρχείο απο windows xp υπολογιστή ....,
γιατί με την smb βιβλιοθήκη δεν μπορώ να βγάλω νόημα.