تبدیل از ایران سیستم تحت داس به ویندوز و برعکس

سلام
دوستان کسی مثالی در رابطه به تبدیل کدپیج ایران سیستم تحت داس به ویندوز یا برعکس رو داره ؟

یا الگوریتم کار یا کدهای فونت ایران سیستم تحت داس مثلا ب اول کد اسکیش چیه ب وسط یا ب آخر ؟

ممنون

کد:

---

Public Function Convert(ByVal str1 As String) As String
Dim i As Integer
Dim temp As Integer
Dim str2 As String
str1 = Trim(str1)
For i = (Len(str1)) To 1 Step -1
    temp = Asc(Mid(str1, i, 1))
    str2 = str2 & Chr(a(temp))
Next i
Convert = str2
End Function

---

کد:

---

Public Sub set_value()
Dim i As Integer
For i = 0 To 128
    a(i) = i
Next i
'////baraye tabdil parantez az english be farsi
    a(40) = 41
    a(41) = 40
'///////////////////





a(128) = Asc("0")
a(129) = Asc("1")
a(130) = Asc("2")
a(131) = Asc("3")
a(132) = Asc("4")
a(133) = Asc("5")
a(134) = Asc("6")
a(135) = Asc("7")
a(136) = Asc("8")
a(137) = Asc("9")
a(138) = Asc("¡")
a(139) = Asc("-")
a(140) = Asc("¿")
a(141) = Asc("Â")
a(142) = Asc("Æ")
a(143) = Asc("Á")
a(144) = Asc("Ç")
a(145) = Asc("Ç")
a(146) = Asc("È")
a(147) = Asc("È")
a(148) = Asc("")
a(149) = Asc("")
a(150) = Asc("Ê")
a(151) = Asc("Ê")
a(152) = Asc("Ë")
a(153) = Asc("Ë")
a(154) = Asc("Ì")
a(155) = Asc("Ì")
a(156) = Asc("")
a(157) = Asc("")
a(158) = Asc("Í")
a(159) = Asc("Í")
a(160) = Asc("Î")
a(161) = Asc("Î")
a(162) = Asc("Ï")
a(163) = Asc("Ð")
a(164) = Asc("Ñ")
a(165) = Asc("Ò")
a(166) = Asc("Ž")
a(167) = Asc("Ó")
a(168) = Asc("Ó")
a(169) = Asc("Ô")
a(170) = Asc("Ô")
a(171) = Asc("Õ")
a(172) = Asc("Õ")
a(173) = Asc("Ö")
a(174) = Asc("Ö")
a(175) = Asc("Ø")

For i = 176 To 224
    a(i) = i
Next i

a(224) = Asc("Ù")
a(225) = Asc("Ú")
a(226) = Asc("Ú")
a(227) = Asc("Ú")
a(228) = Asc("Ú")
a(229) = Asc("Û")
a(230) = Asc("Û")
a(231) = Asc("Û")
a(232) = Asc("Û")
a(233) = Asc("Ý")
a(234) = Asc("Ý")
a(235) = Asc("Þ")
a(236) = Asc("Þ")
a(237) = Asc("ß")
a(238) = Asc("ß")
a(239) = Asc("")
a(240) = Asc("")
a(241) = Asc("á")
a(242) = Asc("á")
a(243) = Asc("á")
a(244) = Asc("ã")
a(245) = Asc("ã")
a(246) = Asc("ä")
a(247) = Asc("ä")
a(248) = Asc("æ")
a(249) = Asc("å")
a(250) = Asc("å")
a(251) = Asc("å")
a(252) = Asc("í")
a(253) = Asc("í")
a(254) = Asc("í")

a(255) = 255

---

این تابع رو واسه برنامه خودم نوشته بودم فونتای ایران سیستم رو درست تبدیل میکنه فقط قبل از فراخوانی تابع convertor باید آرایه 256 تایی a رو بصورت عمومی تو برنامت تعریف کنی و با فراخوانی تابع set_value آرایه رو مقدار دهی کنی .
راستی اگه کارت رو انجام دادی یه لطفی بکن یه نمونه اولیه از برنامت رو هم بزار ممنون میشم

سلام

این تاپیکی که نوشتی برای ویندوز به ایران سیستمه یا ایران سیستم به ویندوز ؟

تبدیل ایران سیستم به کدهای ویندوز .
برعکسش هم کار زیادی نداره درست باید عمل عکس این تابع رو انجام بدی

سلام

آقا اگر ممکنه میتونی یه کمکی برای تبدیل از ویندوز به داس کنی ؟

ممنون میشم

برنامش دقیقا همینه با این تفاوت که بایس آرایه A رو تغییر بدی
برای تمام اعضای آرایه A تبدیلی مثل نمونه زیر انجام بده :

کد:

---

a(128) = Asc("0")

---

تبدیل کن به :

کد:

---

a( Asc("0")) =128

---

برنامش دقیقا همینه با این تفاوت که بایس آرایه A رو تغییر بدی
برای تمام اعضای آرایه A تبدیلی مثل نمونه زیر انجام بده :

کد:

---

a(128) = Asc("0")

---

تبدیل کن به :

کد:

---

a( Asc("0")) =128

---

راستی تا یادم نرفته اگه فقط یه بار میخوای این تبدیل رو انجام بدی بیخود وقتت رو نزار یه برنامه آماده دارم این کار رو انجام میده کد پیج های ایران سیستم ، سایه و . . . داس رو میگیره و تبدیل میکنه ، خواستی میلت رو بده واست میلش میکنم

آخه من سورس میخوام باید توی یه نرم افزاری که دارم می نویسم بکار ببرم . بیشترین نیازم هم تبدیل از ویندوز به داس هست