Printable View
Hello everybody!
Beginers question: :blush:
I do not know how to make a code where VB6 would automaticaly change the entered letters.
Example:
I have my own special alphabet letters: A=KU, B=DE, C=VE, D=SI
I enter a word into textbox: ABCDE
<then I press the button TRANSFORM>
I get out the result: KUDEVESI
Can you help me?
regards,
Dejan
This was a multi pc language written for a friend. It shows how to add custom alphabets to your application in real-time by switching them in the 'txtOutput' when you type them in the 'txtInput'. Hope it helps
vb Code:
dgorenc, the problem is complicated by the fact that, for example, your translation of B gives a D which is translated to something else. The following handles that.
Code:Const PLAIN_TEXT = "ABCD"
Dim strCrypt As String
Dim strText() As String
Dim lngIndex As Long
' Split the text into it's individual letters
ReDim strText(0)
For lngIndex = 1 To Len(PLAIN_TEXT)
strText(lngIndex - 1) = Mid$(PLAIN_TEXT, lngIndex, 1)
ReDim Preserve strText(UBound(strText) + 1)
Next
' Remove the last entry because it's blank
ReDim Preserve strText(UBound(strText) - 1)
' Translate the individual letters
For lngIndex = 0 To UBound(strText)
Select Case strText(lngIndex)
Case "A"
strText(lngIndex) = "KU"
Case "B"
strText(lngIndex) = "DE"
Case "C"
strText(lngIndex) = "VE"
Case "D"
strText(lngIndex) = "SI"
Case "E" ' etc
End Select
Next
' Put the string back together
For lngIndex = 0 To UBound(strText)
strCrypt = strCrypt & strText(lngIndex)
Next
MsgBox strCrypt
Hope this will help.
Code:Option Explicit
Dim myAlphabet() As String
Dim InitDone As Boolean
Sub InitAlphabet()
'-- make sure sCode contains 26 items separated by comma
Const sCode = "SN,PH,HU,AT,VS,BK,WU,JZ,WB,YJ,NT,BP,MH,QQ,GH,VV,PZ,XF,SZ,GN,CZ,RA,OC,CU,HB,HJ"
myAlphabet = Split(sCode, ",")
InitDone = True
End Sub
Function Encrypt(sInText As String) As String
Dim i As Integer
Dim sOutText As String
Dim Ch As String
If InitDone = False Then InitAlphabet
For i = 1 To Len(sInText)
Ch = UCase(Mid(sInText, i, 1))
If Ch >= "A" And Ch <= "Z" Then
Ch = myAlphabet(Asc(Ch) - 65) '-- Asc("A") = 65
Else
Ch = "--"
End If
sOutText = sOutText & Ch
Next
Encrypt = sOutText
End Function
Sub CommandButton1_Click()
MsgBox Encrypt(Text1.Text)
End Sub
Sub Test()
MsgBox Encrypt("Bill Gates")
MsgBox Encrypt("HELLO")
End Sub
I am impressed with the responce and the quality of it.
PROBLEM SOLVED IN 5 MIN! for me :blush:
Thank you all!
Dejan
Now that we've helped you, you can help us by pulling down the Thread Tools menu and clicking the Mark Thread Resolved button which will let everyone know that you have your answer.
done.