code korter

[famlam]

Is er een manier om een replace("x","y") om te draaien?

ik heb namelijk een programma gemaakt waarbij (bijvoorbeeld) een spatie wordt vervangen door _ . En op deze manier worden heel veel tekens vervangen. Ergens anders in de code (een ander button.click) wordt juist het tegenovergestelde gedaan.

'button1.click:
textbox1.text = textbox1.text.replace(" ", "_")
textbox1.text = textbox1.text.replace(" ` ", " ' ")
textbox1.text = etc...

'button2.click:
textbox1.text = textbox1.text.replace("_", " ")
textbox1.text = textbox1.text.replace(" ' ", " ` ")
textbox1.text = etc...

Omdat ik ongeveer 100 tekens vervang (soms door meerdere tekens) wordt deze code erg groot: minimaal 200 regels: 100 button1 en 100 button2.


Kan dit anders (korter)???

 

[CoD_NL]

Je zou deze gegevens bijvoorbeeld achter elkaar in een string kunnen zetten, en dan bij button A de hele string van 0 tot het einde te doorlopen en bij de andere button in omgekeerde volgorde.

Iets als onderstaande dus:

dim s as string = "-.12" 'etc

'button 1
for i as integer = 0 to s.length - 1 step 2
  'tbox.replace(s(i), s(i+1))
next

'button 2
for i as integer = s.length -1 to 0 step 2
 'tbox.replace(s(i), s(i-1))
next i