перевод букв в нужный код

[Kip]

Господа помогите начинающему.
Суть вопроса. Нужно из одного textboxа, слово в русской кодировке перевести в соседний textbox, но уже в виде двух или трёх значных кодов разделённых табуляцией или запятой.

[HotKitten]

в смысле зашифровать???

[Kip]

Каждой букве и цифре присвоить определённый код и после набора слова или предложения произвести перевод(в общем похоже на шифрование).

[A.A.Z.]

Ну...

Код: Выделить всё

Function Crypt&(ByVal Letter$)
Crypt = Asc(Letter)
End Function

Function Decrypt$(ByVal Char&)
Decrypt = Chr(Char)
End Function

Использование (на форме 2 кнопки и 2 текстовых поля):

Код: Выделить всё

Option Explicit

Function Crypt&(ByVal Letter$)
Crypt = Asc(Letter)
End Function

Function Decrypt$(ByVal Char&)
Decrypt = Chr(Char)
End Function

Sub Command1_Click()
Dim I&
Text2.Text = ""
For I = 1 To Len(Text1.Text)
Text2.Text = Text2.Text & CStr(Crypt(Mid(Text1.Text, I, 1))) & ";"
Next
Text2.Text = Left(Text2.Text, Len(Text2.Text) - 1)
End Sub

Private Sub Command2_Click()
Dim Arr$(), I&
Text2.Text = ""
Arr = Split(Text1.Text, ";")
For I = 0 To UBound(Arr)
Text2.Text = Text2.Text & Chr(CLng(Arr(I)))
Next
End Sub

Private Sub Form_Load()
Command1.Caption = "Зашифровать"
Command2.Caption = "Расшифровать"
Text2.Text = ""
Text2.Locked = True
MsgBox "В первом поле - то, что надо зашифровать или расшифровать, во втором - результат", vbInformation
End Sub

[Kip]

Огромное спасибо за пример, но нужно обращение к собственной кодировке.
Хотя может я чего не понимаю, так как совсем-совсем начинающий.

[Amed]

Тогда функции Crypt и Decrypt надо заполнить кодом с собственной кодировкой:

Код: Выделить всё

Private code1()
Private code2()

Private Function crypt(letter As String) As String
Dim i As Integer
For i = 0 To UBound(code1)
    If code1(i) = letter Then
        crypt = code2(i)
    End If
Next i
End Function

(Это только пример создания своей кодировки)
Private Sub Form_Load()
code1 = Array("a", "b", "c")
code2 = Array("1", "2", "3")

MsgBox crypt("b")
End Sub


[Kip]

Огромное спасибо!!!
Это то, что нужно.

[GSerg]

Crypt - это всё-таки склеп
Лучше уж Encrypt