تبدیل کاراکترهای فارسی ویندوز به کاراکتر فارسی در dos

[masysh]

برنامه من یک فایل تولید می کند که باید با برنامه vegaf (فارسی ساز DOS ) در DOS باز شده و مورد استفاده قرار گیرد. برای این کار باید فایلی که تولید می شود با کاراکترهای تحت استاندارد IRAN SYSTEM تولید شوند. از دوستان اگر کسی در این رابطه اطلاعی دارد ، لطفا کمک کند.

[Sub Zero]

دوست عزیز اگه خروجی برنامت یه دیتا بیسه به تاپیک زیر یه سری بزن هر چی بخوای توش هست
http://barnamenevis.org/forum/showthread.php?p=287500#post287500

[masysh]

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

[Sub Zero]

من که نمی تونم کمکت کنم اما فکر کنم آقای حسینی بتونه چون تخصصش تو همین تبدیلهاست
یه pm براش بفرست و مشکلت رو بگو :
http://barnamenevis.org/forum/private.php?do=newpm&u=8070

[komail_sh]

من این کارو کردم ولی از داس به ویندوز
تومیتونی یه کلاس بنویسی که کد اسکی هر کاراکتر رو به کد اسکی اون کاراکتر در داس تبدیل کنه اگه نتونستی بگو تا من یه کلاس نمونه برات بفرستم

[sh]

برای تبدیل داس به ویندوز مشکل زیادی نیست ولی مهمترین قضیه از ویندوز به داس هست . بطور مثال حرف "ی" باید چک بشه که اول کلمه هست یا آخر یا وسط چون تحت داس برای هر یک کد جداگانه داره . بهر حال اگر این تاپیک رو شروع کنید من هم کمک میکنم تموم بشه سورس فاکس پرو رو دارم کسی که هم فاکس بلده هم ویبی میتونه کمک کنه

[linux]

برای تبدیل داس به ویندوز مشکل زیادی نیست ولی مهمترین قضیه از ویندوز به داس هست . بطور مثال حرف "ی" باید چک بشه که اول کلمه هست یا آخر یا وسط چون تحت داس برای هر یک کد جداگانه داره . بهر حال اگر این تاپیک رو شروع کنید من هم کمک میکنم تموم بشه سورس فاکس پرو رو دارم کسی که هم فاکس بلده هم ویبی میتونه کمک کنه
کل فایل تکست را باید در یک آرایه بریزی حالا اگر حجمش زیاد باید تو 3-4 بار این کار را انجام بدهی برای تبدیل حرف i ام این آرایه باید حروف i-1 و i+1 را هم چک کنید و حالت های بوجود آماده را کنترل کنید و سپس کد را تبدیل کنید یک چیزی شبیه این را ویندوز همیشه انجام می دهد.

[javad_hosseiny]

البته در همون پست اصل برنامه به همراه سورس (هرچند به زبان ویژوال فاکس می باشد) وجود دارد و با مطالعه متن روتین اصلی تبدیل (win2dos.prg) می تونید به نحوه کار و الگورتیم تبدیل پی ببرید
لازم به ذکر است که اون برنامه قابلیت تبدیل کدپیچ های مختلف (چه داس چه ویندوز و چه وب (یونی کد) را دارد) و البته با امکان تغییر قالب فایل (چه دیتابیس چه فایل متن چه فایل sql و ....)
و شما جهت گرفتن خروجی فایل تکست (متن) نیز می تونید از اون برنامه استفاده کنید.
http://barnamenevis.org/forum/showthread.php?t=41062

[maryam2007]

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

[ashkan12345]

من توی همه سایت سرچ کردم.
اما یک تابع جامع که یک رشته رو بگیره و از فونت ویندوز به فونت داس تبدیل کنه پیدا نکردم!

تابعی که خودم دارم مشکل داره (همه حروف رو به شکل حرف کامل می نویسه مثلا ح س ی ن به جای حسین)

[vbmohammad]

من درستش کردم اما وقت ندارم خوشکلش کنم . حالشو ببرین.
منو فراموش نکنین.:تشویق:

[visual_sadegh]

Public Class DosToWinClass
Dim A() As Byte = {141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137}
Dim B() As String = {"ا", "ئ", "ء", "ا", "ا", "ب", "ب", "پ", "پ", "ت", "ت", "ث", "ث", "ج", "ج", "چ", "چ", "ح", "ح", "خ", "خ", "د", "ذ", "ر", "ز", "ژ", "س", "س", "ش", "ش", "ص", "ص", "ض", "ض", "ط", "ظ", "ع", "ع", "ع", "ع", "غ", "غ", "غ", "غ", "ف", "ف", "ق", "ق", "ك", "ك", "گ", "گ", "ل", "ل", "ل", "م", "م", "ن", "ن", "و", "ه", "ه", "ه", "ي", "ي", "ي", "ي", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
Dim C() As Byte = {0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 2, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
Private Function Conver_Type(ByVal AsciiCode As Byte) As String
Dim I As Byte
'Dim P As String
If AsciiCode = 13 Then
Conver_Type = vbCrLf
Exit Function
End If
If AsciiCode = 10 Then Return Nothing
For I = 0 To 76
If A(I) = AsciiCode Then Exit For
Next
If I = 77 Then
Select Case Chr(AsciiCode)
Case ")"
Conver_Type = "("
Case "("
Conver_Type = ")"
Case Else
Conver_Type = Chr(AsciiCode)
End Select
Exit Function
End If
If C(I) = 2 Then
Conver_Type = "لا"
Exit Function
End If
Conver_Type = B(I) & IIf(C(I) = 0, String.Empty, Space(1))
End Function

Public Function Conver_To_Windows(ByVal Txt As String) As String
Dim I As Integer
Dim P As String = Nothing
For I = Len(Txt) To 1 Step -1
P = P & Conver_Type(Asc(Mid(Txt, I, 1)))
Next
Conver_To_Windows = P
End Function

Public Sub New()
End Sub
End Class

ببین این به کارت مییاد

[farzadho]

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