تبدیل فونت داس به ویندوز [بایگانی]

ehsaniran59

چهارشنبه 10 اسفند 1384, 07:08 صبح

با سلام

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

arshia_

چهارشنبه 10 اسفند 1384, 07:56 صبح

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

سید مسعود موحد

چهارشنبه 10 اسفند 1384, 08:28 صبح

دوست عزیز
اگر جستجو بکنید حتی برنامه آنرا هم در همین سایت میتوانید پیدا کنید

mzjahromi

چهارشنبه 10 اسفند 1384, 08:32 صبح

ببین این تابع مشکلت رو حل میکنه؟

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;

ehsaniran59

چهارشنبه 10 اسفند 1384, 09:28 صبح

با تشکر از کمک دوستان :خجالت: