Ejemplo:
La casa de pedro, es muy bonita.
La casa de pedro , es muy bonita .
Han visto el cambio? Espero que si.
Como ven lo que uso es la variable cadenapc, donde alli tengo todos los caracteres que no se tienen que separar, el problema que tengo es que necesito que los caracteres ţ, ă y ş tampoco se separen. Pero el problema que tengo es que en el codigo fuente no puedo introducir estos caracteres porque me los representa con ???. Asi que pense en introducirlos mediante hexadecimal ya que son caracteres unicode, para ş en Hexadecimal es U+15F, ă es U+103 y para ţ es U+163.
Código:
Public Function puntosycomas()
Dim AllCr As Long
Dim PreTxt As String
Dim PostTxt As String
Dim cadenapc As Variant
cadenapc = "0123456789abcdefghijklmnñopqrstuvwxyz()[]_âãî- "
'Char (&H15F), (&H163)
Do
AllCr = AllCr + 1
If AllCr > Len(frmMain.Text1) Then Exit Do
ThisCr = Mid(Text1, AllCr, 1)
If InStr(1, cadenapc, LCase(ThisCr), vbBinaryCompare) = 0 Then
PreTxt = ""
If AllCr > 1 Then
PreTxt = Left(frmMain.Text1, AllCr - 1)
End If
PostTxt = Mid(Text1, AllCr + 1, Len(Text1) - AllCr)
Text1 = PreTxt & " " & ThisCr & "" & PostTxt
AllCr = AllCr + 2
End If
Loop
End Function
Mi problema es que no se representarlo o como introducirlo para que los reconozca. Alguien sabes como hacerlo o me sugiere si lo hago bien o no, o alguna posibilidad.
Muchas Gracias.
Si no me expreso bien, no duden en preguntar.
