Visual Basic 6 er en hendelse -drevet programmeringsspråk for Windows , opprinnelig basert på BASIC . Språket inneholder mange funksjoner og uttalelser for streng manipulasjon. Erstatte ett tegn i en streng med en annen er et viktig skritt i mange streng manipulering , inkludert kryptografi , desinfiserende innspill og redigering av tekst som brukeren skriver det . I Visual Basic 6 , kan du erstatte ett tegn med en annen bruker Mid uttalelse. Instruksjoner
en

Kopier strengen du vil endre til en variabel . Dette er nødvendig fordi Mid uttalelse arbeider med variabler , men ikke med egenskapene til klasser eller kontroller. ( Hvis strengen du ønsker å endre allerede er i en variabel, kan du hoppe over dette trinnet . )

Dim StringToModify som String

StringToModify = Text1.Text
2 < p> Bestem hvilke tegn du vil erstatte. Hvis tegnet du vil erstatte vil være i samme posisjon hver gang , angi posisjonen som et tall. ( Tegnet nummereringen starter på 1 . ) Ellers bestemmer figurens posisjon og lagre det i en variabel . Dette eksemplet finner det siste tegnet i strengen : en

Dim CharacterPosition som heltall

CharacterPosition = Len ( StringToModify )
3

Sett karakter ved hjelp av Mid . The Mid uttalelse tar tre argumenter: streng som skal endres , startposisjonen til den delen som skal erstattes , og lengden på delen som skal erstattes. ( . Siden du ønsker å erstatte en enkelt karakter , vil lengden alltid være 1) Dette eksempelet erstatter tegnet med en kapital D:

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

4

Kopier tilbake eiendommen , hvis du kopierte en eiendom i første trinn : en

Text1.Text = StringToModify