Il carattere è questo:
http://it.wikipedia.org/wiki/Punto_mediano
http://www.unicodemap.org/details/0x1427/index.html
Su Vista e VS2010 Asc("ᐧ") da 63.
Come ti hanno fatto notare è un problema di codifica del testo, a livello di codice vba non ti so dire come lavorare ma penso che puoi risolvere modificando appunto la codifica del file.
Prova a copiare il carattere in un file di testo e a salvarlo, dovrebbe darti un' avviso, se dai ok e riapri il file trovi il ? mentre se dai annulla si apre una finestra di dialogo in cui puoi cambiare la codifica del file, ho provato con unicode e utf-8 e alla riapertura il carattere è corretto.
Non ho excel sotto mano per provare con vba (uso openoffice...) ma potresti pensare di fare il replace del carattere con un programma in vb.net visto che a me riconosce il carattere e lo sostituisce.
Questo è il codice in vb.net per leggere un txt e fare il replace:
codice:
Private Sub Button2_Click() Handles Button2.Click
Dim cartella As String = My.Computer.FileSystem.SpecialDirectories.Desktop
' il file prova.txt deve esistere sul desktop e deve contenere il carattere
Dim nomefile As String = cartella & "\prova.txt"
Dim nomefile_mod As String = cartella & "\prova2.txt"
Dim tempFile As String = System.IO.Path.GetTempFileName()
Dim car_cazz As Char = "ᐧ"
' questo è importante, 65001 corrisponde a utf-8
Using sr As New StreamReader(nomefile, Encoding.GetEncoding(65001))
Using sw As New StreamWriter(tempFile, False, Encoding.GetEncoding(65001))
While sr.Peek() <> -1
sw.WriteLine(sr.ReadLine().Replace(car_cazz, "ok"))
End While
End Using
End Using
File.Delete(cartella & "\prova2.txt")
File.Move(tempFile, nomefile_mod)
Dim crea_txt As New Process
crea_txt.StartInfo.FileName = nomefile_mod
crea_txt.StartInfo.WindowStyle = ProcessWindowStyle.Normal
crea_txt.Start()
End Sub
Spero che queste informazioni ti possano essere utili...di più nin so... 
Rispondi quotando
