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

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

تكه كد زير را بنا به درخواست دوستان براي وارد نمودن يك رديف جديد در فايل با فرمت dbf و در محيط دات نت قرار ميدهم
فايلي كه من براي نمونه استفاده كردم
به نام Test.dbf
محل قرار گرفتن در روت درايو c
داراي يك فيلد به نام NameDesc و به طول 50 از نوع كاراكتر ميباشد

و اما كد براي پروايدر JET OLE DB :


Dim W2D AsObject = CreateObject("W2D_D2W.ClsWin2Dos_Iran")
W2D.Set_LA_to_OneChar = True
Dim aText As String = "Insert INTO Test.dbf ( NameDesc ) VALUES ('" & Now & " " & W2D.Win2Dos("هم اكنون") & "')"
Using aCon AsNew OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;Extended Properties=DBASE III;")
Dim aCom AsNew OleDbCommand(aText, aCon)
aCon.Open()
Try
aCom.ExecuteNonQuery()
Catch ex As Exception
Console.WriteLine(ex.Message)
EndTry
EndUsing
End


و كد براي پروايدر Foxpro OLE DB :

Dim W2D AsObject = CreateObject("W2D_D2W.ClsWin2Dos_Iran")
W2D.SelectProvider = 1
W2D.Set_LA_to_OneChar = True
Dim aText As String = "Insert INTO Test.dbf ( NameDesc ) VALUES ('" & Now & " " & W2D.Win2Dos("هم اكنون") & "')"
Using aCon AsNew OleDbConnection("Provider=VFPOLEDB.1;Password='';Collating Sequence=ARABIC;Data Source=C:\;")
Dim aCom AsNew OleDbCommand(aText, aCon)
aCon.Open()
Try
aCom.ExecuteNonQuery()
Catch ex As Exception
Console.WriteLine(ex.Message)
EndTry
EndUsing
End



و كد براي پروايدر Foxpro ODBC :

Dim W2D AsObject = CreateObject("W2D_D2W.ClsWin2Dos_Iran")
W2D.SelectProvider = 2
W2D.Set_LA_to_OneChar = True
Dim aText As String = "Insert INTO Test.dbf ( NameDesc ) VALUES ('" & Now & " " & W2D.Win2Dos("هم اكنون") & "')"
Using aCon AsNew OdbcConnection("Driver={Microsoft Visual FoxPro Driver};BackgroundFetch=No;SourceType=DBF;Exclusiv e=No;SourceDB=C:\;")
Dim aCom AsNew OdbcCommand(aText, aCon)
aCon.Open()
Try
aCom.ExecuteNonQuery()
Catch ex As Exception
Console.WriteLine(ex.Message)
EndTry
EndUsing
End


با تشكر
اميدوارم مورد استفاده قرار بگيره

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

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

نقل قول:

---

نوشته شده توسط golestanifar

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

---

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

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

موفق باشي

هزاران لایک تقدیم M_Man_M

با سلام و احترام خدمت اساتید گرام...
بنده بروی یک پروژه ی سی شارپ کار می کنم و به این dll خیلی نیاز دارم.
حالا چند سوال از شما دوستان دارم.
1- من قبلاً ورژن 1.0.0.4 رو بروی پروژم نصب کرده بودم، خوب بود فقط یک ایراد بزرگ داشت و اون اینکه سرعت تبدیل ویندوز به ایران سیستم خیلی پایین بود، حالا اولین سوال من این هست که آیا تو ورژن 2 این سرعت بهبود پیدا کرده یا خیر؟
2- من می خوام که dll جدید (ورژن 2) رو به رفرنس پروژم اضافه کنم، منتها هر بار که می خوام اضافه کنم خطای Could Not load file or assembly "W2D_D2Wv2.dll" or one of its dependencies. ........ رو دریافت می کنم. حتی فایل رو اول به toolbox هم اضافه کردم ولی باز هم همین خطا رو می گیرم.
جواب این دو مشکل چیه؟
با تشکر فراووون از همه شما...

نقل قول:

---

نوشته شده توسط p30help

با سلام و احترام خدمت اساتید گرام...
بنده بروی یک پروژه ی سی شارپ کار می کنم و به این dll خیلی نیاز دارم.
حالا چند سوال از شما دوستان دارم.
1- ...
2- ...
جواب این دو مشکل چیه؟
با تشکر فراووون از همه شما...

---

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

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

در جواب سئوال دوم ، بايد عرض کنم نه تنها اين dll بلکه هر dllي که خواستيد استفاده کنيد سعي کنيد ابتدا اون و داخل خود ويندوز و با دستور regsvr32 رجيستر کنيد . اين دستور در ويندوز هفت شرايط خاصتري داره که توي پست 81 همين تاپيک و البته براي 64 بيتي توضيح دادم ولي شما ميتونيد شخصا اون و براي 32 بيت هم با کمي تغييرات استفاده کنيد
در صورتي که ابتدا اين دستور رو اجرا کنيد ديگه احتياجي نيست اول به toolbox و يا ... اضافه کنيد . خيلي راحت در قسمت add reference قابل اضافه شدن هست "اين مورد رو همين الان با آخرين ورژن فايل w2d_d2w ، ويندوز هفت 32 بيت و ويژوال استاديو 2010 تست کردم و هيچ پيغام خطايي هم نداد"

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

نقل قول:

---

نوشته شده توسط M_Man_M

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

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

در جواب سئوال دوم ، بايد عرض کنم نه تنها اين dll بلکه هر dllي که خواستيد استفاده کنيد سعي کنيد ابتدا اون و داخل خود ويندوز و با دستور regsvr32 رجيستر کنيد . اين دستور در ويندوز هفت شرايط خاصتري داره که توي پست 81 همين تاپيک و البته براي 64 بيتي توضيح دادم ولي شما ميتونيد شخصا اون و براي 32 بيت هم با کمي تغييرات استفاده کنيد
در صورتي که ابتدا اين دستور رو اجرا کنيد ديگه احتياجي نيست اول به toolbox و يا ... اضافه کنيد . خيلي راحت در قسمت add reference قابل اضافه شدن هست "اين مورد رو همين الان با آخرين ورژن فايل w2d_d2w ، ويندوز هفت 32 بيت و ويژوال استاديو 2010 تست کردم و هيچ پيغام خطايي هم نداد"

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

---

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

با سلام
لطفا طریقه استفاده از فایل W2D_D2W.dll نگارش 2 رو در vb6 بصورت کامل بفرمایید .
باتشکر

نقل قول:

---

نوشته شده توسط hatefsoltani

با سلام
لطفا طریقه استفاده از فایل W2D_D2W.dll نگارش 2 رو در vb6 بصورت کامل بفرمایید .
باتشکر

---

سلام دوست خوبم
فکر کنم اگه اين تاپيک رو از اول تا آخر يه دور مطالعه بفرماييد 99 درصد کار حل ميشه
بعد براي اون يک درصد باقيمانده اگه سئوالي داشتيد من در خدمتم

نحوه رجيستر کردن اين فايل با فايل win به dos در صفحه اول همين تاپيک فرقي نميکنه
متد ها و تنظيمات هم در صفحات مختلف همين تاپيک توضيح داده شده
حداقل براي اطلاعات عمومي ، بد نيست اگه يه دور مطالعه بفرماييد .

با تشکر - ببخشيد اگه دير جواب دادم !!!

سلام من یه برنامه با سی شارپ دارم و میخوام دیسکت بیمه باهاش درست کنم تمام روش های شما رو هم تست کرد فقط میخوام یه فایل تکست بسازم که تو داس بشه خوند لطفآ اگر sample دارید برام بذارید یا راهنمایی کنید
این کدی که من نوشتم
Frm_ReportInsuranceDetail Frm_ReportInsuranceDetail = new Frm_ReportInsuranceDetail();
Frm_ReportInsuranceDetail.ShowDialog();
if ((Frm_ReportInsuranceDetail.Tag as int?).GetValueOrDefault(0) != 0 && vNovinDataTableShoab.DefaultView.Count > 0 && vNovinDataTablePersons.DefaultView.Count > 0)
{
string Shoab = "";
string Persons = "";
W2D_D2W.ClsWin2Dos_IranClass convert = new W2D_D2W.ClsWin2Dos_IranClass();
convert.ShowMsgBoxErrorIfOccur = true;
convert.SelectProvider = W2D_D2W.enProvider.vbMicrosoft_Visual_FoxPro_Drive r;
convert.Set_LA_to_OneChar = true;
DataRowView drv = vNovinDataTableShoab.DefaultView[0];
foreach (DataColumn dc in drv.Row.Table.Columns)//vNovinDataTableShoab.Columns)
{
if (dc.ColumnName.ToUpper() == "DSK_KIND")
Shoab += convert.Win2Dos(Frm_ReportInsuranceDetail.cNovinTe xtBox_ListKind.Text + ",");
else if (dc.ColumnName.ToUpper() == "DSK_DISC")
Shoab += convert.Win2Dos(Frm_ReportInsuranceDetail.cNovinTe xtBox_ListDesc.Text + ",");
else if (dc.ColumnName.ToUpper() == "DSK_BIMH")
Shoab += convert.Win2Dos(Frm_ReportInsuranceDetail.cNovinTe xtBox_Job4.Text + ",");
else if (dc.ColumnName.ToUpper() == "MON_PYM")
Shoab += convert.Win2Dos(Frm_ReportInsuranceDetail.cNovinTe xtBox_Peiman.Text + ",");
else if (dc.ColumnName.ToUpper() == "DSK_PRATE")
Shoab += convert.Win2Dos(Frm_ReportInsuranceDetail.cNovinTe xtBox_Prate.Text + ",");
else
Shoab += convert.Win2Dos(drv[dc.ColumnName].ToString() + ",");
if (convert.HasError)
MessageBox.Show("Error");
}
foreach (DataRowView dr in vNovinDataTablePersons.DefaultView)
{
foreach (DataColumn d in vNovinDataTablePersons.Columns)
{
if (d.ColumnName.ToUpper() != "DSW_PRATE")
Persons += convert.Win2Dos(dr[d.ColumnName].ToString() + ",");
else
Persons += convert.Win2Dos(Frm_ReportInsuranceDetail.cNovinTe xtBox_Prate.Text + ",");
}
Persons += " \r\n";
}
ReportFile(Shoab, "DSKKAR00");
ReportFile(Persons, "DSKWOR00");
private void ReportFile(string Text, string FileName)
{
string FilePath = "InsuranceReport";
try
{
if (!Directory.Exists(FilePath))
Directory.CreateDirectory(FilePath);
StreamWriter writer = new StreamWriter(FilePath + "\\" + FileName + ".txt", false, Encoding.Default);
writer.Write(Text);
}
catch
{ }
}

اینم تست کردم و جواب نگرفتم لطفآ کمکم کنید
public void ReportFile(string Text, string FileName)
{
CONVERTLib.ConvertorClass converter = new CONVERTLib.ConvertorClass();
W2D_D2W.ClsWin2Dos_IranClass convert = new W2D_D2W.ClsWin2Dos_IranClass();
//convert.SelectProvider = W2D_D2W.enProvider.vbMicrosoft_JET_OLEDB_4_0;
string FilePath = "InsuranceReport";
try
{
string str = "";
foreach (char c in Text)
//if (char.IsLetter(c))
str += convert.Win2Dos(c.ToString());
//else
// str += c.ToString();
if (!Directory.Exists(FilePath))
Directory.CreateDirectory(FilePath);
File.WriteAllText(FilePath + "\\" + FileName + ".txt", str, System.Text.Encoding.Default);
File.WriteAllText(FilePath + "\\" + FileName + "Asci.txt", str, System.Text.Encoding.ASCII);
byte[] bt1 = System.Text.Encoding.Default.GetBytes(str);

FileStream fs1 = new FileStream(FilePath + "\\" + FileName + ".txt", FileMode.Create, FileAccess.Write, FileShare.Write);
fs1.Write(bt1, 0, bt1.Length);
fs1.Close();
}
catch
{ }
}

با سلام خدمت شما دوست عزيز
با اينکه مورد شما رو در همين تاپيک و مطلب شماره 96 مطرح کرده بودم ولي با اين حال يه تکه کد کوچک هم در اينجا ذکر ميکنم تا جواب کامل بشه

تنها موردي که شما بايد تغيير بديد اينه که متغير هاي متني ديگه احتمالا به اين روش نوشته نميشه و درون قسمت using مربوط به استريم رايتر نيز احتياج به يه لوپ داريد که خط ها رو يکي يکي از ويندوز به داس تبديل و سپس بوسيله استريم رايتر اونها رو داخل فايل تکست بريزه

انشاءالله موفق باشيد ....

W2D_D2W.ClsWin2Dos_Iran W2D = new W2D_D2W.ClsWin2Dos_Iran()
{
SelectProvider = W2D_D2W.enProvider.vbMicrosoft_Visual_FoxPro_Driver,
ShowMsgBoxErrorIfOccur = false,
Set_LA_to_OneChar = true
};


string fileAddress = "E:\\Export.txt";
string testLine = "باد خزان گل لاله را پرپر کرد";
testLine = W2D.Win2Dos(testLine);

using (System.IO.StreamWriter SW = new System.IO.StreamWriter(fileAddress, true, System.Text.Encoding.Default))

{
if (!W2D.HasError)
SW.WriteLine(testLine);

SW.Close();
}

با تشکر
باز هم اگه موردي بود حتماً مطرح کنيد

آقای مدیر کجایی ؟

این تاپیک مال 3 سال پیشه الان اومده بالا با سوال #C رسیدگی کنین بابا

ممنون بابت کد ولی وقتی اجرا میکنم HasError true میشه فایل خای بهم میده
مشکلش چیه؟

کد با PROVIDERهای دیگه هم اجرا کردم فقط JET اجرا شد ولی فایل تکست درست نبود

باسلام

توي مطلب 96 همين تاپيک گفتم . حتماً بايستي اون VFPODBC رو نصب کرده باشيد و گرنه با خطا مواجه ميشيد
فايل تکست ساخته شده هم حتماً بايستي توي محيط داس و با فارسي ساز ايران سيستم چک بشه نه تو ويندوز .... همين طوره ؟

یه دنیا ممنون مشکلم حل شد ولی من میخوام فایل تکست بسازم نمیشه بدون نصب VFPODBC این کار انجام بدم؟

با سلام

اگه بخواهيد فايل تکست بسازيد بايد از استريم رايتر استفاده کنيد ( گزينه هاي ديگه رو من تست نکردم ) در نتيجه بايد و بايد از VFPODBC استفاده کنيد
اگه بخواهيد از Jet استفاده کنيد حتماً بايستي فايل Dbf بسازيد که البته من خودم هم با همين روش کار کردم . ساخت Dbf شايد يه کم سخت باشه ؛ اگه هم نتونستيد ميتونيد Dbf هاي خالي رو داخل برنامه نگه داريد ( جالبه ! خود برنامه تأمين اجتماعي هم با ساخت Dbf مشکل داشته در نتيجه فايل هاي خالي رو تو شاخه مورد نظرش نگه داشته ، هر بار اون ها رو کپي ميکنه و بعد اطلاعات ماه رو داخلش ميريزه :قهقهه::قهقهه::قهقهه: ) شما هم ميتونيد به همين روش کار کنيد ( البته حداقل Resource کنيد نه ديگه اينقدر سطح پايين که خود فايل رو نگه داريد !!!!)

خیلی ممنون بابت راهنمایی

سلام من w2d_d2w.dll رو میخوام با manifest استفاده کنم نمیخوام regsvr32 رو انجام بدم چون کاربر هام باهاش مشکل دارن و نمیتونن این کار انجام بدن
وقتی از manifest استفاده میکنم dll کار نمیکنه object new l میشه ولی متد ها کار نمیکنه موقع اجرا کد dll error میده میشه کمکم کنید؟

اینم خطایی که بر میگردونه Retrieving the COM class factory for component with CLSID {56B7C055-A5D6-4547-B1D2-F8A85B7BB6AF} failed due to the following error: 80040154.

سلام
می تونید دستور رجیستر کردن dll رو داخل برنامتون بذارین ، که با عمل کاربر و یا بدون آن ،مثلا هنگام ورود به برنامه یکبار dll رجیستر شود

من با w2d_d2w در ویندوز 7 مشکلی ندارم ولی در ویندوز سون sp1 حروف را تبدیل نمی‌کند؟

نقل قول:

---

نوشته شده توسط rrn1362

من با w2d_d2w در ویندوز 7 مشکلی ندارم ولی در ویندوز سون sp1 حروف را تیدیل نمیکند؟

---

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

براي اين فايل ، هيچ تفاوتي بين ويندوز هفت معمولي و ويندوز هفت سرويس پک يک وجود نداره
سعي کنيد ابتدا فايل رو با قابليت ادمين رجيستر کنيد ( از اين بابت بايد از 100 درصد هم يه چيزي بالاتر مطمئن باشيد ) که در پست هاي قبلي توضيح داده شده . البته براي 64 بيت گفته شده ولي با کمي تغيير ميتونيد داخل 32 بيت هم استفاده کنيد .
و در نهايت از فايل استفاده کنيد .

موفق باشيد ....

با سلام .
من این فایل بیمه رو با استفاده از کلاس W2D ایجاد کردم و بر روی اکثر سیستم ها قابل اجرا میباشد. تنها در بعضی از سیستم ها کانورت به درستی صورت نمیگیرد و علامت سوال در فیلد ها درج میشود و خطایی به هنگام کانورت رخ نمی دهد. متنی که در فیلدها ذخیره میشود : (?n?? ?NEono ????n ??o?╖? u?nش) میباشد در صورتی که باید به این شکل باشد : (دجّم رحتجـ ّ≈ّذج ⁿذت≈·ُ ûىجز) . فایل نمونه را ضمیمه کرده ام . در صورتی که تنظیمات خاصی مورد نیاز است راهنمایی کنید.
با تشکر از دوستان

با سلام
فایلهای DBF رو میخوام به فایل اکسل تبدیل کنم. مشکل فونت و بهم ریختگی اعداد رو دارم. بعضی از خانه های اکسل تبدیل شده به صورت üü- üé می باشند. لطفا راهنمایی کنید؟

نقل قول:

---

نوشته شده توسط khosrow1364

با سلام
فایلهای DBF رو میخوام به فایل اکسل تبدیل کنم. مشکل فونت و بهم ریختگی اعداد رو دارم. بعضی از خانه های اکسل تبدیل شده به صورت üü- üé می باشند. لطفا راهنمایی کنید؟

---

با عرض سلام

اگه از برنامه نويسي نخواهيد استفاده کنيد ساده ترين راه اينه
اول فايل دي بي اف رو از طريق ويزارد هاي اينپوت بريزيد داخل يه فايل اکسس
بعد با استفاده از نمونه اي که تو تاپيک هاي 68 و 69 اومده ميتونيد اون و تبديل کنيد
و در نهايت هم ميتونيد يه خروجي از اکسس به فايل اکسل داشته باشيد

موفق باشيد

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

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

2842 €ˆ/€‡/پƒ€„ ‚ˆ/پ‚/پƒ‰€ ‚ˆ/پ‚/پƒ‰€ ‚‰/پ‚/پƒ‰€ صادقي بتول محمدحسين ‡† خانم ‡‡ 86 5 20 ˆ€ „€ „€ … ‚ دکتربهرام جاويد ƒ ‚‚‰„ˆ †‡†پ‡ 200000 9 200000 0 0 0 250000 150000 100000 4050000 150000 0 200000 5500000 5500000 پ€€€€€ريال حق الزحمه کمالي 0 200000 „‚‡ 16 26


همانطور که مشاهده می کنید برخی از رشته ها و برخی از اعداد بدون مشکل تبدیل شده اند ولی برخی از اعداد درون درست تبدیل نشده اند مخصوصا مقادیر تاریخی که در ابتدای هستند

نقل قول:

---

نوشته شده توسط fotrosi

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

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

2842 €ˆ/€‡/پƒ€„ ‚ˆ/پ‚/پƒ‰€ ‚ˆ/پ‚/پƒ‰€ ‚‰/پ‚/پƒ‰€ صادقي بتول محمدحسين ‡† خانم ‡‡ 86 5 20 ˆ€ „€ „€ … ‚ دکتربهرام جاويد ƒ ‚‚‰„ˆ †‡†پ‡ 200000 9 200000 0 0 0 250000 150000 100000 4050000 150000 0 200000 5500000 5500000 پ€€€€€ريال حق الزحمه کمالي 0 200000 „‚‡ 16 26


همانطور که مشاهده می کنید برخی از رشته ها و برخی از اعداد بدون مشکل تبدیل شده اند ولی برخی از اعداد درون درست تبدیل نشده اند مخصوصا مقادیر تاریخی که در ابتدای هستند

---

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

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

با تشکر

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

ريويژن جديد

مشکل برطرف شده در تبديل متون ايران سيستم :
تبديل اعداد درون متن در دو متد زير
Dos2Win_ReadFromText
Dos2Win_ReadFromTextInWin

تبديل اعداد درون متن در متد Dos2Win_ReadFromFile مشکلي نداشت

با تشکر فراوان از دوست عزيزم fotrosi :تشویق:

توجه :
در واقع ايران سيستم ، علاوه بر کد هاي استاندارد براي اعداد ، يکسري اعداد هم درون خود ايران سيستم قرار دارد . يعني همانطور که با اجرا کردن فارسي ساز ايران سيستم در داس ، امکان نوشتن فارسي با اضافه کردن کاراکتر هاي فارسي مهيا ميشود ، يکسري کاراکتر که اعداد نيز هستند ، اضافه ميشود .
در اين ريويژن ، مشکل اين اعداد برطرف شد .
ولي براي سيستم سايه ؟
من توي جدول سيستم سايه ، اين کاراکتر ها را براي اعداد فارسي نديدم . اگر احياناً دوستي اين مشکل رو در سيستم سايه ديد ( يعني تبديل نشدن اعداد درون متن در سيستم سايه ) ممنون ميشم اگه گزارش بده و احياناً يک نسخه از فايل رو ضميمه کنه . فايل ضميمه شده لازم نيست کامل باشه ولي حداقل يک رکوردي که اين مشکل رو داره داخلش باشه .

خيلي ممنون

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

با سلام و عرض تبریک سال نو به همه دوستان
همچنین عرض تشکر ویژه به M_Man_M عزیز

بنده تبدیل از ویندوز به داس را چک کردم و درمورد نمونه ای که خودتان داده بودید "باد خزان گل لاله را پرپر کرد" بعداز تبدیل، حرف الف کلمه "را" را بصورت چسبان به حرف قبل آورده است
درمورد بعضی از حروف الف بعدی باید چسبان باشد مثل حرف "س" و درمورد بعضی از حروف دیگر الف بعداز حرف نباید چسبان باشد مانند حروف "ر - ژ - ز" و ...
لطفا این مورد را چک کنید
بنده از Stream writer برای نوشتن فایل Text استفاده کردم و
SelectProvider = W2D_D2W.enProvider.vbMicrosoft_Visual_FoxPro_Drive r
می باشد

با تشکر

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

ريويژن جديد

مشکل برطرف شده در تبديل متون ايران سيستم و سيستم سايه :
درج اشتباه حرف الف در تبديل از ويندوز به داس در هر دو کلاس ايران سيستم و سيستم سايه
در مواقعي که الف به حرف قبلي نميچسبد و حرف بعدي يا space است و يا ء

با تشکر فراوان از دوست عزيزم asal122004 :تشویق: ( واقعاً نکته ريزي رو اشاره فرموديد )
همچنان منتظر هرگونه نظر ، ايده ، ... و يا خرابي احتمالي در فايل ميباشم
با تشکر از تمامي دوستان

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

سلام دوستان
از مطالب مفیدتون ممنونم
لطفاً راهنماییم کنید چطوری از این dll استفاده کنم؟

با سلام
ضمن تشکر ویژه از M_Man_M عزیز بخاطر پیگیری هایی که برای رفع مشکل این برنامه انجام می دهند
مشکلی که در پاسخ قبلی گفته بودم در ورژن جدید رفع شده
فقط نکته ای که به اون برخورد کردم درمورد نمایش ورژن برنامه هست
در موقعی که می خواهم این فایل را بعنوان یک رفرنس به پروژه اضافه نمایم دات نت سه فیلد Component Name و TypeLib Version و Path را نمایش می دهد.
درحال حاضر در قسمت TypeLib Version ورژن برنامه را 1.0 نمایش می دهد.

به نظر بنده بهتر است ورژن برنامه در قسمت TypeLib Version هم به ورژن اصلی برنامه اصلاح شود. چون در موقع انتخاب دقیقا مشخص شود کدام ورژن برنامه انتخاب شده است.

با تشکر

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

MsgBox D2W.Dos2Win_ReadFromTextInWin(W2D.Win2Dos(AdoRec.F  ields("per_name").Value))

که درست نبود
کلا همه چیز ؟؟؟ هست

نقل قول:

---

نوشته شده توسط کرکی

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

MsgBox D2W.Dos2Win_ReadFromTextInWin(W2D.Win2Dos(AdoRec.F  ields("per_name").Value))

که درست نبود
کلا همه چیز ؟؟؟ هست

---

با سلام
اگه فايل رو درست و حسابي رجيستر کرده باشي ، فقط کافيه سه دستور زير رو توي VB6 بنويسي و جواب بگيري

    Dim D2W As New W2D_D2W.ClsDos2Win_Iran

    Dim W2D As New W2D_D2W.ClsWin2Dos_Iran

    

    MsgBox D2W.Dos2Win_ReadFromTextInWin(W2D.Win2Dos("هر متني که دلت ميخواد"))

سلام دوستان
این مشکل شما رو حل کردم
البته اطلاعات رو تو بانک sql ذخیره کردم ولی با اکسس امتحان نکردم.
خواستید بگید تا راهنمایی کنم.
شرمنده فقط راهنمایی می کنم
نمونه یا سورس نمیگذارم.
چون براش زیاد وقت گذاشتم.
منتظر سوالاتون هستم

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

سلام به دوستان.من چطور میتونم توی وب از این dll استفاده کنم؟
ممنون از زحماتتون

با سلام و احترام
من مشکل در افزودن dll به پروژه را دارم.میشه کلاسشو برام بزارید؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟
خیلی خیلی ممنون

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

با سلام به خدمت همه دوستان ،
به ویژه کاربر M_MAM_M ، من dll شما رو دانلود کردم و کارمو راه انداخت ، واقعا به درد بخور بود .
از شما واقعا تشکر می کنم .
سالم و موفق باشید

سلام
من از اين dll استفاده كردم ولي تبديل رو انجام نداد. و باز هم بصورت متون نامفهوم خروجي ميده. ممكنه فارسي ساز داس من متفاوت باشه؟ فكر ميكنم از vegaf استفاده ميشه.
ممنون ميشم راهنمايي كنيد

نقل قول:

---

نوشته شده توسط Payam Moradi

سلام
من از اين dll استفاده كردم ولي تبديل رو انجام نداد. و باز هم بصورت متون نامفهوم خروجي ميده. ممكنه فارسي ساز داس من متفاوت باشه؟ فكر ميكنم از vegaf استفاده ميشه.
ممنون ميشم راهنمايي كنيد

---

با سلام

براتون فايل فارسي ساز داخل محيط داس براي ايران سيستم رو گذاشتم
ولي بايد به نکته زير توجه کنيد :
محيط داس بايد بصورت Full Screen باز شده باشه
(البته اگه داخل ويندوز ميخواهيد تست کنيد)
براي مثال در ويندوز سون که پنجره کماند اين قابليت رو نداره ، مسلماً شما نميتوند از اين ابزار استفاده کنيد
يعني حتي بعد از اجرا کردن اين فايل ، کارکترها بصورت نامشخصي نشان داده خواهند شد

يه راه ديگه هم هست و اون اينکه متني که به داس تبديل شده را دوباره به ويندوز تبديل کنيد

موفق باشيد

با سلام خدمت مهندسین عزیز
من با فایل w2d_d2w کا تبدیل dbf ایران سیستم رو به ویندوز به خوبی انجام دادم و در گریدویو C#‎‎‎ به طور دقیق و درست نمایش دادم.
مشکلی که هست اینه که به از انجام تغییرات لازم در گرید و دریافت محتوای گرید به صورت دیتا تیبل شروع به تبدیل داده های این دیتا تیبل مینم از ویندوز به dbf.
اما هر کاری میکنم کانورت نمیکنه و فقط مقدار nul یا همون "" رو برمیگردونه.
کدی که نوشتم به صورت زیره:

 // convert datagridview to datatable                        dtkar = DataGridView2DataTable(dgvKar, TableName);





                        //ClsDos2Win_Iran d2w = new ClsDos2Win_Iran();

                        ClsWin2Dos_Iran w2d = new ClsWin2Dos_Iran();









                        w2d.Set_LA_to_OneChar = true;

                        w2d.SelectProvider = enProvider.vbMicrosoft_Visual_FoxPro_Driver;

                        w2d.ShowMsgBoxErrorIfOccur = false;





                        for (int i = 0; i < dtkar.Rows.Count; i++)

                            for (int j = 0; j < dtkar.Columns.Count; j++)

                            {





                                dtkar.Rows[i][j] = w2d.Win2Dos(dtkar.Rows[i][j]);

                            }

لازم به ذکر است که provider رو با هر سه مقدار خود در این dll تست کردم اما بازم نتیجه یکی بود.
مقادیر ممکن برای provider:

vbMicrosoft_Visual_FoxPro_Driver
vbMicrosoft_JET_OLEDB_4_0
vbVFPOLEDB_1

لطفاًراهنماییم کنید که بد جوری گیرم

با سلام خدمت شما دوست عزیز : prans_tork

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

موفق باشيد

از پاسخ مهندس عزیز M_man_M ممنونم
منظورتون رو از قابلیت ادمین نگرفتم!
اگه منظوورتون run as administrator کردن vs 2012 هستش تست کردم اما مشکل باقی است
برای مثال:

orginal value: 2473630035

و نتیجه :

changed value: 

یعنی هرچی باشه به این تبدیل میشه : ""
باز هم از پاسختون ممنونم

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

ريويژن جديد

تا اونجايي که تونستم کاري کردم که براي تبديل اجازه‌ي دسترسي بالايي نخواد
يعني حتماً لازم نباشه که برنامه Run as Administrator اجرا بشه

اگه احياناً دوستي مجدداً با اين مشکل مواجه شد ،
خوشحال ميشم که به من اطلاع بده و بگه در چه شرايطي به مشکل برخورد کرده

با تشکر از تمامي دوستان
و آرزوي موفقيت براي همگي

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

سلام مهندس
من ورژن 2.0.0.2 رو استفاده میکردم
با این حال ورژن W2D_D2W v2 build3 رو دانلود، رجیستر و جایگزین کردم
اما مشکل همچنان باقیه که در ویندوز به داس ایران سیستم، هر چی بهش میدم، "" (null) برمیگردونه
کدی که گذاشته بودم که فکر نکنم از لحاظ آرگومنت اشکالی داشته باشه؟
ممنونم از کمکتون