Dự án ứng dụng trò chuyện ý tưởng trong .net

1 Public Class Urdu
2
3     Public Shared Function ToUrdu(ByVal english_str As String) As String
4
5         Dim urdu_str As String = Nothing
6
7         For i As Integer =
0 To english_str.Length - 1
8             If Char.IsWhiteSpace(english_str(i)) Or Char.IsDigit(english_str(i)) Then
9                 urdu_str &= english_str(i)
10             Else
11                 urdu_str &= ConvertToUrdu(english_str(i))
12             End If
13         Next
14         Return urdu_str
15
16     End Function
17
18     Public Shared Function ConvertToUrdu(ByVal inp As Char) As Char
19
20         
''Small Letter Conversion
21         If (inp =
"a") Then
22             Return ChrW(&H627)
''converting a into ALIF
23
24         ElseIf (inp =
"b") Then
25             Return ChrW(&H628)
''converting b into Bay
26
27         ElseIf (inp =
"c") Then
28             Return ChrW(&H686)
''converting c into Chay
29
30         ElseIf (inp =
"d") Then
31             Return ChrW(&H62F)
''converting d into DALL
32
33         ElseIf (inp =
"e") Then
34             Return ChrW(&H639)
''converting e into AIN
35
36         ElseIf (inp =
"f") Then
37             Return ChrW(&H641)
''converting f into FAY
38
39         ElseIf (inp =
"g") Then
40             Return ChrW(&H6AF)
''converting g into Gaaf
41
42         ElseIf (inp =
"h") Then
43             Return ChrW(&H6BE)
''converting h into Haa
44
45         ElseIf (inp =
"i") Then
46             Return ChrW(&H6CC)
''converting i into choti YA
47
48         ElseIf (inp =
"j") Then
49             Return ChrW(&H62C)
''converting j into Geem
50
51         ElseIf (inp =
"k") Then
52             Return ChrW(&H6A9)
''converting k into Kiaf
53
54         ElseIf (inp =
"l") Then
55             Return ChrW(&H644)
''converting l into Laam
56
57         ElseIf (inp =
"m") Then
58             Return ChrW(&H645)
''converting m into meem
59
60         ElseIf (inp =
"n") Then
61             Return ChrW(&H646)
''converting n into noon
62
63         ElseIf (inp =
"o") Then
64             Return ChrW(&H6C1)
''converting o into hay
65
66         ElseIf (inp =
"p") Then
67             Return ChrW(&H67E)
''converting p into paay
68
69         ElseIf (inp =
"q") Then
70             Return ChrW(&H642)
''converting q into kaaf
71
72         ElseIf (inp =
"r") Then
73             Return ChrW(&H631)
''converting r into Ray
74
75         ElseIf (inp =
"s") Then
76             Return ChrW(&H633)
''converting s into Ceen
77
78         ElseIf (inp =
"t") Then
79             Return ChrW(&H62A)
''converting t into tay
80
81         ElseIf (inp =
"u") Then
82             Return ChrW(&H621)
''converting u into Hamza
83
84         ElseIf (inp =
"v") Then
85             Return ChrW(&H637)
''converting v into Toain
86
87         ElseIf (inp =
"w") Then
88             Return ChrW(&H648)
''converting w into waoo
89
90         ElseIf (inp =
"x") Then
91             Return ChrW(&H634)
''converting x into Sheem
92
93         ElseIf (inp =
"y") Then
94             Return ChrW(&H6D2)
''converting y into Bari ya
95
96         ElseIf (inp =
"z") Then
97             Return ChrW(&H632)
''converting z into Zay
98
99             
'Capital Letter Conversion
100
101         ElseIf (inp =
"A") Then
102             Return ChrW(&H622)
''converting A into ALI MAD AA
103
104         ElseIf (inp =
"B") Then
105             Return ChrW(&H613)
''converting B into RAZI
106
107         ElseIf (inp =
"C") Then
108             Return ChrW(&H62B)
''converting C into SAAY
109
110         ElseIf (inp =
"D") Then
111             Return ChrW(&H688)
''converting D into DAAL
112
113         ElseIf (inp =
"E") Then
114             Return ChrW(&H611)
''converting E into ALIHE
115
116         ElseIf (inp =
"F") Then
117             Return ChrW(&H641)
''converting F into FAY
118
119         ElseIf (inp =
"G") Then
120             Return ChrW(&H63A)
''converting G into GHAIN
121
122         ElseIf (inp =
"H") Then
123             Return ChrW(&H62D)
''converting H into HAY
124
125         ElseIf (inp =
"I") Then
126             Return ChrW(&H6CC)
''converting I into Laam
127
128         ElseIf (inp =
"J") Then
129             Return ChrW(&H636)
''converting J into ZOOAD
130
131         ElseIf (inp =
"K") Then
132             Return ChrW(&H62E)
''converting K into HAY
133
134         ElseIf (inp =
"L") Then
135             Return ChrW(&H612)
''converting l into Laam
136
137         ElseIf (inp =
"M") Then
138             Return ChrW(&H645)
''converting M into MEEM
139
140         ElseIf (inp =
"N") Then
141             Return ChrW(&H6BA)
''converting N into GHUNNA
142
143         ElseIf (inp =
"O") Then
144             Return ChrW(&H629)
''converting O into TAYH
145
146         ElseIf (inp =
"P") Then
147             Return ChrW(&H64F)
''converting P into PAISH
148
149         ElseIf (inp =
"Q") Then
150             Return ChrW(&H648)
''converting Q into WAOO
151
152         ElseIf (inp =
"R") Then
153             Return ChrW(&H691)
''converting R into RRAY
154
155         ElseIf (inp =
"S") Then
156             Return ChrW(&H635)
''converting S into SOOAD
157
158         ElseIf (inp =
"T") Then
159             Return ChrW(&H679)
''converting T into TAAY
160
161         ElseIf (inp =
"U") Then
162             Return ChrW(&HFEFB)
''converting U into LaaMLA
163
164         ElseIf (inp =
"V") Then
165             Return ChrW(&H638)
''converting V into XOOAIN
166
167         ElseIf (inp =
"W") Then
168             Return ChrW(&H648)
''converting W into WAOO
169
170         ElseIf (inp =
"X") Then
171             Return ChrW(&H632)
''converting X into ZAY
172
173         ElseIf (inp =
"Y") Then
174             Return ChrW(&H6D2)
''converting Y into BARI YA
175
176         ElseIf (inp =
"Z") Then
177             Return ChrW(&H630)
''converting Z into ZAAL
178
179         End If
180
181         Return Nothing
182
183     End Function
184
185 End Class


Gõ tìm kiếm nhanh...