دوستان سلام
كسي كامپوننت يا سورس كدي مرتبط با عنوان تاپيك نداره؟
دوستان سلام
كسي كامپوننت يا سورس كدي مرتبط با عنوان تاپيك نداره؟
آخرین ویرایش به وسیله vbhamed : یک شنبه 17 اسفند 1393 در 17:53 عصر
اينارو براتون پيدا كردم
كد پيج ايران سيستم هم هست (بالعكس شو نمي دونم هست يا نه)
سلام اينو بخون
http://www.barnamenevis.org/sh...&postcount=313
آقا بسیار بسیار ممنون
من دنبال کد های معادل ویندوز ایران سیستم میگشتم
همه جا فقط هی برنامه و فایل اجرایی آپلود کرده بودن
خیلی لطف کردی
از توی سورس فایل VB کد اسکی های ایران سیستم را بدست آوردم
فقط اگه بتونی کدهای سایه و پانیذ هم روی سایت بذاری ممنونت میشم
باتشکر
آخرین ویرایش به وسیله vbhamed : چهارشنبه 10 تیر 1394 در 21:20 عصر
سلام دوست عزيزم
به روي چشم ؛ زودتر فرموده بوديد همين کدهاي ايران سيستم رو هم خدمتتون ارائه ميدادم
اونم براي اينکه ميگي هيجا پيدا نکردي
فقط اگه ممکنه يکي از اين کدهاي اسکي رو براي نمونه بنويس (مثلاً بگو کد حرف "ب" توي ايران سيستم برابر 60 هست - باز هم ميگم براي مثال) بقيش با من
منتظرم
خدانگهدار
آخرین ویرایش به وسیله M_Man_M : پنج شنبه 11 تیر 1394 در 16:16 عصر دلیل: دقيق تر کردن متن
دوستان اين ضميمه ها نتونست مشكل من را حل كند ، كسي از بچه ها نمونه يا الگوريتم ديگري ندارد
دوست عزيز
شما مي خواهيد متني( TXT ) رو تبديل كنيد يا نه مي خواهيد يك بانك اطاعاتي مثل DBF رو ؟
ركورد را از بانك اطلاعاتي مي خوانم و مي خواهم آن را به كد پيج ايران سيستم برگردانم.(TXT)
البته بصورت كامل.خودم يه كارايي كردم ولي متاسفانه اطلاعات بصورت كامل كانورت نميشه.
در كنار فايل DBF يك فايل CDX نيز مي باشد"فكر كنم انديكسهاي فايل DBF را داخل آن قرار مي دهند"،با خود فاكس پرو نيز اين فايل DBF من باز نمي شود و خطاي عدم وجود فايل REVERSE.prg را مي دهد
اُمت VB6 من بدجوري گير اين كد پيج ايران سيستم هستم (از win به Dos) چند تا نمونه بود ولي مشكل دارن .اگه الگوريتم تبديل را هم بگذاريد يه بلايي سرش ميارم.
به نظرم لينك زير بهترين برنامه در اين زمينه است كه كار شما رو بطور كامل انجام ميده.
http://www.barnamenevis.org/sh...ad.php?t=41062
با عرض سلام
فايل Dll زير يک تابع تبديل کننده متن ويندوز به متن Dos ( ايران سيستم ) مي باشد .
مشکل اين فايل تنها اينه که سرعتش يک مقدار پايين است و اون هم به خاطر تبديل بدون مشکل اونه .
اميدوارم که مشکل همگي حل بشه .
در ضمن خواهش مي کنم در صورت بروز هرگونه مشکل در همين قسمت نوشته بگذاريد .
مثال تحت VB6 :
Dim W2D As New ClsWin2Dos
Dim StrW2D As String
StrW2D = W2D.Win2DosDll("متن")
فايل جديدي به نام W2D_D2W با قابليت بيشتري نسبت به اين فايل ساخته شده
ميتوانيد آنرا در ادامه دانلود نماييد
با تشکر
آخرین ویرایش به وسیله M_Man_M : سه شنبه 13 فروردین 1392 در 13:16 عصر دلیل: اضافه شدن فايل جديدتر
با سلام خدمت دوست عزيزم azaran2002
از فايل دو طرفه W2D_D2W استفاده كنيد ( ورژن 1002 ) كه فايل كامل شده اولي هست .
در صورت امكان يا يك نمونه بگذاريد و يا اينكه جمله اي يا كلمه اي كه مايل به تبديل آن هستيد را يادداشت بگذاريد .
با تشكر
منتظر جواب هستم .
سلام من این dll را در اکسس دارم اجرا می کنم ولی پیغام می دهد متدی پیدا نشد .
چه کار باید بکنم
ممنون
سلام
با عرض پوزش
برعكسش وجود نداره
يعني داس به ويندوز
فايل dll يا سورس vb
با سلام و تشكر
دوست عزيز ، فوق العاده كانورت ميكنه ولي با حرف "ك" مشكل داره و بعد از كانورت به علات "؟" تبديل ميشه.
توي يك كامپيوتر ديگر امتحان كردم حرف "ك" تبديل به "غ" شد.
كامپيوتر اول با سيستم عامل MediCenter بود و دومي با سيستم عامل XP per SP2
با عرض سلام خدمت تمامي دوستان
همچنين سلام مخصوص خدمت دوست عزيزم hrj1981 ( با تشکر از نامه ات )
قابل توجه کليه دوستان که از فايل win2dos.dll استفاده مي کنند :
اگر هنگام استفاده از فايل فوق مشکل حرف "ک" داريد ميتونيد فايل زير را در ويندوز يک بار اجرا کنيد .
توضيح در مورد فايل زير :
فايل زير اصلاح کننده کيبورد فارسي در ويندوز xp هست ( حرف "پ" و "ژ" ) که اگه اونو فقط يک بار داخل هر ويندوز xp اجرا کنيد و ويندوز را مجدداً بوت کنيد مشکل حل مي شود .
توجه کنيد که هنگام اجرا سي دي ويندوز داخل درايو سي دي نباشد . هيچ پنجره اي جهت نصب به شما نشان داده نمي شود . در انتها يک پنجره باز مي شود که در خواست سي دي ويندوز مي کند . شما پنجره را لغو و ويندوز را reset کنيد .
کساني که به هر دليل نمي خواهند از فايل زير استفاده کنند ، منتظر ورژن بعدي فايل کتابخانه اي باشند .
با تشکر از تمامي دوستان
همچنان منتظر نظرات خوب شما هستم .
سلام
چقدر براي ورژن بعدي بايد صبر كنيم.من بدجوري گيرم
فايل 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?
ضمنا حروف "ع" و "غ" در هنگامي به آخر کلمه مي رسند تبديل به حروف آخر چسبان نمي شوند.
کاري که گفتيد انجام شد ولي متاسفانه اتفاقي صورت نگرفت
با سلام
من اين فايل رو حداقل روي 100 تا کامپيوتر با هر ويندوز ايکس پي که داشته امتحان کردم و جواب گرفتم .
در صورت امکان روي يک کامپيوتر ديگر امتحان کنيد .
در مورد حروف "ع" و "غ" که فرموده بوديد :
حرف "غ" مشکلي نداشت ولي مشکل حرف "ع" رو در ريويژن زير بر طرف کردم .
فايل جديدي به نام W2D_D2W با قابليت بيشتري نسبت به اين فايل ساخته شده
ميتوانيد آنرا در ادامه دانلود نماييد
با تشکر
آخرین ویرایش به وسیله M_Man_M : سه شنبه 13 فروردین 1392 در 13:17 عصر دلیل: اضافه شدن فايل جديدتر
من الان اين ريوژن را هم امتحان کردم ولي متاسفانه همان حرف ک را به غ تبديل کرد.ضمنا من مشکلم فقط با همين حرف است و ساير حروف مانند ژ و پ بدرستي کانورت ميشود.نمي دانم از زحمات حضرتعالي چگونه تشکر کنم ، شايد مشکل از سيستم من باشد اگر اجازه بدهيد شب با کامپيوتر منزل تست کنم شايد درست شد. راستي در رابطه با کانورت برعکس از داس به ويندوز چيزي نداريد؟
توجه توجه توجه :
قابل توجه کليه کساني که از دو فايل Win2Dos.dll و Fa_Key استفاده مي کنند
( از جمله دوست عزيزم hrj1981 )
اگر دوستان مشکل حرف ک داشتند و سپس از فايل Fa_Key استفاده کردند بايد بدانند متني که وارد فايل کتابخانه اي مي شود چيست .
مثلا اگر شما فايل بانک اطلاعاتي اکسس را به عنوان منبع داشته ايد و يکسري اطلاعات وارد آن کرده ايد ( قبل از استفاده از fa_key ) پس از استفاده از فايل Fa_Key مشکل حرف ک حل مي شود . ولي اطلاعاتي که قبلا وارد شده تصحيح نمي شود .
در نتيجه شما بايد بصورت دستي تمام حروف ک را در بانک اطلاعاتي با حرف ک جديد ريپليس کنيد و مجددا براي کانورت تلاش کنيد .
من باز هم منتظر جواب هستم . با تشکر فراوان
راستي براي مقدار اسکي حرف ک چه عددي را انتخاب نموده ايد.الان من در کامپيوتر خودم مقدار اسکي آن را 152 مي بينم
مهندس جان اگر اجازه بدهي چون فايل من SQL است و شامل چند هزار رکورد بايد حدود چند ساعت براي کانورت حروف ک وقت بگذارم و شب در منزل بر روي آن کار مي کنم و فردا حتما در تالار پاسخ مي گذارم .
فعلا مزاحم وقت گرانبهاي حضرتعالي نمي شوم. انشاا... اگر عمري باقي بود فردا مزاحتمان مي شوم.
با سلام
هر طوري بود نصف اطلاعات را تصحيح کردم و حق با شما بود و با اصلاح آنها مشکل بر طرف شد."واقعا زحمت دوست عزيزمان M_MAN_M جاي تقدير دارد."ولي آيا اين تنها راه رفع اين مشکل است؟
خواهشاً نحوه كار با dos2win.dll را بفرماييد با توضيحات بيشتر
با عرض سلام :
نمي دونم منظور شما از فايل DOS2WIN همان فايل WIN2DOS هست يا خير .
اگه ميخواهيد از فايل WIN2DOS استفاده كنيد مي توانيد پيغام هاي اين تاپيك را از ابتدا تا انتها مطالعه بفرماييد تا اطلاعاتي كه مايل هستيد بدست بياوريد ولي در خلاصه بايد بگم فابل فوق يك مبدل است و شما با آن قادر خواهيد بود يك متن تحت ويندوز با به متن تحت داس با كد پيج ايران سيستم كانورت نماييد . در ضمن شما ميتونيد از فايل زير به جاي فايل فوق استفاده كنيد .
توضيحات در مورد فايل W2D_D2W.DLL
فايل فوق از دو قسمت تشكيل شده است :
1- تبديل از ويندوز به داس :
اين قسمت همانند فايل WIN2DOS عمل مي كند و لازم به توضيح بيشتر نيست .
2- تبديل از داس به ويندوز :
اين قسمت از سه قسمت تشكيل شده است :
الف : خواندن متن داس از روي فايل :
براي تبديل يك متن تحت داس با كد پيج ايران سيستم به ويندوز در صورتي كه اين متن مستقيم از روي يك فايل خوانده مي شود مورد استفاده قرار مي گيرد . براي مثال وقتي كه شما با استفاده از PROVIDER شروع به خواندن ركورد هاي يك بانك اطلاعاتي مي كنيد مي توانيد از اين قسمت براي تبديل يك فيلد به ويندوز استفاده نماييد .
ب : خواندن متن داس داخل ويندوز :
پ : خواندن متن داس از داخل يك تكست باكس در ويندوز :
اين دو قسمت هنوز صد در صد تست نشده ولي تا حدي جواب داده است .
نكات قابل توجه :
مشكل حرف ك و در بعضي مواقع نادر حرف ي در تبديل از ويندوز به داس با استفاده از فايل WIN2DOS در قسمت تبديلي از ويندوز به داس اين فايل جديد برطرف شده كه اميدوارم مشكل دوستان حل شود .
در تمامي سه قسمت تبديل از داس به ويندوز اين فايل يك پارامتر BOOLEAN قرار دارد كه مقدار پيش فرض ان FALSE مي باشد .در صورتي كه شما اين مقدار را برابر TRUE قرار دهيد در صورتي كه بعد از هر حرف بزرگ در متن داس شما فاصله نگذاشته باشيد براي جلوگيري از چسبيدن در متن تحت ويندوز يك فاصله بعد از آن حرف بزرگ قرار داده مي شود .
در پايان از تمامي دوستان تشكر كرده و خواشمندم در صورت بروز هر گونه مشكل در همين قسمت پيغام بگذارند تا بررسي و انشاءالله مشكل همگي بر طرف گردد .
ورژن جديدتري از اين فايل در ادامه موجود است
ميتوانيد آنرا در ادامه دانلود نماييد
با تشکر
آخرین ویرایش به وسیله M_Man_M : سه شنبه 13 فروردین 1392 در 13:19 عصر دلیل: اضافه شدن فايل جديدتر
با سلام من تازه عضو شدم.
من فايلي با فرمت txt تحت dos دارم و مي خواهم آنرا در vb6 در بانك اكسس وارد كنم. لطفا راهنمايي كنيد تا بتوانم كاراكترهاي اسامي را در vb6 درست دريافت كنم. اگر كدي ارانه دهيد ممنون ميشم.
با عرض سلام خدمت شما دوست عزيز تازه وارد :
اگر نمونه اي از فايل را همراه با پست خودتون ارسال مي كرديد بهتر مي تونستم كمكتون كنم ولي به هر حال مي تونيد بصورت زير عمل كنيد :
1- ابتدا بايد فايل W2D-D2W.dll را دانلود و با دستور a داخل Start > Run اون و رجيستر كنيد .
2- وارد گزينه Refrence پروژه ويژوال بيسيك شده و گزينه Convert windows string to dos … را يافته و آنرا فعال كنيد .
3- چون من نحوه ريختن اطلاعات تحت داس را در فايل تكست شما نمي دونم پس اين مرحله را بايد خودتون عمل كنيد فقط بايد متن هاي داخل اين فايل را به هر صورت كه مايل هستيد و با دستوراتي كه فايل تكست را باز كرده و آنرا مي خواند خوانده و آنرا به يك Function تعريف شده با استفاده از دستور b ارسال كنيد .
4- اطلاعات برگشت شده از Function را نيز با توجه به فايل اكسس و نحوه اطلاعات ورودي با دستورات مربوطه وارد بانك نماييد .
A:
Regsvr32 "آدرس و نام فايل كتابخانه اي"
B:StringDos كلمه تحت داس است
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
BooleanSpaceAfterUperCase يك مقدار درست و غلط است ( چون در محيط داس كلمات بزرگ بدون فاصله بعد از آن به كلمه بعدي نمي چسبد ولي در ويندوز مي چسبد اين مقدار در صورت درست بودن يك فاصله (در صورت نبودن) بعد از هر حرف بزرگ قرار مي دهد .
سلام و خسته نباشید
در کد های زیر منظور از گزینه سوم چیه؟ ... اگر زحمتی نیست یک نمونه برام قرار بدید. متشکرم
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
آخرین ویرایش به وسیله smderfan : شنبه 23 خرداد 1388 در 15:28 عصر
با عرض سلام خدمت دوستان :
كد درخواست شده بصورت زير مي باشد :
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
با سلام من تازه عضو شدم.
من فايلي با فرمت txt تحت dos دارم و مي خواهم آنرا به صورت متن windows در آورم . فارسي فايل مزبور نه ايران سيستم است نه سايه و نه ... . براي تبديل آن نياز به نوشتن يك كانورتور دارم كه آن را در vb6 نوشته ام و تا حدودي هم جواب مي دهد . ولي اشكال بزرگي كه دارد اينست كه به انتهاي هر خط وقتي مي خواهم يك تعدادي فاصله خالي و بعد يك كراكتر فارسي اضافه كنم ، به هر روشي كه عمل مي كنم اول كراكتر فارسي را مي نويسد و بعد فاصله خالي مي اندازد . ممكن است كمكم نمائيد.
با تشكر