unicode

[R_BABAZADEH]

سلام
چور میشه کاراکتر های فارسی یونیکد رو نمایش داد
به طور مثال
کاراکتر ((م)) که دارای دو کد fee3 هگز و fee1 هگز هست
با دستور chrw هم نشد همشون رو ((؟)) میزنه

[mostafa_bahar]

این اسکی ها مال داس است باید خروجی تو تو nc ببینی درست می دهد

[R_BABAZADEH]

کسی جدول unicode رو برای windows داره

[mostafa_bahar]

If X = "Ê" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(150)
End If
If X = "Ê" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(151)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "È" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(146)
End If
If X = "È" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(147)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(148)
End If
If X = "" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(149)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ë" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(152)
End If
If X = "Ë" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(153)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ì" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(154)
End If
If X = "Ì" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(155)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(156)
End If
If X = "" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(157)
End If

'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Í" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(158)
End If
If X = "Í" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(159)
End If

'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Î" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(160)
End If
If X = "Î" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(161)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ï" Then
Text1.Text = Text1.Text + Chr(162)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ð" Then
Text1.Text = Text1.Text + Chr(163)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ñ" Then
Text1.Text = Text1.Text + Chr(164)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ò" Then
Text1.Text = Text1.Text + Chr(165)
End If

'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ž" Then
Text1.Text = Text1.Text + Chr(166)
End If

'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ó" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(167)
End If
If X = "Ó" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(168)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ô" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(169)
End If
If X = "Ô" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(170)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Õ" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(171)
End If
If X = "Õ" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(172)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ö" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(173)
End If
If X = "Ö" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(174)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ø" Then
Text1.Text = Text1.Text + Chr(175)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ù" Then
Text1.Text = Text1.Text + Chr(224)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ý" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(233)
End If
If X = "Ý" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(234)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Þ" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(235)
End If
If X = "Þ" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(236)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "˜" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(237)
End If
If X = "˜" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(238)
End If

'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(239)
End If
If X = "" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(240)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "á" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(241)
End If
If X = "á" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(243)
End If
' Case "áÇ": Text1.Text = Text1.Text + Chr(242)
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "ã" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(244)
End If
If X = "ã" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(245)
End If

'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "ä" And Asc(ara1(i10 - 1)) = 32 Then
Text1.Text = Text1.Text + Chr(246)
End If
If X = "ä" And Asc(ara1(i10 - 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(247)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "æ" Then
Text1.Text = Text1.Text + Chr(248)
End If
'''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Ú" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) <> 32 And testing <> 1 Then
Text1.Text = Text1.Text + Chr(227)
End If
If X = "Ú" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) <> 32 And testing = 1 Then
Text1.Text = Text1.Text + Chr(228)
End If
If X = "Ú" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) = 32 Then
Text1.Text = Text1.Text + Chr(228)
End If
If X = "Ú" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) <> 32 And testing <> 1 Then
Text1.Text = Text1.Text + Chr(226)
End If
If X = "Ú" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) = 32 Then
Text1.Text = Text1.Text + Chr(225)
End If
If X = "Ú" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) <> 32 And testing = 1 Then
Text1.Text = Text1.Text + Chr(225)
End If

'''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "Û" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) <> 32 And testing <> 1 Then
Text1.Text = Text1.Text + Chr(231)
End If
If X = "Û" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) <> 32 And testing = 1 Then
Text1.Text = Text1.Text + Chr(232)
End If
If X = "Û" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) = 32 Then
Text1.Text = Text1.Text + Chr(232)
End If
If X = "Û" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) <> 32 And testing <> 1 Then
Text1.Text = Text1.Text + Chr(230)
End If
If X = "Û" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) = 32 Then
Text1.Text = Text1.Text + Chr(229)
End If
If X = "Û" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) <> 32 And testing = 1 Then
Text1.Text = Text1.Text + Chr(229)
End If
'''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
If X = "å" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) <> 32 And testing <> 1 Then
Text1.Text = Text1.Text + Chr(250)
End If
If X = "å" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) <> 32 And testing = 1 Then
Text1.Text = Text1.Text + Chr(251)
End If

If X = "å" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) = 32 Then
Text1.Text = Text1.Text + Chr(251)
End If
If X = "å" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) = 32 Then
Text1.Text = Text1.Text + Chr(249)
End If
If X = "å" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(249)
End If
'''''''''''''''''''''''''''''''''''''
If X = "í" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) <> 32 Then
Text1.Text = Text1.Text + Chr(254)
End If
If X = "í" And Asc(ara1(i10 - 1)) <> 32 And Asc(ara1(i10 + 1)) = 32 Then
Text1.Text = Text1.Text + Chr(254)
End If
If X = "í" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) = 32 Then
Text1.Text = Text1.Text + Chr(253)
End If
If X = "í" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) <> 32 And testing <> 1 Then
Text1.Text = Text1.Text + Chr(252)
End If
If X = "í" And Asc(ara1(i10 - 1)) = 32 And Asc(ara1(i10 + 1)) <> 32 And testing = 1 Then
Text1.Text = Text1.Text + Chr(253)
End If

''''''''''''''''''''''''''''''''''
If X = "Â" Then
Text1.Text = Text1.Text + Chr(141)
End If
If X = "Æ" Then
Text1.Text = Text1.Text + Chr(142)
End If
If X = "Á" Then
Text1.Text = Text1.Text + Chr(143)
End If
'''''''''''''''''''''''''''''''''''''
jj = 0
If X = "Ç" And testing = 1 Then
Text1.Text = Text1.Text + Chr(144)
jj = 1
End If
If X = "Ç" And jj = 0 Then
Text1.Text = Text1.Text + Chr(145)
End If

اینها ویندوز به داس برعکس کاری نداره

[R_BABAZADEH]

ممنون از توجهتون
میشه دو مورد زیر رو توضیح بدید
If X = "E"" And Asc(ara1(i10 - 1)) = 32 Then
----- -----

[mostafa_bahar]

این برا قبل و بعد اون حرفه توجه نکن فقط کدای اسکی رو داشته باش

[R_BABAZADEH]

من این کاراکتر هارو تو تکس نوشتم ولی جوابش متنه زیر شد که بازم بیشتر فارسی نیست
–—’“”•˜™š›œžŸ ¡¢£¤¥¦ §¨©ª«¬­®¯àéêëìíîïðñóôõö÷ø ãääâááçèèæååúûûùùþþýüýŽ ‘
شما از چه فنتی استفاده میکید