Cómo reemplazar un carácter de una cadena de VB6

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

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

StringToModify dévil como secuencia

StringToModify = Text1.Text
2 < p> Determinar el carácter que desea reemplazar. Si el carácter que desea reemplazar estará en la misma posición cada vez , especifique la posición de número. ( El personaje de numeración comienza en 1 . ) En caso contrario , determinar la posición del personaje y lo almacena en una variable. Este ejemplo busca el último carácter de la cadena :

CharacterPosition Dim como Integer

CharacterPosition = Len ( StringToModify )
3

Reemplace el carácter utilizando medio . La instrucción Mid toma tres argumentos: la cadena a ser modificado, la posición de inicio de la sección que ser reemplazado, y la longitud de la sección que ser reemplazado. ( . Desde desea reemplazar un solo carácter, la longitud será siempre 1 ) En este ejemplo se reemplaza el carácter con una D mayúscula :
Medio

( StringToModify , CharacterPosition , 1 ) = " D"

4

copia de la propiedad , si ha copiado una propiedad en el primer paso :

Text1.Text = StringToModify