تبدیل فونت بانک dbf تحت داس به ویندوز

[Delphi7_love]

با سلام خدمت دوستان
یک بانک dbf دارم که می خوام به ویندوز تبدیلش کنم چطور میتونم اینکارو انجام بدم

[azygole]

سلام . من یه برنامه نوشتم که اینکار رو می کنم

[mojiparadox]

برای این‌کار می‌تونی از تابع زیر استفاده کنی: (روش کارش هم خیلی ساده‌اس! رشته فارسی داس یا همون ایران سیستم‌ات رو به این تابع بفرست، جوابش همون رشته به صورت فارسی استاندارد ویندوزه!)


Function Dos2Win(Data:String):String;
var
K, Pos, Ps2,
Len : Integer;
OutText,KK : String;
Exit : Boolean;
Begin
Len := Length(Data);
Pos := 0;
PS2 := 0;
K := Len;
While K>= 1 Do Begin
IF (((ORD(Data[K]) >= 128) And (ORD(Data[K]) <= 137)) OR ((ORD(Data[K]) >= 46) And (ORD(Data[K]) <= 57)) OR ((ORD(Data[K]) >= 65) And (ORD(Data[K]) <= 122))) Then Begin
Pos := Pos+1;
Ps2 := Ps2; End
Else Begin
Pos := Len;
Ps2 := Length(OutText);
End;
Case ORD(Data[K]) of
128..137 : Begin
KK := '';
Exit := False;
While Not Exit Do Begin
IF (ORD(Data[K]) >= 128) And (ORD(Data[K]) <= 137) Then
KK := (Chr(ORD(Data[K])-80))+KK
Else
Exit := True;
Dec(K);
End;
K := K+2;
Insert(KK,OutText,Ps2+1);
End;
32 : Insert(' ',OutText,Pos);
41 : Insert('(',OutText,Pos);
40 : Insert(')',OutText,Pos);
138 : Insert('،',OutText,Pos);
139 : Insert('ـ',OutText,Pos);
140 : Insert('؟',OutText,Pos);
141 : Insert('آ',OutText,Pos);
142 : Insert('ئ',OutText,Pos);
143 : Insert('ء',OutText,Pos);
144 : Insert('ا',OutText,Pos);
145 : Insert('ا',OutText,Pos);
146 : Insert('ب',OutText,Pos);
147 : Insert('ب',OutText,Pos);
148 : Insert('پ',OutText,Pos);
149 : Insert('پ',OutText,Pos);
150 : Insert('ت',OutText,Pos);
151 : Insert('ت',OutText,Pos);
152 : Insert('ث',OutText,Pos);
153 : Insert('ث',OutText,Pos);
154 : Insert('ج',OutText,Pos);
155 : Insert('ج',OutText,Pos);
156 : Insert('چ',OutText,Pos);
157 : Insert('چ',OutText,Pos);
158 : Insert('ح',OutText,Pos);
159 : Insert('ح',OutText,Pos);
160 : Insert('خ',OutText,Pos);
161 : Insert('خ',OutText,Pos);
162 : Insert('د',OutText,Pos);
163 : Insert('ذ',OutText,Pos);
164 : Insert('ر',OutText,Pos);
165 : Insert('ز',OutText,Pos);
166 : Insert('ژ',OutText,Pos);
167 : Insert('س',OutText,Pos);
168 : Insert('س',OutText,Pos);
169 : Insert('ش',OutText,Pos);
170 : Insert('ش',OutText,Pos);
171 : Insert('ص',OutText,Pos);
172 : Insert('ص',OutText,Pos);
173 : Insert('ض',OutText,Pos);
174 : Insert('ض',OutText,Pos);
175 : Insert('ط',OutText,Pos);
224 : Insert('ظ',OutText,Pos);
225 : Insert('ع',OutText,Pos);
226 : Insert('ع',OutText,Pos);
227 : Insert('ع',OutText,Pos);
228 : Insert('ع',OutText,Pos);
229 : Insert('غ',OutText,Pos);
230 : Insert('غ',OutText,Pos);
231 : Insert('غ',OutText,Pos);
232 : Insert('غ',OutText,Pos);
233 : Insert('ف',OutText,Pos);
234 : Insert('ف',OutText,Pos);
235 : Insert('ق',OutText,Pos);
236 : Insert('ق',OutText,Pos);
237 : Insert('ك',OutText,Pos);
238 : Insert('ك',OutText,Pos);
239 : Insert('گ',OutText,Pos);
240 : Insert('گ',OutText,Pos);
241 : Insert('ل',OutText,Pos);
242 : Insert('لا',OutText,Pos);
243 : Insert('ل',OutText,Pos);
244 : Insert('م',OutText,Pos);
245 : Insert('م',OutText,Pos);
246 : Insert('ن',OutText,Pos);
247 : Insert('ن',OutText,Pos);
248 : Insert('و',OutText,Pos);
249 : Insert('ه',OutText,Pos);
250 : Insert('ه',OutText,Pos);
251 : Insert('ه',OutText,Pos);
252 : Insert('ي',OutText,Pos);
253 : Insert('ي',OutText,Pos);
254 : Insert('ي',OutText,Pos)
Else Insert(Chr(ORD(Data[K])),OutText,Ps2+1)
End;
IF (ORD(Data[K]) In [146,148,150,152,154,156,158,160,167,169,171,173,22 5,226,229,230,233,235,237,239,241,244,246,249,252, 253]) Then Begin
Pos := Pos+1;
Insert('‌',OutText,Pos);
End;
IF Not (((ORD(Data[K]) >= 46) And (ORD(Data[K]) <= 57)) OR ((ORD(Data[K]) >= 65) And (ORD(Data[K]) <= 122))) Then
Pos := 0;
K := K-1;
End;
Result := OutText;
End;

[azygole]

سلام.سرم خیلی شلوغ بود دیر اومدم.باید بگردم برنامه رو پیدا کنم کجا گذاشتم.پیداش کردم می زارم اینجا:لبخندساده:

[daneshmand1354]

تبدیل فونت ایران سیستم تحت داس به اسکیوال (http://barnamenevis.org/showthread.php?308702-%D8%AA%D8%A8%D8%AF%DB%8C%D9%84-%D9%81%D9%88%D9%86%D8%AA-%D8%A7%DB%8C%D8%B1%D8%A7%D9%86-%D8%B3%DB%8C%D8%B3%D8%AA%D9%85-%D8%AA%D8%AD%D8%AA-%D8%AF%D8%A7%D8%B3-%D8%A8%D9%87-%D8%A7%D8%B3%DA%A9%DB%8C%D9%88%D8%A7%D9%84)