Pascal ékezetes betűk beolvasása állományból?
Készítettem egy állományt, amibe ez volt:
óúüűöáé
beolvastam:
program ekezet;
var
f:text;
a:string;
begin
assign(f,'ekezet.txt');
reset(f);
readln(f,a);
writeln(a);
close(f);
readln;
end.
és valamiért csak a hosszú ú-t, és ű-t ismerte fel, a többi helyén furcsa szimbólumok.
CP852-es kódolást használok.
Köszönök minden segítséget.
válasza:Használj valami nem kőkorszaki kódolást, mondjuk UTF-8-at.
G.
válasza: válasza:Szia.
Nem is lesz jó, DOS és WINDOWS ennyire kompatibilis egymással.
Az EDIT.COM (c:\Windows\System32\ mappában van) DOS-os szövegszerkesztővel irj ékezetes betűket, és akkor elvileg jó lesz (Keresés/Futtatás : edit.com)
Sok sikert.
üdv.
Köszi a válaszokat, de nekem igazából egy adott állományt kellene beolvasnom, és kiíratnom, az állománnyal nem babrálhatok. De úgy emlékeszem ez régebben nem volt probléma (régen csináltam ilyen feladatot).
Tehát egy adott állomány beolvasásához kellene segítség.
válasza:Azt hiszem ez a járható út:
program project1;
uses Windows, SysUtils;
var f : text;
a : string;
begin
Assign(f,'1.txt');
Reset(f);
ReadLn(f, a);
CharToOEM(PChar(a), PChar(a));
WriteLn(a);
Close(f);
ReadLn;
end.
válasza:Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!