Cómo reemplazar un carácter en una cadena en Visual Basic 6

Visual Basic 6 es un lenguaje de programación orientado a eventos para Windows, basado originalmente en BASIC. El lenguaje incluye muchas funciones y declaraciones para la manipulación de cadenas. Sustitución de un carácter en una cadena con otra es un paso importante en muchas tareas de manipulación de cadenas, incluyendo la criptografía, la desinfección de entrada y edición de texto que el usuario escribe TI. En Visual Basic 6, se puede reemplazar un carácter con otro utilizando la instrucción Mid.

Instrucciones

1 Copiar la cadena que desea modificar en una variable. Esto es necesario porque la instrucción Mid funciona con variables, pero no con las propiedades de las clases o los controles. (Si la cadena que desea modificar ya está en una variable, puede saltarse este paso).

Dim como secuencia StringToModify

StringToModify = Text1.Text

2 Determinar qué carácter que desea reemplazar. Si el carácter que desea reemplazar estará en la misma posición cada vez, especifique la posición como un número. (La numeración de caracteres comienza en 1.) En caso contrario, determinar la posición del carácter y la almacena en una variable. En este ejemplo se encuentra el último carácter de la cadena:

Dim CharacterPosition como entero

CharacterPosition = Len (StringToModify)

3 Sustituir el carácter utilizando mediana. La declaración de mediana tiene tres argumentos: la cadena que va a modificarse, la posición de inicio de la sección a ser reemplazado, y la longitud de la sección a ser reemplazado. (Puesto que usted quiere reemplazar un solo carácter, la longitud será siempre 1.) En este ejemplo se reemplaza el carácter con un capital D:

Mid (StringToModify, CharacterPosition, 1) = "D"

4 Copiar de nuevo la propiedad, si ha copiado una propiedad en el primer paso:

Text1.Text = StringToModify

Consejos y advertencias

• Si desea reemplazar cada aparición de un cierto carácter, utilice la función Reemplazar en lugar de Mid.
• No hay que confundir la instrucción Mid con la función del medio, que se utiliza para leer una parte de una cadena.