Código fuente en formato texto
La sintaxis es: StrConv (cadena a convertir, formato de conversión)
Formato de conversión:
VbUnicode convierte una cadena Ansi a Unicode.
VbFromUnicode convierte cadenas Unicode a Ansi.
====================
Respuesta complementaria:
Mire el siguiente ejemplo básico , debería tener algún conocimiento de los métodos de procesamiento de cadenas de VB.
Subcomando privado 1_Click()
Atenuar suUnicode como una cadena
Atenuar una cadena tipo tres o cuatro
Operaciones Unicode
SUnicode = "A123456789, 651023, (02)2345678, No. 100, Wang Xiaoming Zhongshan Road".
Depurar. Imprimir Len(sUnicode)' devuelve 44.
Debug.printmid $ (unicode, 5, 10)' devuelve A123456789.
Depurar. Print Instr(sUnicode, "Shanghai")' devuelve 23.
Convertir cadena Unicode a Ansi
sAnsi = StrConv(sUnicode, vbFromUnicode)
Operación Ansi
Depuración. Imprimir LenB(sAnsi)' devuelve 54.
¿Devolución de Debug.printmidb $ (sansi, 8, 10)? Porque olvidé volver a Unicode.
Depurar. printstrconv(midb$(sansi,8,10),vbunicode)' devuelve A123456789, tenga en cuenta la transición.
Se debe completar la operación de devolución de Unicode.
Debug.printinstrb (Sansi, strconv ("Shanghai", vbfromnicode))' Devuelve 23, no lo olvides.
"Shanghai" debe convertirse a Ansi; de lo contrario, no se podrá encontrar.
Conector final
================
Leer archivo de texto
Entre Siguiendo los consejos de VB, existe un método para leer archivos rápidamente:
Subcomando privado 1_Click()
Atenuar el archivo como una cadena
Abrir " C:nombredearchivo.txt " como entrada #1
sArchivo = Entrada$(LOF(1), #1)
Cerrar #1
Conector final
Desafortunadamente, si el archivo que estás leyendo contiene caracteres chinos, el programa anterior terminará pegando la entrada.
Error de archivo. Debido a que LOF devuelve el número de bytes del archivo, mientras que la función de entrada lee el número de caracteres, y debido a que
el archivo contiene chino, el número de caracteres en el archivo será menor que el número de bytes. , de ahí el error.
Para resolver este problema, necesitamos usar dos funciones, StrConv y InputB:
Subcomando privado 1_Click()
Atenuar archivo como cadena
p>
Abra "C:filename.txt" como entrada #1
sFile = StrConv(InputB $(LOF(1), #1), vbUnicode)
Cerrar #1
Conector final
El programa de corrección anterior primero usa EntradaB para leer el archivo, pero el archivo leído usando EntradaB está en formato Ansi.
Así que tienes que usar StrConv para convertirlo a Unicode.
================
No estoy familiarizado con VB.
Todos estos son copiados por otros. Estos ejemplos deberían ser suficientes para ayudarle. Si esto no es suficiente, debería buscar un libro de texto de VB y leerlo detenidamente.
Olvidé qué extranjero dijo que la programación es "algoritmo + procesamiento de cadenas"
El procesamiento de cadenas es el más básico en todos los idiomas. No seas descuidado.