Транслитерация

[Dimoshka]

Помогите пожалуйста. Как перевести в транслит то что введено в textbox. (Програмно имеется ввиду на VB)

[alibek]

Создаешь массив соответствий (типа, A - A, Б - B, Ж - ZH), затем проходишься по строке, по каждому символу, и каждому символу находишь соответствие в массиве соответствий и строишь строку из этих соответствий.

[Dimoshka]

Спасибо, но немог бы ты написать пример, а то я пока только начинающий в программировании.

[GAGArin]

Можно, ты только напиши массив соответствий в файл в формате:
А A
В W
Ч CH
...
Текстовым документом. ИМХО это самая противная часть.

[Dimoshka]

Извени но я уже нашол пример. Только он чучуть другое делал и поэтому потребовал переработки. И возник вопрос, там присваивается букве русского алфавита 1 английского, а как зделать так чтобы например буква "ч" менялась на "ch"?
Вот код:

Private Sub Convert_Click()
OutputText = ConvertToNormal(InputText)
End Sub

Public Function ConvertToNormal(ByVal InputVal As String) As String
Dim TypeOfConvert As Integer, ConvertionMassive(1 To 2) As String
10: x = x + 1
TypeOfConvert = 0
If Asc(Mid(InputVal, x, 1)) > 58 And Asc(Mid(InputVal, x, 1)) < 123 Then TypeOfConvert = 1 Else If Asc(Mid(InputVal, x, 1)) > 128 And Asc(Mid(InputVal, x, 1)) < 243 Then TypeOfConvert = 2
If TypeOfConvert = 0 Then GoTo 10
ConvertionMassive(1) = "ÉÖÓÊÅÍÃØÙÇÕÚÔÛÂÀÏÐÎËÄÆÝß×ÑÌÈÒÜÁÞ,éöóêåíãøùçõúôûâàïðîëäæýÿ÷ñìèòüáþ.¸1234567890-=\¨!""¹;%:?*()_+/ "
ConvertionMassive(2) = "QWERTYUIOP{}ASDFGHJKL:""ZXCVBNM<>?qwertyuiop[]asdfghjkl;'zxcvbnm,./`1234567890-=\~!@#$%^&*()_+| "
For x = 1 To Len(InputVal)
If TypeOfConvert = 1 Then temp = 2 Else temp = 1
ConvertToNormal = ConvertToNormal & Mid(ConvertionMassive(TypeOfConvert), InStr(1, ConvertionMassive(temp), Mid(InputVal, x, 1)), 1)
Next x
End Function

[alibek]

Таким способом никак.
Вместо двух строк создай два массива, тогда не будешь ограничен в длине токенов.

[|( () ( T |/| |(]

Я помню давно писал тоже самое. так что если скажешь как выложить архив, то вылажу.

[AndreyIl]

Option Explicit

Private Const RusAlf = "абвгдеёжзийклмнопрстуфхць"
Private Const EngAlf = "abvgdeegziyklmnoprstufhc'"
Private Const RusIskl = "чшюя"
Private Const EngIskl = "chshyuya"

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim St As String
Dim S As String
St = Text1.Text
For i = 1 To Len(St)
S = Mid(St, i, 1)
If InStr(RusAlf, S) > 0 Then
St = Replace(St, S, Mid(EngAlf, InStr(RusAlf, S), 1))
Else
If InStr(RusIskl, S) > 0 Then
St = Replace(St, S, Mid(EngIskl, InStr(RusIskl, S) * 2 - 1, 2))
End If
End If
Next i
Command1.Caption = St
End Sub

[alibek]

Глупо.

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

Dim tblRus As String, tblLat() As String, I As Long, res As String
tblRus = "АБВ...ЭЮЯ"
ReDim tblLat(0 To Len(tblRus))
For P = 1 To Len(tblRus)
  tblLat(P) = Choose(P, "A", "B", "V", "G", ... , "YE", "YU", "YA")
Next P
...
res = vbNullString
For I = 1 To Len(sSourceString)
  tblLat(0) = Mid$(sSourceString, 1, 1)
  res = res & tblLat(InStr(tblRus, tblLat(0))
Next I
MsgBox res