تبدیل فاکس پرو به اکسس [بایگانی]

lili303

یک شنبه 29 آبان 1384, 08:48 صبح

سلام و خسته نباشید
من برنامه ای با بانک فاکس پرو تحت داس نوشتم و می خواهم ان را به بانک اطلاعاتی اکسس تبدیل کنم و فونت های فارسی آن هم درست نشان دهد ولی به مشکل برخوردم. اگر کسی کمکم کند و یا برنامه تبدیلی آن را برایم بفرستد ممنون می شوم.

mzjahromi

یک شنبه 29 آبان 1384, 08:57 صبح

با چه نرم افزاری میخوای کار کنی؟

ehsan2000

یک شنبه 29 آبان 1384, 10:55 صبح

سلام آقای ذوالقدر
من هم در این قسمت یه مشکل دارم. می خواهم با دلفی یه یه بانک اکسس بسازم.یعنی فیلدهای dbf رو شناسایی کردم می خواهم یه بانک توی اکسس با این فیلدها درست کنم. لطفا راهنمائی کنید.
ممنون.

rezaTavak

یک شنبه 29 آبان 1384, 11:56 صبح

سلام
من فقط توی فاکس پرو و جاوا می تونم کمک کنم.

mzjahromi

یک شنبه 29 آبان 1384, 12:01 عصر

ببینید این کمکتون می کنه؟

Function TmB.DOSConvertor(Str:String):String;
// ÊÈÏíá ßääÏå ÇÒ ÏÇÓ Èå æíäÏæÒ ÇÑÓÇ
var
res,s,ms1:String;
n,Num:Integer;
begin
res:='';
ms1:='';
n:=1;
num:=StrLen(pchar(Str));
While n<=Num do
Begin
if Str[n]<>#32 Then
break;
Inc(n);
End;
While n<=Num do
Begin
ms1:=ms1+Str[n];
Inc(n);
End;
Str:=ms1;
n:=1;
while n<=Num do
begin
s:=copy(Str,n,1);
if s='¤' then
res:='Ñ'+res
else if s='ü' then
res:='í'+' '+res
else if s='ö' then
res:='ä'+' '+res
else if s='ì' then
res:='Þ'+res
else if s='‘' then
res:='Ç'+res
else if s='›' then
res:='Ì'+res
else if s='þ'then
res:='í'+res
else if s='ª' then
res:='Ô'+res
else if s='' then
res:='Ç'+res
else if s='û' then
res:='å'+res
else if s='£' then
res:='Ð'+res
else if s='' then
res:='Â'+res
else if s='' then
res:=''+res
else if s='¡' then
res:='Î'+res
else if s='ó' then
res:='á'+res
else if s='“' then
res:='È'+res
else if s='õ' then
res:='ã'+res
else if s='ð' then
res:=''+res
else if s='î' then
res:='ß'+res
else if s='ê' then
res:='Ý'+res
else if s='ç' then
res:='Û'+res
else if s='ã' then
res:='Ú'+res
else if s='à' then
res:='Ù'+res
else if s='¯' then
res:='Ø'+res
else if s='®' then
res:='Ö'+res
else if s='¬' then
res:='Õ'+res
else if s='¨' then
res:='Ó'+res
else if s='¦' then
res:='Ž'+res
else if s='¥' then
res:='Ò'+res
else if s='¢' then
res:='Ï'+res
else if s='Ÿ' then
res:='Í'+res
else if s='™' then
res:='Ë'+res
else if s='—' then
res:='Ê'+res
else if s='•' then
res:=''+res
else if s='ø' then
res:='æ'+res
else if s='š' then
res:='Ì'+' '+res
else if s='ù' then
res:='å'+' '+res
else if s='è' then
res:='Û'+res
else if s='÷' then
res:='ä'+res
else if s='’' then
res:='È'+' '+res
else if s='ä' then
res:='Ú'+res
else if s='*' then
res:='Ö'+' '+res
else if s='ú' then
res:='å'+res
else if s='§' then
res:='Ó'+' '+res
else if s='ë' then
res:='Þ'+' '+res
else if s='' then
res:='Á'+res
else if s='ñ' then
res:='á'+' '+res
else if s='í' then
res:='ß'+' '+res
else if s='–' then
res:='Ê'+' '+res
else if s='ô' then
res:='ã'+' '+res
else if s='ò' then
res:='áÇ'+res
else if s='å' then
res:='Û'+' '+res
else if s='Ž' then
res:='Æ'+res
else if s='é' then
res:='Ý'+' '+res
else if s='ž' then
res:='Í'+' '+res
else if s='é' then
res:='Ý'+' '+res
else if s='ý' then
res:='í'+' '+res
else if s='ï' then
res:=''+' '+res
else if s='©' then
res:='Ô'+' '+res
else if s=' ' then
res:=' '+res //'Î'
else if s='œ' then
res:=''+' '+res
else if s=' ' then
res:=' '+res
else if s='*' then
res:='Î'+' '+res
else if s='”' then
res:=''+' '+res
else if (s>='0')and (S<='9') then
Begin
inc(N);
While (str[n]>='0')and (str[n]<='9')and (N<=Num) do
Begin
S:=S+str[n];
inc(N);
End;
Res:=s+Res;
End
else
res:=S+res;

n:=n+1;
end;
S:=Res;
Res:='';
For n:=1 To Length(S) do
if s[n]<>' ' THen
Res:=Res+s[n]
else if (Length(Res)>0) And(Res[Length(Res)]<>' ')Then
Res:=Res+s[n];
DOSConvertor:=res;
end;

javad_hosseiny

یک شنبه 29 آبان 1384, 12:12 عصر

ابتدا باید اطلاعات خود را از محیط dos (با توجه به نوع کدپیچ اطلاعاتتان که از چه فارسی سازی استفاده می کند : ایران سیستم - سایه - پانیذ - نور و ....) به محیط ویندوز تبدیل کنید (که در این بخش الی ماشاءالله برنامه برای این کار قرار دارد)
سپس قالب اطلاعات موردنظر را از تبدیل کنید (از dbf به mdb (اکسس) ) (که برای این منظور نیز راه حل های بسیاری وجود دارد که راحت ترین آنها تبدیل dbf به text و فراخوانی آن از طریق منوهای import در محیط access)