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

[smderfan]

سلام و خداقوت
با تشکر از شما M_Man_M عزیز
من با نرم افزار اکسس کار می کنم ... و می خوام از فایلی که اینجا قرار دادید با کد بالا در اکسس استفاده کنم.
اگر زحمتی نیست یک نمونه برام قرار بدید تا بهتر بتونم اینکار رو انجام بدم.
آیا این امکان وجود داره که بتونه فایل Dbf تحت داس رو قبول کنه و به یک فایل mdb تبدیل کنه؟
با سپاس

[M_Man_M]

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

اولاً فايل مورد نظر يك برنامه Convertor نيست و تنها يك تابع كتابخانه ايست و اين به اين معناست كه شما نمي توانيد يك فايل تحت داس ارسال و يك فايل تحت ويندوز دريافت كنيد .

ثانياً شما براي كار با اين فايل مي تونيد به مطلب شماره 28 همين تاپيك مراجعه كنيد . البته تنها تفاوت در اينه كه در اون مطلب از يك فايل تكست استفاده مي شد ولي در مورد شما يك فايل dbf هست .

ولي به هر حال شما براي كار ، بايد ركورد ها را يك به يك از فايل dbf خونده ، آنرا به تابع استفاده شده از فايل فوق ارسال ( با استفاده از كد ذكر شده در قبل ) و متن برگشت داده شده را به يك جدول در ديتابيس مورد نظر خود ( فايل mdb ) اضافه نماييد .

اميدوارم مطلب مورد نظر مورد استفاده قرار بگيرد . در صورت تمايل مي تونيد يك نمونه از فايل dbf و يك نمونه از فايل mdb را ارسال كرده تا نمونه كامل را من برات ارسال كنم .

با تشكر از همه دوستان .

[ashkan209]

سلام دوست من
اول از همه سپاس فراوان بابت نگارش جدید dll
اما یک مورد اشکال که نمیدونم اشکال منه یا اشکال برنامه ، در هرصورت ممنون میشم راهنمائی بفرمائید : (اشکال اینه که بعد از تبدیل باز هم فونتها به هم چسبیده اند)
من ار ورژن 2 برنامه استفاده کردم و ار همان خصوصیت گذاشتن space برای تبدیل از داس به ویندوز
تصویر 1 : سورس داس (ایران سیستم)
تصویر 2 : بعد از تبدیل به ویندوز به ورژن 2
و اینم فانکشن من که کار تبدیل را انجام میده

Public Function Convertor_dw(ByVal value As String) As String

        Dim convert As New W2D_D2W.ClsDos2Win_Iran

        convert.ShowMsgBoxErrorIfOccur = False

        convert.SpaceKind = enSpaceKind.Space_Chr_32

        Dim Iran_System_Text_Dos As String = value

        Dim ret As String = convert.Dos2Win_ReadFromTextInWin(Iran_System_Text  _Dos)

        Return (ret)

    End Function

2.jpg1.jpg

[M_Man_M]

سلام دوست من
اول از همه سپاس فراوان بابت نگارش جدید dll
اما یک مورد اشکال که نمیدونم اشکال منه یا اشکال برنامه ، در هرصورت ممنون میشم راهنمائی بفرمائید : (اشکال اینه که بعد از تبدیل باز هم فونتها به هم چسبیده اند)
من ار ورژن 2 برنامه استفاده کردم و ار همان خصوصیت گذاشتن space برای تبدیل از داس به ویندوز
تصویر 1 : سورس داس (ایران سیستم)
تصویر 2 : بعد از تبدیل به ویندوز به ورژن 2
و اینم فانکشن من که کار تبدیل را انجام میده

Public Function Convertor_dw(ByVal value As String) As String

        Dim convert As New W2D_D2W.ClsDos2Win_Iran

        convert.ShowMsgBoxErrorIfOccur = False

        convert.SpaceKind = enSpaceKind.Space_Chr_32

        Dim Iran_System_Text_Dos As String = value

        Dim ret As String = convert.Dos2Win_ReadFromTextInWin(Iran_System_Text  _Dos)

        Return (ret)

    End Function

2.jpg1.jpg

با عرض سلام

شما تنها نوع فاصله را مشخص کرديد ولي مشخص نکرديد که آيا اين حرف مشخص شده ( space ) بعد از حروف بزرگ بيايد يا خير ؟

اين ويژگي همان AddSpaceAfterUpperCase مي باشد .

[smderfan]

سلام
M_Man_M ببخشید که زحمتتون میدم.
یک نمونه برات قرار دادم شرمنده که زحمتت میدم.

[smderfan]

سلام
یک نمونه بسیار جالب برای تبدیل Dbf داس به ویندوز و برعکس پیدا کردم ولی سه مشکل داره :
1- پس از تبدیل، بعضی از حروف فیلدهای حاوی کارکترهای فارسی به هم چسبیده هستند.
2- در بعضی موارد تا 94% تبدیل انجام می شه سپس از برنامه خارج می شه.
3- برای تبدیل برنامه به فرمت اجرایی EXE ، روی بعضی از آیتم های برنامه خطا صادر می شه و برنامه به فرمت exe تبدیل نمی شه.
برای رفع این سه مشکل اگر پیشنهادی دارید متشکر می شم.

[ashkan209]

سپاس از لطف شما
حل شد
و یک سوال دیگه : آیا برای اینکه error ها دیده نشده ، اضافه کردن این کد کفایت می کنه ؟

convert.ShowMsgBoxErrorIfOccur = False

[ali_on6681]

سلام
M_MAN_M
من نمی تونمa را اجرا کنم فایل w2d را کجا باید کپی کنم

[smderfan]

سلام
M_MAN_M
من نمی تونمa را اجرا کنم فایل w2d را کجا باید کپی کنم

سلام
منظورتون رو از a متوجه نمی شم. من می خوام فایل Dbf موجود در Sample رو با فرمت ویندوز و در قالب mdb ذخیره کنم.
در نمونه Convert ای که گذاشتم هدفم همین فرم است که Dbf رو به mdb تبدیل می کنه ولی مشکلات بالا رو داره.

[M_Man_M]

با عرض سلام خدمت دوستان از جمله دوست عزيزم SmdErfan

چند نكته در مورد برنامه شما قابل ذكر است :
اول اينكه من فقط در مورد مشكل اول مي تونم كمكتون بكنم
دوم اينكه مورد دوم و سوم پس از حل مورد اول هيچ موقع براي من پيش نيومد
سوم اينكه در مورد برنامه شما بايد بگم كه به جاي گزينه سوم بايد از گزينه اول استفاده كنيد
(گزينه يك ReadFromFile - گزينه دو ReadFromText - گزينه سوم ReadFromTextInWin)
و بصورت زير عمل مي كنيد

به جاي فانكشن قديمي CVWD از فانكشن جديد زير استفاده كنيد :

Function CVWD(St, Optional Convert_No As Boolean = True, Optional La As La = WdWin, Optional Style As CVStyle) As String
Dim StrWin As New W2D_D2W.ClsDos2Win
CVWD = StrWin.Dos2Win_ReadFromFile(St, True)
End Function

چون من گزينه هاي اول و دوم را بصورت صد در صد تست نكرده بودم تقريباً ميشه گفت گزينه اول را بصورت نود در صد با كمك دوست عزيزم SmdErfan در فايل زير حل كردم و همچنان گزينه دوم بصورت تست نشده باقي ماند .

همچنان منتظر ارسال پيشنهاد ، انتقاد و يا باگ هستم .
با تشكر فراوان از تمامي دوستان
به اميد اينكه يك كانورتور فول ساخته بشه كه همگي بتونند از اون استفاده كنند .

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

[rezankh]

با عرض سلام خدمت دوستان از جمله دوست عزیزم SmdErfan

چند نکته در مورد برنامه شما قابل ذکر است :
اول اینکه من فقط در مورد مشکل اول می تونم کمکتون بکنم.

با سلام
این convertor دوستمون SmdErfan رو استفاده کردم مشکلی نداشت فقط در بعضی فیلدها که از یک قاصله برای جدا کردن دو کلمه استفاده شده بود، فاصله حذف شده بود و سبب وصل شدن دو کلمه شده بود (مثلا در مورد اسم علی اکبر که به علیاکبر تبدیل می شه البته اگر در فاکس پرو فاصله دومی داده باشیم، فقط یک فاصله حذف میشه مثل علی--اکبر که تبدیل به علی اکبر میشه)
این مورد رو چطوری میشه حل کرد؟
با تشکر

[amin68]

من تونستم برنامه بیمه مالیات رو بنویسم .

سایت برنامه نویس دوست دارم

[smderfan]

سلام
یک نمونه بسیار جالب برای تبدیل Dbf داس به ویندوز و برعکس پیدا کردم ولی سه مشکل داره :
1- پس از تبدیل، بعضی از حروف فیلدهای حاوی کارکترهای فارسی به هم چسبیده هستند.
2- در بعضی موارد تا 94% تبدیل انجام می شه سپس از برنامه خارج می شه.
3- برای تبدیل برنامه به فرمت اجرایی EXE ، روی بعضی از آیتم های برنامه خطا صادر می شه و برنامه به فرمت exe تبدیل نمی شه.
برای رفع این سه مشکل اگر پیشنهادی دارید متشکر می شم.

سلام
در مورد گزینه اول لطفاً کمک کنید.

[M_Man_M]

سلام
در مورد گزینه اول لطفاً کمک کنید.

با سلام

مگه شما از مطلب شماره 37 همين تاپيك استفاده نكرديد كه هنوز مشكل داريد .
چرا ؟

[vahid_d_0101]

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

[M_Man_M]

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

منظورتون از "برای این سیستم" چيه ؟

[vahid_d_0101]

ایرا سیستم چون من چندتا بانک اطلاعاتی دیدم که تحت داس برای مدارس درست میشدن حالا میخواستم ببینم میشه اونهارو با این برنامه ها به اکسس تبدیل کنیم

[M_Man_M]

ایرا سیستم چون من چندتا بانک اطلاعاتی دیدم که تحت داس برای مدارس درست میشدن حالا میخواستم ببینم میشه اونهارو با این برنامه ها به اکسس تبدیل کنیم

با سلام :

همانطور كه در ابتداي اين تاپيك هم نوشتم ، اين يك برنامه كانورتور نيست و تنها يك فايل كتابخانه اي براي تبديل است .

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

البته يكي از دوستان زحمت كشيده و برنامه تبديل dbf به mdb را در همين تاپيك قرارداده كه اگه به دردتون بخوره مي تونيد از اون استفاده كنيد .

[mobinco]

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

[kia1349]

http://support.microsoft.com/kb/209805
http://support.microsoft.com/kb/155666
http://databases.aspfaq.com/database...am-errors.html
http://www.mvps.org/access/bugs/bugs0007.htm
در حالت کلی شما باید سرویس پک 5 و 6 ویژوال بیسیک رو نصب کرده باشید و از آخرین ورژن MDAC که فکر کنم 2.8 باشه استفاده کنید
امیدوارم مشکلتون حل بشه

[M_Man_M]

با عرض سلام خدمت تمامي دوستان

نمونه برنامه زير در جواب درخواست نمونه جهت استفاده از فايل دو طرفه W2D_D2W است
اميدوارم به كار آيد ....

[Babak_Parseh]

سلام ، این نمونه تو تبدیل حرف ک فقط مشکل داره !! چیکار میشه کرد ؟

[M_Man_M]

با سلام

برو به صفحه دو در همين تاپيك و از مطلب اول صفحه مطالعه كن ، بيا جلو !!!

[M_Man_M]

با عرض سلام خدمت تمامي دوستان
از جمله آقاي Hooooman

بعضي از دوستان هنگام تبديل از ويندوز به داس دچار مشكل شدند و مشكل اونها به هم ريختگي نوشته ها در داس است كه اصلاً به هيچ عنوان متن تبديل شده قابل فهم نيست .

راستش من خودم هم چند روز پيش وقتي داده هاي يك جدول در بانك SQL را مي خواستم براي يك دوست عزيز به داس تبديل كنم به اين مشكل برخوردم و خودم هم تعجب كردم .

اما پس از بررسي متوجه شدم كه تنها در صورتي مشكل حل ميشه كه از پروايدر JET استفاده بشه يا حداقل اگه مورد ديگه اي بوده من از اون استفاده نكردم ( در همين جا خواهش مي كنم از دوستاني كه از JET‌ استفاده نكرده و به اين مشكل هم برخورد نكرده اند نام پروايدر را يادداشت بگذارند تا بقيه هم استفاده كنند ) من خودم از VFPOLEDB.1 و از TextStream استفاده كردم و مشكل به هم خوردگي وجود داشت .

ببخشيد كه هنوز به علت كمبود وقت نتونستم اين مشكل رو حل كنم ولي پيشنهاد مي كنم تا برطرف شدن مشكل از JET‌ استفاده كنيد تا مشكلي نداشته باشيد .

من همچنان منتظر جواب دوستان ، از جمله دوست عزيزم Hooooman هستم.

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

با تشكر

[ashkan209]

سلام دوست من
یک مشکل عجیب در خصوص کانورت با این dll برخورد کرده ام ، که بصورت کامل با پیام خصوصی براتون توضیح دادم
اگه ممکنه جواب بدین
ممنون

[amin_iman82]

سلام خدمت دوستان.

ما داخل این تاپیک یه بانک فاکس پرو تحت داس داشتم که اطلاعات داخلش با ایران سیستم ذخیره شده بود.
من برنامه ی جزئیی با VB.net 2010 نوشتم بودم برای تبدیل بانک Fox Pro تحت داس به بانکهای تحت ویندوز ، در پست دوم این صفحه قرار دادم.

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

[M_Man_M]

با سلام

اينم آخرين ريويژن فايل W2D_D2W

ريويژن 1.0.0.3

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

[ashkan209]

دوست من سلام
از شما سپاسگزارم بابت زحمتی که میکشید که این dll تکمیل بشه و مشکل نرم افزار نویسان کانورت حل بشه
1- تغییرات این ریویژن نسبت به قبلیها چیه ؟ چه اشکالاتی مرتفع شده
2- آیا کاربرد این dll توی ویندوز ویستا و سون مشکلی ایجاد نمی کنه
3- آیا ممکنه که یک راهنمای کوچولو براش تنظیم کنید که کلاسها ، فانکشنها و مقادیر را شرح بده که چی هستند ،و نحوه کاربرد آنها را توضیح بده

[masoud_583]

با سلام خدمت شما عزیز
من با این W2D_D2W.dl کارکردم و بسیار راضی هستم تنها مشکل من در تبدیل حرف ( ء ) همزه می باشد که متاسفانه با آن درگیر شدم درخواست میکنم لطفی کرده در این W2D_D2W.dl این حرف را هم اصلاح فرمایید . عاجزانه تقاضا مندم با تشکر مسعود
masoud_583@yahoo.com

[M_Man_M]

با عرض سلام خدمت دوستان عزيز :
ببخشيد كه كمي در جواب دادن تأخير افتاد چند روزي بود خط تلفنم قطع و در نتيجه دسترسي به اينترنت نداشتم.
به هر حال ، اين آخرين ريويژن فايل تبديل متن است كه به همراه كمي توضيحات خدمتتون ارائه مي كنم
ابتدا از داس به ويندوز Dos2Win
ويژگي ها :
AddSpaceAfterUpperCase : كه قبلا هم وجود داشت با اين تفاوت كه بصورت يك پارامتر ارسال ميشد . در صورتيكه اين مقدار True باشد اگر در متن داس حرف بزرگي وجود داشته باشد كه كاراكتر بعدي آن " " نباشد و همچنين پس از تبديل به متن ويندوز به حرف بعدي بچسبد يك فاصله قبل از حرف بعدي اضافه مي شود .
توجه: در اينصورت طول متن اضافه مي شود ( قابل توجه دوستاني كه طول فيلد با طول متن نزديك به هم هست و ممكن است دچار مشكل شوند )

SpaceKind : ( جديد ) در صورتي كه مقدار ويژگي قبلي True باشد اين ويژگي نوع حرف فاصله را مشخص مي كند كه داراي دوثابت است يكي حرف فاصله معمولي و يكي حرف فاصله كوچك ( خيلي جالبه ، خودم هم كيف كردم ، حتما امتحان كنيد ) البته بايد بگم كه طول متن تغييري نميكنه ولي بيشتر شبيه به متن داس است

و اما متد ها :
Dos2Win_ReadFromFile :
Dos2Win_ReadFromText :
Dos2Win_ReadFromTextInWin :
كه هيچ فرقي با قبل نكرده و هر كدام در جاي خودشون قابل استفاده هستند . البته ديگه پارامتري هم نداره و با توجه به ويژگي هاي قبلي كار مي كنه.


ويندوز به داس Win2Dos
ويژگي ها :
Set_LA_to_OneChar : كه قبلا هم وجود داشت با اين تفاوت كه بصورت يك پارامتر ارسال ميشد . در صورتيكه اين مقدار True باشد حروف "لا" را در داس به يك حرف تبديل مي كند .

SelectProvider : ( جديد ) در اينجا سه نوع پروايدري كه با dbf و همچنين متون داس ارتباط برقرار ميكنند آوردم . اگه شما اطلاعاتي را براي مثال داخل يك فايل dbf ميريزيد براي اينكه اين حروف به هم نخوره ( چون موردي قبلا پيش اومده بود ) اين ويژگي رو اضافه كردم تا همون پروايدر را انتخاب كنيد كه با اون اطلاعات را داخل فايل ميريزيد . خودم امتحان كردم خيلي خوب كار كرد . اگه موردي بود كه داخل اين ويژگي نبود و مشكل به هم خوردگي وجود داشت بگيد تا برطرف بكنم ( در صورت امكان انشاءاله )

و اما متد :
Win2Dos : كه هيچ فرقي با قبل نكرده. البته ديگه پارامتري هم نداره و با توجه به ويژگي هاي قبلي كار مي كنه.


البته مورد "ء" هم در اين ريويژن بر طرف شد ( با تشكر از masoud_583 )

در آخر از تمامي دوستان تشكر كرده و همچنان منتظر هر گونه ايده و نظر از طرف شما هستم .

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

[Mahsa Hatefi]

با سلام

اگرچه از اين تاپيك چند ماه گذشته ولي در صورت امكان استاد بزرگوار لطف فرموده و چگونگي تبديل را در فايل الحاقي منظور فرماييد بسيار ممنون خواهم شد

[M_Man_M]

با سلام

اگرچه از اين تاپيك چند ماه گذشته ولي در صورت امكان استاد بزرگوار لطف فرموده و چگونگي تبديل را در فايل الحاقي منظور فرماييد بسيار ممنون خواهم شد

با عرض سلام
توجه داشته باشید که شما آخرین ورژن فایل تبدیل دو طرفه رو برداشتید ، ولی قطعه کدی که برای تبدیل نوشته بودید از ورژن های قبلی برداشته بودید.
به هر حال فایل شما آماده برای تبدیل است. پیوست می کنم انشاءالله مشکل حل شود .
موردی بود حتماً یادداشت بگذارید.

[M_Man_M]

با عرض سلام خدمت تمامی دوستان

آخرین ریویژن فایل تبدیل متن را با موارد اضافه شده ذیل خدمتتان ارائه می کنم :

در هر دو قسمت تبدیلی ( هم از ویندوز به داس و هم برعکس ) دو ویژگی زیر اضافه شده

1: HasError - در صورتی که در حین تبدیل خطایی رخ دهد این ویژگی True خواهد شد . توجه داشته باشید که با هر بار اجرا کردن دستور کانورت ابتدا این ویژگی False خواهد شد. این ویژگی فقط خواندنی است.

2: ShowMsgBoxErrorIfOccur - این یک ویژگی True/False است که همانطور که از اسمش پیداست درصورتیکه True باشد اگر در حین تبدیل خطایی رخ دهد ، پیغام خطا نمایش داده خواهد شد و در غیر اینصورت هیچ پیغامی مشاهده نخواهید کرد.

همچنین دو حرف که در تبدیل مشکل داشتند ( منجمله حرف "ی" که با Shift+X نوشته می شود ( با تشکر فراوان از ashkan209 ) ) نیز در این ریویژن برطرف شد.

به نظر خودم هنوز این ابزار جای کار کردن دارد . لذا از تمامی دوستان که از این ابزار استفاده کرده و به هدف خود نرسیده اند و همچنین دوستانی که به هدف خود رسیده ولی نظراتی نسبت به تکمیل آن دارند خواشمندم نظرات خود را بیان کنند . من مشتاقانه منتظر نظرات شما دوستان هستم و در صورت امکان موارد ارائه شده را به فایل اضافه خواهم کرد .

با تشکر

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

[Parsa_2006]

سلام من از dll تون استفاده کردم تو ویندوز xp هیچ مشکلی ندارم ولی تو ویندوز 7 خطای زیر رو میده اگه ممکنه من رو راهنمایی کنیدUntitled.png

[Parsa_2006]

کسی نیست جواب من رو بده ؟
در ضمن مشکل توی ویندوز 7 64 بیتی در ویندوز 7 32 بیتی هیچ مشکلی ندارد

[Parsa_2006]

این طوری هم جواب نمی ده
C:\Windows\SysWOW64\regsvr32.exe <name of 32-bit DLL>.dll

[Parsa_2006]

کسی از این چیزی سر در می آره

There are indeed two version of regsvr32 provided with 64-bit Windows. The 64-bit version is in %windir%\system32 and the 32-bit version is in %windir%\SysWoW64. If you are registering a 32-bit DLL, use the 32-bit version.

Registering in-proc COM servers is very simple, the minimum required is just a few registry keys. 64-bit objects get registered to HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID and 32-bit objects get registered to HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Wow6432Node\CL SID.

http://msdn.microsoft.com/en-us/libr...90(VS.85).aspx

[M_Man_M]

با سلام

فعلاً تنها موردی که تونستم برات پیدا کنم به شرح زیر است :

1- ابتدا با استفاده از همان regsvr32 ولی با پارامتر u- فایل w2d_d2w.dll را unregister می کنید
2- فایل مورد نظر را حذف و یک فایل جدید در مسیر مورد نظر کپی می کنید
3- با دستور C:\Windows\SysWOW64\regsvr32.exe <name of 32-bit DLL>.dll فایل رو مجدداً register می کنید

انشاءالله مشکل حل شود

[Parsa_2006]

سلام
ممنون از اینکه جواب من رو دادید m_man_m
ولی این کار رو هم انجام داده بودم ولی به نتیجه نرسیدم
کسی چیز دیگه ای به ذهنش نمی رسه؟

[Parsa_2006]