Encoding to text

Devo convertire una stringa in una variabile Text.

Il codice di test che ho utilizzato il seguente:

dim a as text dim Wordstr as string wordstr = "00FF" a = WordStr.ToText

Fin qui tutto OK!

Nel programma che sto scrivendo, il seguente codice mi da il seguente errore: “String must have a know encoding”

Dim data as string Dim a as text Dim wordstr as string dim Values(-1) as integer ....... for looper = 1 to Data.Len step 4 WordStr = midb(Data,looper+2,2) WordStr =WordStr + midb(Data,looper,2) WordStr = WordStr.ConvertEncoding(Encodings.UTF8) 'La riga seguente genera l' errore a = WordStr.ToText if WordStr <> "" then values.Append(integer.fromHex(a)) next .......

Nota:

  • I dati provengono da una connessione TCP.
  • Ho provato con svariate codifiche ASCII,…

Dove sto sbagliando ?

Bisogna usare DefineEncoding e non ConvertEncoding.

Per trasformare in text devi avere un encoding definito nella stringa.
Per controllare puoi richiedere la relativa propriet alla stringa (se viene da TCP o comunque da memoryblock sicuramente nil)