آره ! ایندفعه فاکس پرو گلوی ما را هم گرفت! آخه توی راه آهن اکثر برنامه ها با این نرم افزار مزخرف نوشتند و اکثر اونها هم تحت داسه..! مشکل اینجاست که وقتی میخوای اونها را به وب تبدیل کنی و یکی دوتومنی به جیب بزنی با یه مشکل مواجه میشی! اونهم اطلاعاتی هسته که قبلا وارد شده. خوشبختانه دوستان غربی ما ( که هنوز واسم معلوم نشد چرا میگید نه شرقی و نه غربی) این کار را برامون میکنن و با نرم افزار های تبدیل میشه اونها را به یه دیتابیس مورد نظر تبدیل کرد. باز هم شاید تعجب کنید که دیتابیس های فایر فاکس فقط یک جدول دارند!! از اون تعجب انگیز تر اینه که اون موقع چیزی تحت عنوان unicode نبوده و با کدنویسی یا برنامه egaf.com سمبل ها را به فارسی تبدیل می کردند. اینجاس که کار ما گره خورده! egaf هم چون تحت داسه و به درد ما نمی خوره لذا باید با کدنویسی این کار را بکنیم و یا نرم افزارش که 100 تومن هسته بخریم! البته میدونید که من همیشه با همه رفیق بودم! با مدیر اونجا هم که آره! ولی راه دومی که توی اینترنت پیدا کردم براتون میذارم. شما هم که ITMAN&MEN هستید برید اداره های شهرتون و این پیشنهاد رو بهشون بکنید. کلی استقبال میکنن و کلی پول به جیب میزنید.

" {{ آقا تو آکلاد بهتون بگم که: IT وقتی معنا داره که احساس نیاز تو طرف بنا کنی! آره بنا کنی تا برای همیشه این بنا بمونه و جزئ آثار باستانی بشه! راست نرید بگید ما اون رو وب میکنیم! اگر پورتال یا اینترانت داشتن بگید در غیر اینصورت با application جلو برید. اگر هم مخالفت کردن عیبی نداره! یکی بنویسید و بذارید جلوی اونها ! اونموقع عین بز که دنبال دسته علف پشت سرتون راه میره، باهاتون کنار میان!}}"


روش اینه:

دوست عزیز روش زیر با فارسی سازهای سازگار با sepand وfoxpro 2.6 و excel XP یا excel 2000 در ویندور های xp و 2003 آزمایش شده و درست جواب می دهد: برای مشاهده فایل dbf در excel باید این کارها را انجام دهید: 1- در محیط Foxpro برای dos مثلا (Foxpro 2.6) ، فایل DBF را باز کنید: در پنجره command تایپ کنید: use ? بعد فایل dbf را پیدا کنید و باز کنید. 2- در پنجره command تایپ کنید: SET PRINTER TO "C:\TEMP.TXT" LIST TO PRINTER حالا فایل DBF به فرمت TEXT تبدیل و در فایل C:\TEMP.TXT ذخیره شده. 3-در EXCEL از منوی فایل ، open را انتخاب کنید - در قسمت files of type گزینه textfiles را انتخاب کنید. بعد c:\temp.txt را پیدا کنید و آنرا open کنید. حالا text import wizard باز می شود در اولین مرحله آن: - در قسمت original data type گزینه fixed width - در قسمت file origin گزینه windows(ansi) - در قسمت start import at row هم 1 را انتخاب کنید. بعد هم finish را کلیک کنید. 4- فایل را با فرمت microsoft excel workbook ذخیره کنید. 5-visual basic editor را اجرا کنید(از منوی tools) - در قسمت project روی ThisWorkBook دابل کلیک کنید. - صفحه ای برای کد نویسی باز میشود، ماکرو زیر را در آن paste کنید. Sub convert() 'Simple VEGAF/SAHER and compatibles Text Converter 'for ms excel 'Code and mapping by : 'Karagah (pt_karagah at yahoo dot com) 'you may use it freely as long as this notice 'remains intact. ENjoy Oldies! :) Dim map(255) As Integer Dim myString As String Dim myChar As String * 1 For i = 0 To 255 map(i) = i Next map(128) = 48: map(129) = 49: map(130) = 50: map(131) = 51: map(132) = 52: map(133) = 53: map(134) = 54: map(135) = 55: map(136) = 56: map(137) = 57: map(138) = 161: map(139) = 45: map(140) = 191: map(141) = 194: map(142) = 198: map(143) = 193: map(144) = 199: map(145) = 199: map(146) = 200: map(147) = 200: map(148) = 129: map(149) = 129: map(150) = 202: map(151) = 202: map(152) = 203: map(153) = 203: map(154) = 204: map(155) = 204: map(156) = 141: map(157) = 141: map(158) = 205: map(159) = 205: map(160) = 206: map(161) = 206: map(162) = 207: map(163) = 208: map(164) = 209: map(165) = 210: map(166) = 142: map(167) = 211: map(168) = 211: map(169) = 212: map(170) = 212: map(171) = 213: map(172) = 213: map(173) = 214: map(174) = 214: map(175) = 216: map(224) = 217: map(225) = 218: map(226) = 218: map(227) = 218: map(228) = 218: map(229) = 219: map(230) = 219: map(231) = 219: map(232) = 219: map(233) = 221: map(234) = 221: map(235) = 222: map(236) = 222: map(237) = 223: map(238) = 223: map(239) = 144: map(240) = 144: map(241) = 225: map(243) = 225: map(244) = 227: map(245) = 227: map(246) = 228: map(247) = 228: map(248) = 230: map(249) = 229: map(250) = 229: map(251) = 229: map(252) = 237: map(253) = 237: map(254) = 237: For Each c In Selection If c.Value <> "" Then myString = c.Value temp = "" For i = Len(myString) To 1 Step -1 myChar = Chr(map(Asc(Mid(myString, i, 1)))) temp = temp + myChar Next c.FormulaR1C1 = temp End If Next End Sub - به worksheet برگردید و ستون هایی را که می خواهید به فارسی تبدیل شوند انتخاب کنید و ماکروی convert را اجرا کنید. (از منوی tools->macro->macros) ** موقع انتخاب دقت کنید!این ماکرو فقط متونی که کاملا فارسی هستند را درست تبدیل می کند. متن انگلیسی و اعداد را برعکس می کند. ** قبل از تبدیل فایل های دیگر با این روش باید فایل temp.txt را پاک کنید چون foxpro هر بار آخر فایل اطلاعات را اضافه می کند