Red de conocimiento informático - Problemas con los teléfonos móviles - Ayuda del código fuente de conversión de codificación de documentos Vb6 TXT

Ayuda del código fuente de conversión de codificación de documentos Vb6 TXT

Función StrConv

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.