تبدیل Dbf تحت داس به Db پاراداکس تحت ویندوز

[Mahdi_S_T]

دوستان من می خوام اطلاعات موجود در بانکهای فاکس پرو DBF تحت داس را به پارداکس DB تحت ویندوز تبدیل کنم لطفا راهنمایی بفرمایید اگه روشی برای اینکار وجود دارد یا نرم افزاری که اینکار را بکند . در ضمن من جستجو کردم ولی در بین مطالب موضوعی بود که اشاره کرده بود به استفاده از batchmove1 ..... اگه در این مورد هم اگه اطلاعاتی دارید آنرا هم بیان کنید . ممنون .

[Vakily]

اگر String در فیلدها نباشد(تغییر فونت )هم میتوان از BachMove استفاده کرد (مراجعه به Help Delphi) هم فیلد به فیلد چون درBachMove باید ساختار فایلها یکسان باشد
چنانچه فیلد String داری برای تبدیل فونت از parsa200 Windows 98استفاده کن
برنامه Transfer هم یک نمونه برنامه

[Mahdi_S_T]

BachMove را تست کردم ولی در مورد فیلدهای رشته ای فارسی در محیط ویندوز به صورت بهم ریخته است یه روش استفاده از پارسا 2000 است البته باید تست کنم ولی قبلا در تاپیک ها خواندم که فایل های با رکورد های زیاد را نمی تواند تبدیل کند ؟
آیا نرم افزار یا سورس کدی در این مورد کسی نداره ؟

[javad_hosseiny]

اگر تو بخش فاکس پرو بگردی یه چند موردی پیدا می کنی

[Mahdi_S_T]

البته من پارسا 2001 را تست کردم و چنین کاری با بانکهای اطلاعاتی انجام نمی داد

[m-khorsandi]

درود

در واقع شما دو تا کار رو میخواهید انجام بدید:
1- تبدیل اطلاعات از Dos به ویندوز
2- تبدیل Db به Dbf

درسته؟

[javad_hosseiny]

مبدل پارسا دارای قابلیت تبدیل از کدپیچ های مختلف هست
ولی در روی فایلهای متنی یا وردو ....
ولی در رابطه با بحث جداول می بایستی از برنامه های مربوطه (مخصوص این کار) استفاده کنید
البته می تونید هم از جدولتون خروجی تکست گرفته توسط پارسا اون رو تبدیل کنید و به راحتی در محیط اکسس اون رو ایمپورت کنید (بصورت فایل تکست دیلمیت)

[bps20590]

باسلام
دوست عزیزکلیه پاسخهای داده شده به نوبه خوددرجاهای مختلف کاربرددارندولی مطمئن ترین کاراستفاده ازیک برنامه نوشته شده آماده میباشدالبته این برنامه اطلاعات تحت داس رابه اکسس تحت ویندوزتبدیل میکندکه شمابه راحتی میتوانیدبوسیله چندخط برنامه نویسی توسط دلفی آنها رابه پاراداکس منتقل کنید
ضمنابرنامه فوق قادراست یک جدول دارای 100000رکوردرادرمدت زمانی کتراز15 دقیقه تبدیل کند
چنانچه مایل بودیدباشماره تلفن 3204840-0661 (مریدی)تماس بگیرید

[Touska]

با استفاده از یک برنامه که کار یکی از بچه های سایت هست : :)

بگرد پیداش می کنی

اگر پیدا نکردی بگو تا برات Email کنم.

[Mahdi_S_T]

خیلی گشتم ولی پیدا نکردم . لطفا برام ارسال کن . ممنون
NegProgGrp@hotmail.com

[javad_hosseiny]

مگه برنامه ارائه شده مشکل شما را مرتفع نکرد؟
من و خیلی از دوستان بخش فاکس پرو از این مورد زیاد استفاده کردیم و مشکلی نداشتیم؟
اگر نیاز به توضیح و یا تغییر دیگری هست بگید تا برایتان مرتفع کنم

[Mahdi_S_T]

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

اگه نظر دیگه ای دارید ممنون میشم اون رو بدونم

[javad_hosseiny]

نیاز به آشنایی با فاکس پرو نیست .
کافی است برنامه موردنظر را اجرا کنید (بنده برای اطمینان بیشتر فایل اجرایی آن را نیز آپلود کردم کافی است تا dll های موردنیاز را در کنار فایل exe قرار دهید) و یا اینکه در محیط داخلی ویژوال فاکس برنامه موردنظر را اجرا کنید
(do dos2win.prg)
(اگر برنامه ویژوال فاکس (هر نسخه ای) از نسخه 5 یا 6 ( داخل مجموعه ویژوال استادیو هست) و یا بالاتر هر نسخه اش را در سیستم تان نصب کنید (فایل های dll موردنیاز را در شاخه سیستم ویندوز نصب کرده) و لذا فایل اجرایی (exe) اجرا می شود
و نحوه کارکردن برنامه نیز به همان صورت است که اعلام کردید (نام جدول را انتخاب می کنید و برنامه عملیات تبدیل را انجام داده و خروجی بانک (جدول) را به شما نمایش می دهد و در عین حال امکان گرفتن خروجی text را نیز به شما می دهد)
(فکر کنم نهایتا مشکل شما نصب برنامه ویژوال فاکس بر روی سیستم تان باشد (ویا حداقل کپی dll ها مربوطه اش) )

[Touska]

سلام

می تونی از اینجا دانلود کنی :

http://www.touska.persiangig.com/other/FConvert.zip

:)

[ajavan]

سلام
اگه برنامه رو پیدا کردی برای من هم بفرست
ahmadjavan319@yahoo.com
با تشکر

[حرفه ای]

از تابع زیر استفاده کنید :
/////////DosToWinPersion////////////
Function TF_Date.DosToWinPersion(TableFields:TField):string ;
var
I:integer;
S,Str:string[255];
X:array[1..80] of byte;
begin
S:=TableFields.AsString;
if S <> '' then
begin
for I:=1 to length(S) do
begin
X[I]:=ord(S[I]);
end;
Str:='';
SetLength(Str,Length((S)));
I:=Length(S)+1;
while I > 1 do
begin
dec(i);
case x[length(S)-i+1] of
141:Str[i]:=Chr(199); {alef}
142:Str[i]:=Chr(198); {alef}
143:Str[i]:=Chr(193); {alef}
144:Str[i]:=Chr(199); {alef}
145:Str[i]:=Chr(199); {alef}

146:Str[i]:=Chr(200); {be}
147:Str[i]:=Chr(200); {be}

148:Str[i]:=Chr(129); {pe}
149:Str[i]:=Chr(129); {pe}

150:Str[i]:=Chr(202); {te}
151:Str[i]:=Chr(202); {te}

152:Str[i]:=Chr(203); {se}
153:Str[i]:=Chr(203); {se}

154:Str[i]:=Chr(204); {jim}
155:Str[i]:=Chr(204); {jim}

156:Str[i]:=Chr(141); {che}
157:Str[i]:=Chr(141); {che}

158:Str[i]:=Chr(205); {he}
159:Str[i]:=Chr(205); {he}

160:Str[i]:=Chr(206); {khe}
161:Str[i]:=Chr(206); {khe}

162:Str[i]:=Chr(207); {dal}

163:Str[i]:=Chr(208); {zal}

164:Str[i]:=Chr(209); {re}

165:Str[i]:=Chr(210); {ze}

166:Str[i]:=Chr(142); {gje}

167:Str[i]:=Chr(211); {sin}
168:Str[i]:=Chr(211); {sin}

169:Str[i]:=Chr(212); {chin}
170:Str[i]:=Chr(212); {chin}

171:Str[i]:=Chr(213); {sad}
172:Str[i]:=Chr(213); {sad}

173:Str[i]:=Chr(214); {zad}
174:Str[i]:=Chr(214); {zad}

175:Str[i]:=Chr(216); {ta}

224:Str[i]:=Chr(217); {za}

225:Str[i]:=Chr(218); {ain}
226:Str[i]:=Chr(218); {ain}
227:Str[i]:=Chr(218); {ain}
228:Str[i]:=Chr(218); {ain}

229:Str[i]:=Chr(219); {ghain}
230:Str[i]:=Chr(219); {ghain}
231:Str[i]:=Chr(219); {ghain}
232:Str[i]:=Chr(219); {ghain}

233:Str[i]:=Chr(221); {fe}
234:Str[i]:=Chr(221); {fe}

235:Str[i]:=Chr(222); {ghaf}
236:Str[i]:=Chr(222); {ghaf}

237:Str[i]:=Chr(223); {kaf}
238:Str[i]:=Chr(223); {kaf}

239:Str[i]:=Chr(144); {gaf}
240:Str[i]:=Chr(144); {gaf}

241:Str[i]:=Chr(225); {lam}
242:
begin {lam}
Str[i+1]:=Chr(199);
Str[i]:=Chr(225);
Setlength(S,length(S)+1);
end;
243:Str[i]:=Chr(225); {lam}

244:Str[i]:=Chr(227); {mim}
245:Str[i]:=Chr(227); {mim}

246:Str[i]:=Chr(228); {non}
247:Str[i]:=Chr(228); {non}

248:Str[i]:=Chr(230); {vav}


249:Str[i]:=Chr(229); {he}
250:Str[i]:=Chr(229); {he}
251:Str[i]:=Chr(229); {he}

252:Str[i]:=Chr(237); {ye}
253:Str[i]:=Chr(237); {ye}
254:Str[i]:=Chr(237); {ye}

128:Str[i]:=Chr(48); {yek}
129:Str[i]:=Chr(49); {do}
130:Str[i]:=Chr(50); {se}
131:Str[i]:=Chr(51); {char}
132:Str[i]:=Chr(52); {panj}
133:Str[i]:=Chr(53); {shesh}
134:Str[i]:=Chr(54); {haft}
135:Str[i]:=Chr(55); {hasht}
136:Str[i]:=Chr(56); {noh}
137:Str[i]:=Chr(57); {dah}

138:Str[i]:=Chr(145); {kama}

140:Str[i]:=Chr(191); {soal}

32:Str[i] :=Chr(32); {blank}

46:
begin
if x[length(S)-i]=46 then
begin
Str[i+2]:=Chr(229);
Str[i+1]:=Chr(225);
Str[i] :=Chr(225);
Str[i-1]:=Chr(199);
Setlength(S,length(S)+1);
dec(i);
end;
end;

end;
end;
Setlength(Str,length(S));
DosToWinPersion:=Str;
end
else
DosToWinPersion:=S;
end;

[Mahdi_S_T]

از آقای حسینی متشکرم . لطفا لینک برنامه را بگذارید
آقای توسکا از لطفا شما هم متشکرم
دوست عزیز هم که تابعی گذاشته اند ، باید تست کنم و امیدوارم که کار کند . ممنون

[Mahdi_S_T]

من از تابع استفاده کردم ولی جواب درست نمی داد

[حرفه ای]

دوست گرامی

تابع فوق کاملاً درست عمل می کنه من اونو در چند برنامه استفاده کردم شاید طریقه استفاده شما صحیح نبوده

کار این تابع تبدیل بانک تحت داس به فونت قابل خواندن در ویندوزه

[javad_hosseiny]

من تو بخش فاکس همون موقع آپلود کردم (که شما هم در همون بخش گفته بودید سرچ کردید ولی پیدا نکردید)
به هر حال این لینک همون صفحه است:
http://www.barnamenevis.org/forum/showthread.php?t=10840&page=1&pp=10

[Mahdi_S_T]

آقای حسینی ممنون
آقای حرفه ای اگه ممکنه تابع را همراه یه مثال برام آپلود کنید ؟ متشکر

[francosoft]

سلام لطفا به میلsma_eslami@yahoo.fr نیز بفرست
ممنون

[Mahdi_S_T]

آقای حرفه ای چی شد عزیز ؟

[Mahdi_S_T]

اگه دوستان تابعی جدیدی دارند که بشه در دلفی از اون استفاده کنم ممنون میشم اگه اینجا بذارن

[houshang.karami]

با سلام
می توانید از برنامه ای که من نوشتم استفاده کنید این برنامه اطلاعات شما را از بانک اطلاعاتی تحت داس مثل فاکس پرو و پارادوکس و فایل های متنی و فایل های CSV به ویندوز تبدیل می کند در ضمن برنامه عکس این حالت را نیز انجام می دهد
برنامه روی ترکیب حروف با اعداد و حروف انگلیسی هوشمند عمل می کند و سرعت بسیار خوبی هم دارد.
برای دانلود برنامه می توانید به لینک زیر مراجعه کنید
http://helia2000.tripod.com/index_files/Page944.htm

[arash_coder]

اقای Touska لطفا برای من هم email کنید.
arash_shahzamany@yahoo.com
خیلی متشکرم.

[mehdi_mohamadi]

شما تابع Dos to win را جستجو کنید