Hvordan erstatte en karakter i en String i VB6

Visual Basic 6 er en hendelsesdrevet 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 string manipulering, inkludert kryptografi, desinfiserende innspill og redigering av tekst som brukeren skriver det. I Visual Basic 6, kan du erstatte en karakter med en annen bruker Mid uttalelse.

Bruksanvisning

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

Dim StringToModify som String

StringToModify = Text1.Text

2 Finn ut hvilken figur du vil erstatte. Hvis tegnet du ønsker å erstatte vil være i samme posisjon hver gang, må du angi posisjonen som et tall. (Tegnet nummereringen starter på 1.) Ellers bestemme karakteren posisjon og lagre den i en variabel. Dette eksemplet finner det siste tegnet i strengen:

Dim CharacterPosition som Integer

CharacterPosition = Len (StringToModify)

3 Sett på karakter ved hjelp av Mid. Midt uttalelsen tar tre argumenter: strengen som skal endres, startposisjonen av 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 har kopiert en eiendom i første trinn:

Text1.Text = StringToModify

Hint

• Hvis du ønsker å erstatte alle forekomster av en viss karakter, bruke Erstatt-funksjonen i stedet for Mid.
• Ikke forveksle Midt uttalelse med Mid-funksjonen, som brukes til å lese en del av en streng.