Vraagje programma

[mikemouse1]

hallo,

ik zou een programma willen maken om een tekst te vertalen in een vreemde taal, zoals de letter "A" zou veranderen in "£", dus werkend met een textbox

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "A" Then
            MsgBox("£")
        End If
    End Sub
End Class

maar hoe je nu bereiken dat als je bijvoorbeeld id textbox typt "AB" dat dan VB weet dat hij da "A" en "B" los van elkaar moet vertalen ? Dus ik wil nie werken met woorden maar enkel met losstaande letters / cijfers. Gelieve een voorbeeld te geven.

Alvast bedankt

 

[That Guy]

Ik weet niet in .net achtige shizzle, maar 6:

dim i as integer
dim sCur as string

for i = 1 to len(textbox1.text)
sCur = mid(textbox1.text, i,1)

if sCur = "a" then
[COLOR="seagreen"]'blabla[/COLOR]
else if sCur = "b" then
[COLOR="seagreen"]'blabla[/COLOR]
[COLOR="SeaGreen"]'etcetera - een select is mischien handiger, of een functie[/COLOR]
end if

next i

 

[mikemouse1]

bedankt voor je hulp maar uiteindelijk bekom ik hetzelfde resultaat. Ik zou willen als bijvoorbeeld (als het vertaald is) "A" => "^" moet worden en "B" => "$" moet worden, pratisch gezien betekent dat dat als je id textbox "AB" typt dat de msgbox zegt "^$".

Weet je hiervoor een oplossing ?

alvast bedankt

 

[That Guy]

ehm, ik denk dat je dan mijn code verkeerd hebt gevat.
Wat het namelijk doet is 1 voor 1 de characters uit de textbox halen. Je moest zelf nog de code neerzetten.

voorbeeld:

dim i as integer
dim sCur as string
dim sNewString as string

for i = 1 to len(textbox1.text)
sCur = mid(textbox1.text, i,1)


if sCur = "a" then
   sNewString = sNewString  & "^"
else if sCur = "b" then
   sNewString  = sNewString  & "$"
'etcetera - een select is mischien handiger, of een functie
end if

next i

textbox1.text = sNewString

wat je natuurlijk ook kan doen is de Replace() functie gebruiken.