copiare la stringa che si desidera modificare in una variabile . Questo è necessario perché l'istruzione Mid lavora con le variabili , ma non con le proprietà di classi o controlli . ( Se la stringa che si desidera modificare è già in una variabile, è possibile saltare questo passaggio . ) Per
Dim StringToModify come String
StringToModify = Text1.Text
2
Determinare il carattere che si desidera sostituire . Se il carattere che si desidera sostituire sarà nella stessa posizione ogni volta , specificare la posizione di un numero . ( Il carattere di numerazione inizia da 1 . ) In caso contrario , determinare la posizione del carattere e memorizzarlo in una variabile . Questo esempio consente di individuare l'ultimo carattere della stringa :
Dim CharacterPosition as Integer
CharacterPosition = Len ( StringToModify )
3
Sostituire il carattere utilizzando Mid . L' istruzione Mid prende tre argomenti: la stringa da modificare , la posizione di inizio della sezione da sostituire , e la lunghezza del tratto da sostituire . ( . Dal momento che si vuole sostituire un singolo carattere , la lunghezza sarà sempre 1) Questo esempio sostituisce il personaggio con la D maiuscola :
Mid ( StringToModify , CharacterPosition , 1 ) = " D "
4
Copia indietro la proprietà , se è stato copiato un immobile nel primo passaggio :
Text1.Text = StringToModify
Programmazione © www.354353.com