مبدل كدپيج ايران سيستم به ويندوز و بالعكس

[hrj1981]

دوستان سلام
كسي كامپوننت يا سورس كدي مرتبط با عنوان تاپيك نداره؟

[parselearn]

اينارو براتون پيدا كردم
كد پيج ايران سيستم هم هست (بالعكس شو نمي دونم هست يا نه)

[mhmoein]

سلام اينو بخون
http://www.barnamenevis.org/sh...&postcount=313

[mohammad bayervand]

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

فقط اگه بتونی کدهای سایه و پانیذ هم روی سایت بذاری ممنونت میشم
باتشکر

[M_Man_M]

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

فقط اگه بتونی کدهای سایه و پانیذ هم روی سایت بذاری ممنونت میشم
باتشکر

سلام دوست عزيزم
به روي چشم ؛ زودتر فرموده بوديد همين کدهاي ايران سيستم رو هم خدمتتون ارائه ميدادم
اونم براي اينکه ميگي هيجا پيدا نکردي
فقط اگه ممکنه يکي از اين کدهاي اسکي رو براي نمونه بنويس (مثلاً بگو کد حرف "ب" توي ايران سيستم برابر 60 هست - باز هم ميگم براي مثال) بقيش با من
منتظرم
خدانگهدار

[hrj1981]

دوستان اين ضميمه ها نتونست مشكل من را حل كند ، كسي از بچه ها نمونه يا الگوريتم ديگري ندارد

[mhmoein]

دوست عزيز
شما مي خواهيد متني( TXT ) رو تبديل كنيد يا نه مي خواهيد يك بانك اطاعاتي مثل DBF رو ؟

[hrj1981]

ركورد را از بانك اطلاعاتي مي خوانم و مي خواهم آن را به كد پيج ايران سيستم برگردانم.(TXT)
البته بصورت كامل.خودم يه كارايي كردم ولي متاسفانه اطلاعات بصورت كامل كانورت نميشه.

[hrj1981]

در كنار فايل DBF يك فايل CDX نيز مي باشد"فكر كنم انديكسهاي فايل DBF را داخل آن قرار مي دهند"،با خود فاكس پرو نيز اين فايل DBF من باز نمي شود و خطاي عدم وجود فايل REVERSE.prg را مي دهد

[hrj1981]

اُمت VB6 من بدجوري گير اين كد پيج ايران سيستم هستم (از win به Dos) چند تا نمونه بود ولي مشكل دارن .اگه الگوريتم تبديل را هم بگذاريد يه بلايي سرش ميارم.

[علی جباری]

به نظرم لينك زير بهترين برنامه در اين زمينه است كه كار شما رو بطور كامل انجام ميده.

http://www.barnamenevis.org/sh...ad.php?t=41062

[M_Man_M]

با عرض سلام

فايل Dll زير يک تابع تبديل کننده متن ويندوز به متن Dos ( ايران سيستم ) مي باشد .

مشکل اين فايل تنها اينه که سرعتش يک مقدار پايين است و اون هم به خاطر تبديل بدون مشکل اونه .

اميدوارم که مشکل همگي حل بشه .

در ضمن خواهش مي کنم در صورت بروز هرگونه مشکل در همين قسمت نوشته بگذاريد .

مثال تحت VB6 :

Dim W2D As New ClsWin2Dos
Dim StrW2D As String
StrW2D = W2D.Win2DosDll("متن")

فايل جديدي به نام W2D_D2W با قابليت بيشتري نسبت به اين فايل ساخته شده
ميتوانيد آنرا در ادامه دانلود نماييد
با تشکر

[azaran2002]

با عرض سلام

فايل Dll زير يک تابع تبديل کننده متن ويندوز به متن Dos ( ايران سيستم ) مي باشد .

مشکل اين فايل تنها اينه که سرعتش يک مقدار پايين است و اون هم به خاطر تبديل بدون مشکل اونه .

اميدوارم که مشکل همگي حل بشه .

در ضمن خواهش مي کنم در صورت بروز هرگونه مشکل در همين قسمت نوشته بگذاريد .

مثال تحت VB6 :

Dim W2D As New ClsWin2Dos
Dim StrW2D As String
StrW2D = W2D.Win2DosDll("متن")

با سلام
اين فايل رو من دانلود کردم اما بعد از 2 روز که دارم بااونکار ميکنم پيام خطاي زير را مي دهد:
"خطايي در برنامه رخ داده لطفا به برنامه نويس اطلاع دهيد"
لطفا کمک کنيد مشکل من حل شود

[M_Man_M]

با سلام خدمت دوست عزيزم azaran2002

از فايل دو طرفه W2D_D2W استفاده كنيد ( ورژن 1002 ) كه فايل كامل شده اولي هست .

در صورت امكان يا يك نمونه بگذاريد و يا اينكه جمله اي يا كلمه اي كه مايل به تبديل آن هستيد را يادداشت بگذاريد .

با تشكر
منتظر جواب هستم .

[rezankh]

با سلام خدمت دوست عزیزم azaran2002

از فایل دو طرفه W2D_D2W استفاده کنید ( ورژن 1002 ) که فایل کامل شده اولی هست .

در صورت امکان یا یک نمونه بگذارید و یا اینکه جمله ای یا کلمه ای که مایل به تبدیل آن هستید را یادداشت بگذارید .

با تشکر
منتظر جواب هستم .

با سلام
و تشکر از شما M_Man_M
میشه یک نمونه سورس کد کوچیک که نحوه بکارگیریش مشخص باشه بذارید من که مبتدی هستم نتونستم استفاده کنم.
ممنون.

[Programerexplorer]

سلام من این dll را در اکسس دارم اجرا می کنم ولی پیغام می دهد متدی پیدا نشد .
چه کار باید بکنم
ممنون

[M_Man_M]

سلام من این dll را در اکسس دارم اجرا می کنم ولی پیغام می دهد متدی پیدا نشد .
چه کار باید بکنم
ممنون

سلام
وقتتون بخیر

از کدوم dll دارید استفاده می‌کنید؟
از چه نسخه‌ای؟
داخل کد از کدوم متد استفاده کردید؟

اطلاعات کامل بدید تا بشه جواب شما رو داد

[golestanifar]

سلام
با عرض پوزش
برعكسش وجود نداره
يعني داس به ويندوز
فايل dll ‌يا سورس vb

[M_Man_M]

سلام
با عرض پوزش
برعكسش وجود نداره
يعني داس به ويندوز
فايل dll ‌يا سورس vb

سلام دوست عزيز

احتمالا شما فايل اولي win2dos رو برداشتي
اون فايل خيلي وقته ديگه ادامه داده نشده و به جاش فايل دو طرفه w2d_d2w نوشته شده
كه هم از داس به ويندوز و هم از ويندوز به داس تبديل ميكنه
فعلا آخرين ريويژنش رو ميتوني از صفحه هشت همين تاپيك دانلود كني

موفق باشي

[hrj1981]

با سلام و تشكر
دوست عزيز ، فوق العاده كانورت ميكنه ولي با حرف "ك" مشكل داره و بعد از كانورت به علات "؟" تبديل ميشه.

[hrj1981]

توي يك كامپيوتر ديگر امتحان كردم حرف "ك" تبديل به "غ" شد.
كامپيوتر اول با سيستم عامل MediCenter بود و دومي با سيستم عامل XP per SP2

[M_Man_M]

با عرض سلام خدمت تمامي دوستان
همچنين سلام مخصوص خدمت دوست عزيزم hrj1981 ( با تشکر از نامه ات )

قابل توجه کليه دوستان که از فايل win2dos.dll استفاده مي کنند :

اگر هنگام استفاده از فايل فوق مشکل حرف "ک" داريد ميتونيد فايل زير را در ويندوز يک بار اجرا کنيد .
توضيح در مورد فايل زير :
فايل زير اصلاح کننده کيبورد فارسي در ويندوز xp هست ( حرف "پ" و "ژ" ) که اگه اونو فقط يک بار داخل هر ويندوز xp اجرا کنيد و ويندوز را مجدداً بوت کنيد مشکل حل مي شود .
توجه کنيد که هنگام اجرا سي دي ويندوز داخل درايو سي دي نباشد . هيچ پنجره اي جهت نصب به شما نشان داده نمي شود . در انتها يک پنجره باز مي شود که در خواست سي دي ويندوز مي کند . شما پنجره را لغو و ويندوز را reset کنيد .

کساني که به هر دليل نمي خواهند از فايل زير استفاده کنند ، منتظر ورژن بعدي فايل کتابخانه اي باشند .

با تشکر از تمامي دوستان
همچنان منتظر نظرات خوب شما هستم .

[hrj1981]

سلام
چقدر براي ورژن بعدي بايد صبر كنيم.من بدجوري گيرم

[M_Man_M]

سلام
چقدر براي ورژن بعدي بايد صبر كنيم.من بدجوري گيرم

با سلام

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

[hrj1981]

فايل fa_key را اجرا کردم ، وقتي پيغام قراردادنCD ظاهر مي گردد و هنگامي که آن را لغو مي کنم پيغام زير ظاهر مي شو د و مشکل همچنان باقي است

You Chose not to restore the orginal version of the files.

the may affect windows stability

are you sure you want to keep these unrecognized file version?

ضمنا حروف "ع" و "غ" در هنگامي به آخر کلمه مي رسند تبديل به حروف آخر چسبان نمي شوند.

[M_Man_M]

فايل fa_key را اجرا کردم ، وقتي پيغام قراردادنCD ظاهر مي گردد و هنگامي که آن را لغو مي کنم پيغام زير ظاهر مي شو د و مشکل همچنان باقي است

You Chose not to restore the orginal version of the files.

the may affect windows stability

are you sure you want to keep these unrecognized file version?

ضمنا حروف "ع" و "غ" در هنگامي به آخر کلمه مي رسند تبديل به حروف آخر چسبان نمي شوند.

با سلاموقتي پيغام فوق نمايش داده شد ، شما گزينه Yes را انتخاب کرده و يک بار ويندوز را Reset نماييد .وقتي ويندوز بوت شد ، مشکل کاملاً بر طرف مي شود .منتظر جواب هستم .

[hrj1981]

کاري که گفتيد انجام شد ولي متاسفانه اتفاقي صورت نگرفت

[M_Man_M]

کاري که گفتيد انجام شد ولي متاسفانه اتفاقي صورت نگرفت

با سلام

من اين فايل رو حداقل روي 100 تا کامپيوتر با هر ويندوز ايکس پي که داشته امتحان کردم و جواب گرفتم .
در صورت امکان روي يک کامپيوتر ديگر امتحان کنيد .

در مورد حروف "ع" و "غ" که فرموده بوديد :
حرف "غ" مشکلي نداشت ولي مشکل حرف "ع" رو در ريويژن زير بر طرف کردم .

فايل جديدي به نام W2D_D2W با قابليت بيشتري نسبت به اين فايل ساخته شده
ميتوانيد آنرا در ادامه دانلود نماييد
با تشکر

[hrj1981]

من الان اين ريوژن را هم امتحان کردم ولي متاسفانه همان حرف ک را به غ تبديل کرد.ضمنا من مشکلم فقط با همين حرف است و ساير حروف مانند ژ و پ بدرستي کانورت ميشود.نمي دانم از زحمات حضرتعالي چگونه تشکر کنم ، شايد مشکل از سيستم من باشد اگر اجازه بدهيد شب با کامپيوتر منزل تست کنم شايد درست شد. راستي در رابطه با کانورت برعکس از داس به ويندوز چيزي نداريد؟

[M_Man_M]

توجه توجه توجه :

قابل توجه کليه کساني که از دو فايل Win2Dos.dll و Fa_Key استفاده مي کنند
( از جمله دوست عزيزم hrj1981 )

اگر دوستان مشکل حرف ک داشتند و سپس از فايل Fa_Key استفاده کردند بايد بدانند متني که وارد فايل کتابخانه اي مي شود چيست .

مثلا اگر شما فايل بانک اطلاعاتي اکسس را به عنوان منبع داشته ايد و يکسري اطلاعات وارد آن کرده ايد ( قبل از استفاده از fa_key ) پس از استفاده از فايل Fa_Key مشکل حرف ک حل مي شود . ولي اطلاعاتي که قبلا وارد شده تصحيح نمي شود .

در نتيجه شما بايد بصورت دستي تمام حروف ک را در بانک اطلاعاتي با حرف ک جديد ريپليس کنيد و مجددا براي کانورت تلاش کنيد .

من باز هم منتظر جواب هستم . با تشکر فراوان

[hrj1981]

راستي براي مقدار اسکي حرف ک چه عددي را انتخاب نموده ايد.الان من در کامپيوتر خودم مقدار اسکي آن را 152 مي بينم

[hrj1981]

مهندس جان اگر اجازه بدهي چون فايل من SQL است و شامل چند هزار رکورد بايد حدود چند ساعت براي کانورت حروف ک وقت بگذارم و شب در منزل بر روي آن کار مي کنم و فردا حتما در تالار پاسخ مي گذارم .
فعلا مزاحم وقت گرانبهاي حضرتعالي نمي شوم. انشاا... اگر عمري باقي بود فردا مزاحتمان مي شوم.

[hrj1981]

با سلام
هر طوري بود نصف اطلاعات را تصحيح کردم و حق با شما بود و با اصلاح آنها مشکل بر طرف شد."واقعا زحمت دوست عزيزمان M_MAN_M جاي تقدير دارد."ولي آيا اين تنها راه رفع اين مشکل است؟

[saied_genius]

خواهشاً نحوه كار با dos2win.dll را بفرماييد با توضيحات بيشتر

[M_Man_M]

با عرض سلام :

نمي دونم منظور شما از فايل DOS2WIN همان فايل WIN2DOS هست يا خير .

اگه ميخواهيد از فايل WIN2DOS استفاده كنيد مي توانيد پيغام هاي اين تاپيك را از ابتدا تا انتها مطالعه بفرماييد تا اطلاعاتي كه مايل هستيد بدست بياوريد ولي در خلاصه بايد بگم فابل فوق يك مبدل است و شما با آن قادر خواهيد بود يك متن تحت ويندوز با به متن تحت داس با كد پيج ايران سيستم كانورت نماييد . در ضمن شما ميتونيد از فايل زير به جاي فايل فوق استفاده كنيد .

توضيحات در مورد فايل W2D_D2W.DLL
فايل فوق از دو قسمت تشكيل شده است :
1- تبديل از ويندوز به داس :
اين قسمت همانند فايل WIN2DOS عمل مي كند و لازم به توضيح بيشتر نيست .
2- تبديل از داس به ويندوز :
اين قسمت از سه قسمت تشكيل شده است :
الف : خواندن متن داس از روي فايل :
براي تبديل يك متن تحت داس با كد پيج ايران سيستم به ويندوز در صورتي كه اين متن مستقيم از روي يك فايل خوانده مي شود مورد استفاده قرار مي گيرد . براي مثال وقتي كه شما با استفاده از PROVIDER شروع به خواندن ركورد هاي يك بانك اطلاعاتي مي كنيد مي توانيد از اين قسمت براي تبديل يك فيلد به ويندوز استفاده نماييد .
ب : خواندن متن داس داخل ويندوز :
پ : خواندن متن داس از داخل يك تكست باكس در ويندوز :
اين دو قسمت هنوز صد در صد تست نشده ولي تا حدي جواب داده است .

نكات قابل توجه :
مشكل حرف ك و در بعضي مواقع نادر حرف ي در تبديل از ويندوز به داس با استفاده از فايل WIN2DOS در قسمت تبديلي از ويندوز به داس اين فايل جديد برطرف شده كه اميدوارم مشكل دوستان حل شود .

در تمامي سه قسمت تبديل از داس به ويندوز اين فايل يك پارامتر BOOLEAN قرار دارد كه مقدار پيش فرض ان FALSE مي باشد .در صورتي كه شما اين مقدار را برابر TRUE قرار دهيد در صورتي كه بعد از هر حرف بزرگ در متن داس شما فاصله نگذاشته باشيد براي جلوگيري از چسبيدن در متن تحت ويندوز يك فاصله بعد از آن حرف بزرگ قرار داده مي شود .

در پايان از تمامي دوستان تشكر كرده و خواشمندم در صورت بروز هر گونه مشكل در همين قسمت پيغام بگذارند تا بررسي و انشاءالله مشكل همگي بر طرف گردد .

ورژن جديدتري از اين فايل در ادامه موجود است
ميتوانيد آنرا در ادامه دانلود نماييد
با تشکر

[feredy]

با سلام من تازه عضو شدم.
من فايلي با فرمت txt تحت dos دارم و مي خواهم آنرا در vb6 در بانك اكسس وارد كنم. لطفا راهنمايي كنيد تا بتوانم كاراكترهاي اسامي را در vb6 درست دريافت كنم. اگر كدي ارانه دهيد ممنون ميشم.

[M_Man_M]

با عرض سلام خدمت شما دوست عزيز تازه وارد :
اگر نمونه اي از فايل را همراه با پست خودتون ارسال مي كرديد بهتر مي تونستم كمكتون كنم ولي به هر حال مي تونيد بصورت زير عمل كنيد :
1- ابتدا بايد فايل W2D-D2W.dll را دانلود و با دستور a داخل Start > Run اون و رجيستر كنيد .
2- وارد گزينه Refrence پروژه ويژوال بيسيك شده و گزينه Convert windows string to dos … را يافته و آنرا فعال كنيد .
3- چون من نحوه ريختن اطلاعات تحت داس را در فايل تكست شما نمي دونم پس اين مرحله را بايد خودتون عمل كنيد فقط بايد متن هاي داخل اين فايل را به هر صورت كه مايل هستيد و با دستوراتي كه فايل تكست را باز كرده و آنرا مي خواند خوانده و آنرا به يك Function تعريف شده با استفاده از دستور b ارسال كنيد .
4- اطلاعات برگشت شده از Function را نيز با توجه به فايل اكسس و نحوه اطلاعات ورودي با دستورات مربوطه وارد بانك نماييد .

A:
Regsvr32 "آدرس و نام فايل كتابخانه اي"

B:
Private Function ToWin(ByVal StringDos as string , ByVal BooleanSpaceAfterUperCase as Boolean) as string
Dim ClsD2W as new w2d_d2w.ClsDosToWin
ToWin=clsd2w.گزينه سوم (StringDos, BooleanSpaceAfterUperCase)
End function

StringDos كلمه تحت داس است
BooleanSpaceAfterUperCase يك مقدار درست و غلط است ( چون در محيط داس كلمات بزرگ بدون فاصله بعد از آن به كلمه بعدي نمي چسبد ولي در ويندوز مي چسبد اين مقدار در صورت درست بودن يك فاصله (در صورت نبودن) بعد از هر حرف بزرگ قرار مي دهد .

[smderfan]

سلام و خسته نباشید
در کد های زیر منظور از گزینه سوم چیه؟ ... اگر زحمتی نیست یک نمونه برام قرار بدید. متشکرم

Private Function ToWin(ByVal StringDos as string , ByVal BooleanSpaceAfterUperCase as Boolean) as string

Dim ClsD2W as new w2d_d2w.ClsDosToWin

ToWin=clsd2w.گزينه سوم (StringDos, BooleanSpaceAfterUperCase)

End function

[M_Man_M]

با عرض سلام خدمت دوستان :
كد درخواست شده بصورت زير مي باشد :

Private Function ToWin(ByVal StringDos As String, ByVal BooleanSpaceAfterUperCase As Boolean) As String
Dim ClsD2W As New W2D_D2W.ClsDos2Win
ToWin = ClsD2W.Dos2Win_ReadFromTextInWin(StringDos, BooleanSpaceAfterUperCase)
End Function

[sammehr]

با سلام من تازه عضو شدم.
من فايلي با فرمت txt تحت dos دارم و مي خواهم آنرا به صورت متن windows در آورم . فارسي فايل مزبور نه ايران سيستم است نه سايه و نه ... . براي تبديل آن نياز به نوشتن يك كانورتور دارم كه آن را در vb6 نوشته ام و تا حدودي هم جواب مي دهد . ولي اشكال بزرگي كه دارد اينست كه به انتهاي هر خط وقتي مي خواهم يك تعدادي فاصله خالي و بعد يك كراكتر فارسي اضافه كنم ، به هر روشي كه عمل مي كنم اول كراكتر فارسي را مي نويسد و بعد فاصله خالي مي اندازد . ممكن است كمكم نمائيد.
با تشكر