Ayuda del código fuente de conversión de codificación de documentos Vb6 TXT
La sintaxis es la siguiente: StrConv(cadena a convertir, formato a convertir)
Formato de conversión:
vbUnicode Convertir cadena Ansi a Unicode
vbFromUnicode convierte una cadena Unicode a Ansi
=====================
Respuestas adicionales:
Mire el ejemplo básico a continuación y debería tener una idea de cómo VB maneja las cadenas.
Subcomando privado1_Click ()
Atenuar sUnicode como cadena
Atenuar sAnsi como cadena
' Operaciones Unicode
sUnicode = "Wang Xiaoming,A123456789,651023,100 Zhongshan Road, Shanghai,(02)2345678"
Debug.Print Len(sUnicode) ' devuelve 44
Debug.Print Mid $(sUnicode, 5, 10) ' Devuelve A123456789
Debug.Print Instr(sUnicode, "Shanghai") ' Devuelve 23
' Convierte cadena Unicode a codificación Ansi
p>Ansi = StrConv(sUnicode, vbFromUnicode)
' Operación Ansi
Debug.Print LenB(sAnsi) ' Retorno 54
Debug.Print MidB$(sAnsi, 8, 10) 'Return?Print StrConv(MidB$(sAnsi, 8, 10), vbUnicode) 'Devuelve A123456789, tenga en cuenta que debe completarse
Volver a la conversión Unicode
Debug.InStrB(sAnsi, StrConv("Shanghai Municipality", vbFromUnicode)) ' Devuelve 23, no lo olvides
También convierte "Shanghai Municipality" a Ansi, de lo contrario no lo hará ser encontrado
End Sub
================
Leer en un archivo de texto <
VB Uno de los trucos es leer rápidamente el método del archivo:
Private Sub Command1_Click ()
Dim sFile As String
Abrir "C: filename.txt" Para entrada como #1
sFile = Entrada$(LOF(1), #1)
Cerrar #1
End Sub
Pero desafortunadamente, si el archivo que lees contiene caracteres chinos, el programa anterior mostrará un error de entrada de
archivo. Debido a que LOF devuelve el número de bytes del archivo y la función de entrada lee el número de caracteres, dado que
el archivo contiene caracteres chinos, el número de caracteres en el archivo será menor que el número de bytes. , por lo que se producirá un error.
Para resolver este problema, necesitamos usar las dos funciones StrConv y InputB:
Private Sub Command1_Click ()
Dim sFile As String
Abra "C:filename.txt" para la entrada como #1
sFile = StrConv(InputB$(LOF(1), #1), vbUnicode)
Cerrar # 1
End Sub
El programa corregido anteriormente primero usa InputB para leer el archivo, pero el archivo leído usando InputB está en formato Ansi,
por lo que debe ser utilizado StrConv lo convierte a Unicode.
================
No estoy muy familiarizado con VB. Estos están copiados de los ejemplos de otras personas. Te he ayudado bastante. Si esto no es suficiente, entonces deberías buscar un libro de texto de VB y echarle un vistazo.
Olvidé qué extranjero lo dijo, el programa es "algoritmo + procesamiento de cadenas". "
El procesamiento de cadenas es la parte más básica de todo lenguaje, no olvides que esto es lo más importante. Es lo más básico en todos los idiomas, no lo ignores.