- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
'http://www.gotdotnet.ru/files/1003/
Public Class Form1
Public massiv(50), massiv1(50) As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String
a = " " + TextBox1.Text
For i As Integer = 1 To a.Length - 1
For j As Integer = 1 To 44
If a.Substring(i, 1).ToLower = massiv(j) Then
TextBox2.Text = TextBox2.Text + massiv1(j)
Exit For
End If
Next
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
massiv(1) = "а"
massiv(2) = "б"
massiv(3) = "в"
massiv(4) = "г"
massiv(5) = "д"
massiv(6) = "е"
massiv(7) = "ё"
massiv(8) = "ж"
'...
massiv(31) = "э"
massiv(32) = "ю"
massiv(33) = "я"
massiv(34) = "1"
massiv(35) = "2"
massiv(36) = "3"
massiv(37) = "4"
massiv(38) = "5"
massiv(39) = "6"
massiv(40) = "7"
massiv(41) = "8"
massiv(42) = "9"
massiv(43) = "0"
massiv(44) = " "
' ////////////////////////////////////////////////////////////////////////////////////
massiv1(1) = "1"
massiv1(2) = "2"
massiv1(3) = "3"
massiv1(4) = "4"
massiv1(5) = "5"
massiv1(6) = "6"
massiv1(7) = "7"
massiv1(8) = "8"
massiv1(9) = "9"
massiv1(10) = "a"
massiv1(11) = "b"
massiv1(12) = "c"
massiv1(13) = "d"
'...
massiv1(31) = "v"
massiv1(32) = "w"
massiv1(33) = "x"
massiv1(34) = "<"
massiv1(35) = ">"
massiv1(36) = "!"
massiv1(37) = "="
massiv1(38) = "?"
massiv1(39) = "/"
massiv1(40) = "@"
massiv1(41) = "~"
massiv1(42) = "\"
massiv1(43) = "-"
massiv1(44) = "_"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim g As String
g = " " + TextBox1.Text
For i As Integer = 1 To g.Length - 1
For j As Integer = 1 To 44
If g.Substring(i, 1).ToLower = massiv1(j) Then
TextBox2.Text = TextBox2.Text + massiv(j)
Exit For
End If
Next
Next
End Sub
End Class
dreesto 11.02.2012 15:07 # 0
Описание: Абсолютно бестолковая на первый взгляд прога ... Переводит текст на русском в другие символы. Прикольно работать когда имеешь дело с текстовыми документами, юзер не поймет что там в настройках ;)....
roman-kashitsyn 11.02.2012 15:22 # +4
аррау
bugmenot 11.02.2012 16:00 # 0
еггог
Lure Of Chaos 11.02.2012 15:43 # −2
guest 11.02.2012 22:44 # −2
Serabas 04.05.2012 12:52 # 0
разве massiv не будет типа Variant (Object)?
adli__82 01.08.2012 08:41 # 0