Sostituzione caratteri su file Unicode

Creato il: 11.11.2022
Ready Pro non consente l'utilizzo diretto di file Unicode.
Nel caso in cui il file di testo da importare sia un file Unicode potrebbe essere necessario effettuare degli aggiustamenti al file per sostiuire le sequenze unicode con i caratteri locali corretti.

Ad esempio uno script che converte un file Unicode UTF-8 sostituendo le sequenze relative alle lettere accentate potrebbe essere qualcosa di simile al seguente:

Dim FileInput
Dim car
 
FileInput = Rdy.LoadStringFromFile(RowItem.InputFileName)
' Elimina il BOM
FileInput = Replace(FileArticoli, Chr(&HEF) & Chr(&HBB) & Chr(&HBF), "")
' Sostituzione lettere accentate
For car = &H80 To &HBF
      FileInput = Replace(FileArticoli, Chr(&HC3) & Chr(car), Chr(car + &H40))
   Next
   ' Sostituzione di alcuni caratteri speciali di uso frequente
FileInput = Replace(FileArticoli, Chr(&HE2) & Chr(&H80) & Chr(&H9D), """")
   FileInput = Replace(FileArticoli, Chr(&HC2) & Chr(&HAE), "®")
   ......
   ......
   ......

Login