Cómo implementar una función de búsqueda de caracteres simple en VB

La clave de la función de búsqueda es utilizar la función InStr, que puede encontrar la primera posición de una cadena específica en otra cadena. Echemos un vistazo a la sintaxis para usar esta función:

InStr ([inicio,] cadena1, cadena2 [, comparar])

Los parámetros requeridos para esta función son la posición inicial y la cadena del cuerpo y la cadena a buscar; Comparar es un parámetro opcional. Especifique comparaciones de cadenas. Este parámetro de comparación se puede omitir y puede ser 0, 1 o 2. Especifique 0 (el valor predeterminado) para la comparación binaria. Especifique 1 para una comparación de texto que no distinga entre mayúsculas y minúsculas. Por ejemplo, si queremos saber si hay "cd" en la cadena "abcdefg" y devolver su posición, podemos usar la siguiente declaración:

pos = InStr(1, "abcdefg", "cd")

pos devolverá 3, indicando que fue encontrado, comenzando desde el tercer carácter. Esta es la implementación de "buscar". La implementación de la función "buscar siguiente" es continuar buscando con la posición actual como posición inicial.

Función de reemplazo

Sintaxis: Reemplazar (expresión de cadena, findreplacewith[, start[, count[, compare]])

Función: usar cadena Reemplazar algunas palabras . Encuentra la cadena original para reemplazar y, si la encuentra, la reemplaza con la nueva cadena.

Descripción: buscar: la cadena original a reemplazar.

Reemplazar con: la palabra que se reemplaza.

Inicio: Qué palabra comenzar a buscar y reemplazar, si no se establece, la búsqueda comenzará desde la primera palabra.

Contar: el número de reemplazos. Si no se establece, se reemplazarán todas las cadenas encontradas.

Comparar: encuentre una manera de comparar. comparar = 0 indica el método de comparación binaria, comparar = 1 indica el método de comparación literal y comparar = 2 indica el tipo de datos de comparación. Si se omite la comparación, es el método de comparación binaria predeterminado.

2

Subcomando privado1_Click()

Texto1. text=""

Abra "c:\a.txt" como entrada número 1

Texto 1. SelText = StrConv(InputB(LOF(1),#1),vbUnicode)

Cerrar #1

Conector final