B?ng m� Unicode - TCVN |
Post Reply |
Author | |
administrator
Admin ad Joined: 14 October 2005 Status: Offline Points: 512 |
Post Options
Thanks(0)
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 |
|
Sponsored Links | |
administrator
Admin ad Joined: 14 October 2005 Status: Offline Points: 512 |
Post Options
Thanks(0)
|
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 |
|
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |