[RESOLVED] how to twist alpha from eng 2 any

[DeadlyMan]

hi guys

how to twist a alpha from eng like ex 2 any alpha lang

  
Private Sub Command1_Click()
Dim i As Integer
If i = a Then i = z


Select Case i

Case a: Text1.Text = Text2.Text & " ش "
Case b: Text1.Text = Text2.Text & " لا"
Case c: Text1.Text = Text2.Text & " ؤ "
Case d: Text1.Text = Text2.Text & " ي "
Case e: Text1.Text = Text2.Text & " ث "
Case f: Text1.Text = Text2.Text & " ب "
Case g: Text1.Text = Text2.Text & " ل "
Case h: Text1.Text = Text2.Text & " ا "
Case i: Text1.Text = Text2.Text & " ه "
Case j: Text1.Text = Text2.Text & " ت "
Case k: Text1.Text = Text2.Text & " ن "
Case l: Text1.Text = Text2.Text & " م "
  
End Select
End Sub

and i hope some one heeelp me

[baja_yu]

Could you try and explain a bit more what you are trying to do please.

Is this correct: If i = a Then i = z
Did you mean "a" and "z" maybe, or is a a long type variable you declared somewhere?

Also, you don't set the value of i anywhere, Select Case will always go to the 0 value as that is what i will hold every time.

[DeadlyMan]

thnx for ur post

in this line

If i = a Then i = z

i want to apha from a - z

ok

and i want to like replace some alpha with another alpha

like if i wrote Like Ex :

if text1 = "Hi how r U" then
text2 = "H1 H0W r U"
end if

maybe is a German alpha or France alpha
ok i hope u got it

[baja_yu]

For example:

Text2.Text = Replace(Text1.Text, "i" , "1")

and so on.

[DeadlyMan]

but its just duplicate from text1 2 text2

i want to replace some word from text1 and view the word

like i sad

if text1 = "Hi how r U" then
text2 = "H1 H0W r U"
end if

[Spoo]

Deadly

Do you mean you want to loop thru the characters
in a text string and replace them depending on the case?

Something like this maybe? It will

• "read" each character in Text1.Text
• create a new string Text2.Text with the replaced characters

Private Sub Command1_Click()
   Dim ii As Integer
   Dim nn As Integer
   Dim txt as String
   nn = Len(Text1.Text)
   Text2.Text = Empty                  ' initialize new string as Empty
   For ii = 1 to nn
      txt = Mid(Text1.Text, ii, 1)     ' reads 1 character at a time from Text1.Text
      Select Case txt                  ' build new string Text2.Text
         Case "a": Text2.Text = Text2.Text & " ش "
         Case "b": Text2.Text = Text2.Text & " لا"
         Case "c": Text2.Text = Text2.Text & " ؤ "
         Case "d": Text2.Text = Text2.Text & " ي "
         Case "e": Text2.Text = Text2.Text & " ث "
         Case "f": Text2.Text = Text2.Text & " ب "
         Case "g": Text2.Text = Text2.Text & " ل "
         Case "h": Text2.Text = Text2.Text & " ا "
         Case "i": Text2.Text = Text2.Text & " ه "
         Case "j": Text2.Text = Text2.Text & " ت "
         Case "k": Text2.Text = Text2.Text & " ن "
         Case "l": Text2.Text = Text2.Text & " م "
      End Select
   Next ii
End Sub

Spoo

[DeadlyMan]

Spoo Ur Fantastic


Thnx For Ur Help

[Spoo]

Deadly

Glad it worked out

Spoo