Sieu ho tro Homepage
Forum Home Forum Home > General Knowledge > Things to know
  New Posts New Posts RSS Feed - B?ng m Unicode - TCVN
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


B?ng m� Unicode - TCVN

 Post Reply Post Reply
Author
Message
administrator View Drop Down
Admin
Admin

ad

Joined: 14 October 2005
Status: Offline
Points: 512
Post Options Post Options   Thanks (0) Thanks(0)   Quote administrator Quote  Post ReplyReply Direct Link To This Post Topic: B?ng m� Unicode - TCVN
    Posted: 10 October 2011 at 15:38
     �     �     225     184
     �     �     224     181
     ?     �     7843     182
     �     �     227     183
     ?     �     7841     185
     a     �     259     168
     ?     �     7855     190
     ?     �     7857     187
     ?     �     7859     188
     ?     �     7861     189
     ?     �     7863     198
     �     �     226     169
     ?     �     7845     202
     ?     �     7847     199
     ?     �     7849     200
     ?     �     7851     201
     ?     �     7853     203
     �     �     233     208
     �     �     232     181
     ?     �     7867     182
     ?     �     7869     183
     ?     �     7865     209
     �     �     234     170
     ?     �     7871     213
     ?     �     7873     210
     ?     �     7875     211
     ?     �     7877     212
     ?     �     7879     214
     �     �     237     221
     �     �     236     215
     ?     �     7881     216
     i     �     297     220
     ?     �     7883     222
     �     �     243     227
     �     �     242     223
     ?     �     7887     225
     �     �     245     226
     ?     �     7885     228
     �     �     244     171
     ?     �     7889     232
     ?     �     7891     229
     ?     �     7893     230
     ?     �     7895     231
     ?     �     7897     233
     o     �     417     172
     ?     �     7899     237
     ?     �     7901     234
     ?     �     7903     235
     ?     �     7905     236
     ?     �     7907     238
     �     �     250     243
     �     �     249     239
     ?     �     7911     241
     u     �     361     242
     ?     �     7909     244
     u     �     432     173
     ?     �     7913     248
     ?     �     7915     245
     ?     �     7917     246
     ?     �     7919     247
     ?     �     7921     249
     �     �     253     253
     ?     �     7923     250
     ?     �     7927     251
     ?     �     7929     252
     ?     �     7925     254
     d     �     273     174
     �     �     192     181
     �     �     193     184
     ?     �     7842     182
     �     �     195     183
     ?     �     7840     185
     A     �     258     168
     ?     �     7856     190
     ?     �     7854     187
     ?     �     7858     188
     ?     �     7860     189
     ?     �     7862     198
     �     �     194     169
     ?     �     7846     202
     ?     �     7844     199
     ?     �     7848     200
     ?     �     7850     201
     ?     �     7852     203
     �     �     200     208
     �     �     201     181
     ?     �     7866     182
     ?     �     7868     183
     ?     �     7864     209
     �     �     202     170
     ?     �     7872     213
     ?     �     7870     210
     ?     �     7874     211
     ?     �     7876     212
     ?     �     7878     214
     �     �     204     221
     �     �     205     215
     ?     �     7880     216
     I     �     296     220
     ?     �     7882     222
     �     �     210     227
     �     �     211     223
     ?     �     7886     225
     �     �     213     226
     ?     �     7884     228
     �     �     212     171
     ?     �     7890     232
     ?     �     7888     229
     ?     �     7892     230
     ?     �     7894     231
     ?     �     7896     233
     O     �     416     172
     ?     �     7900     237
     ?     �     7898     234
     ?     �     7902     235
     ?     �     7904     236
     ?     �     7906     238
     �     �     217     243
     �     �     218     239
     ?     �     7910     241
     U     �     360     242
     ?     �     7908     244
     U     �     431     173
     ?     �     7914     248
     ?     �     7912     245
     ?     �     7916     246
     ?     �     7918     247
     ?     �     7920     249
     ?     �     7922     253
     �     �     221     250
     ?     �     7926     251
     ?     �     7928     252
     ?     �     7924     254
     �     �     272     174


http://sieuhotro.com/forums/uploads/158/unicode-tcvn.xls

Edited by admingroup - 10 October 2011 at 15:43
Back to Top
Sponsored Links


Back to Top
administrator View Drop Down
Admin
Admin

ad

Joined: 14 October 2005
Status: Offline
Points: 512
Post Options Post Options   Thanks (0) Thanks(0)   Quote administrator Quote  Post ReplyReply Direct Link To This Post Posted: 13 October 2011 at 10:35
function ConvertFont(str)
           
               Dim i, arrUNI, sUni, ABC, UNI
               ABC = "����������Ʃ���������Ѫ����������������������������������������������������Ƣ���������ѣ������������������������������������������"
               UNI ="225,224,7843,227,7841,259,7855,7857,7859,7861,7863,226,7845,7847,7849,7851,7853,233,232,7867,7869,7865,234,7871,7873,7875,7877,7879,237,236,7881,297,7883,243,242,7887,245,7885,244,7889,7891,7893,7895,7897,417,7899,7901,7903,7905,7907,250,249,7911,361,7909,432,7913,7915,7917,7919,7921,253,7923,7927,7929,7925,273,225,224,7843,227,7841,258,7855,7857,7859,7861,7863,194,7845,7847,7849,7851,7853,233,232,7867,7869,7865,202,7871,7873,7875,7877,7879,237,236,7881,297,7883,243,242,7887,245,7885,212,7889,7891,7893,7895,7897,416,7899,7901,7903,7905,7907,250,249,7911,361,7909,431,7913,7915,7917,7919,7921,253,7923,7927,7929,7925,272"
               
               arrUNI = Split(UNI, ",")
               
               For i = 1 To Len(str)
               If InStr(ABC, Mid(str, i, 1)) > 0 Then
                sUni = sUni & ChrW(arrUNI(InStr(ABC, Mid(str, i, 1)) - 1))
                Else
                sUni = sUni & Mid(str, i, 1)
                End If
               Next
               
               
                              
                         ConvertFont = sUni'segStr
     end function

Edited by admingroup - 13 October 2011 at 10:37
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.03
Copyright ©2001-2019 Web Wiz Ltd.

This page was generated in 0.063 seconds.
bao ky nam , Thuoc nam ky dieu
chu ky so