Erstatte enkelt bokstaver

[andesam]

Leter etter en måte jeg kan erstatte hver enkelt bokstav i en settning med ett eller flere tegn.

 

Håper noe skjønner hva jeg er ute etter.

[Vain]

Private Sub Command1_Click()

dim i as long

i = 0

do
text1.selstart= i
text1.sellength = 1
if text1.seltext = "F" then text1.seltext = "p"
i=i+1
loop until i = 40 'eller mer?

End Sub

 

sikkert amatørkode , men det funker.

Endret 30. august 2004 av 86Fredrik

[andesam]

takker og bukker

[Vain]

En liten ting... det skal være:

 

dim i as long

[ratata]

replace fungerer og godt(vil eg tru)... replace("blah","med blah")

[Vain]

replace fungerer og godt(vil eg tru)... replace("blah","med blah")

 

Hva med å gi litt kode? Da blir det lettere for nybegynnere å forstå hva du mener.

[aadnk]

Hvis du f.eks vil erstatte alle A'er i en tekst med bokstaven B, kan du skrive følgende kode (sett at tekstboksen heter txtText):

 

txtText.Text = Replace(txtText.Text,  "A", "B")

 

Hvis du hadde lyst å slette alle forekomster av bokstaven A kunne du brukt denne koden:

 

txtText.Text = Replace(txtText.Text,  "A", "")

 

Og, skulle du ønske å slette både store og små bokstaver må du legge til en variabel i siste paramenter:

 

txtText.Text = Replace(txtText.Text, "A", "", , , vbTextCompare)

[andesam]

takker for svar.

 

Men hvis jeg skal gjøre slik at alle flere enn en bokstav skal erstattes med noe annet, hvordan gjør jeg da? tenker på aadnk sin metode, da den ser enklest ut.

[Vain]

for å komme med mer amatørkode(?):

 

gjenta alt mange ganger

 

txtText.Text = Replace(txtText.Text, "A", "1", , , vbTextCompare)
txtText.Text = Replace(txtText.Text, "B", "2", , , vbTextCompare)
txtText.Text = Replace(txtText.Text, "C", "3", , , vbTextCompare)

Endret 31. august 2004 av 86Fredrik

[toss]

går det an å sette inn variabler i koden i stedet for "A"?

 

edit: fikk det til med litt prøving.. satte bare i inni stedet for "A"..

Endret 31. august 2004 av toss

[andesam]

takker og bukker for svar .