ceske nazvy souboru ve Win32

Roztocil Bohuslav Bohuslav.Roztocil na tconsult.cz
Čtvrtek Září 3 16:04:12 MEST 1998


Neni to spis tak, ze misto ceskych znaku je zobrazen jakysi srot?
Napr. "Prosím přispějte.doc" se zobrazí jako "ProsÝm p°ispýjte.doc"?

Toto by bylo tim, ze sluzby systemu vraceji data v tzv. ANSI znakove
sade. Pro zobrazeni do konzoloveho okna je pouzita tzv. OEM znakova
sada. ANSI znakova sada je obvykle v ceskych  NT CodePage 1250, OEM
pak CodePage 852. Je tedy nutno pred zobrazenim provest konverzi. US
programatorum je to fuk, nepouzivaji zadnou diakritiku, coz zakryje
pripadny rozdil mezi OEM a ANSI znakovou sadou v jejich NT, a proto asi
take nevolaji na patricnem miste Win32 API funkce AnsiToOem() ci jak se
jmenuje. Nasinec si to tedy musi konvertnout rucne, napr. prilozenou
funkci.

Druhe reseni je nastavit si v konzolich znakovou sadu CP 1250, coz ale
muze zpusobit zase opacne problemy...

   C:\> CHCP 1250

BTW stejny problem nastane, pokud pouzivate k editaci skriptu Windowsovy
editor (notepad, MultiEdit, ...) a skript pak pise na konzolu.

Pokud to ovsem opravdu odkousava hacky a carky, pak je to neco jineho
(BTW rad bych to take umel :-).

--
Bohuslav Roztocil                                    TurboConsult s.r.o.
phone:  +420-5-4121 2898 ext. 236                    Botanicka 56
fax:    +420-5-4121 4780                             602 00  Brno
e-mail: bohuslav.roztocil na tconsult.cz                Czech Republic
web:    http://www.tconsult.cz/


-----Original Message-----
From: daemon na pandion.vslib.cz [mailto:daemon na pandion.vslib.cz]On Behalf
Of kubitovi na mbox.lantanet.cz
Posted At: Thursday, September 03, 1998 2:11 PM
Posted To: cz.comp.lang.perl
Conversation: ceske nazvy souboru ve Win32
Subject: ceske nazvy souboru ve Win32


Zdravim,

mam problem s Perlem 5.00502 (binary z activestate.com) na Windows NT
(US):
ctu-li funkci find nebo readdir adresar, ve kterem jsou jmena souboru s 
diakritikou, jsou pismenka s hacky a krouzky orezana do ASCII. Jde to
nejak
spravit?

diky za napady

Marek Kubita


begin 600 AnsiToOem.pl
M<W5B($%N<VE4;T]E;2![#0H@(&UY("1S=')I;F<@/2!S:&EF=#L-"@T*("`D
M<W1R:6YG(#U^('1R("CAY.COZ>SMY;[R\_;TX/B:G?KY_/V>P<3(S\G,S<6\
MTM/6U,#8BHW:V=S=CBD-"B`@("`@("`@("`@("`@("`HH(2?U(+8H9*6Y:*4
MD^K]YYRCA8'LI[6.K-*0M]:1E=7 na F>+H_.:;Z=Z:[:8I#0H@("`@("`@("`@
M("`@.PT*("!R971U<FX@)'-T<FEN9SL-"GT-"@T*(SX@)&$@/2`B4')O<^UM
M('#X:7-P[&IT92YD;V,B.PT*(SX@)&(@/2!!;G-I5&]/96TH)&$I.PT*(SX@
1<')I;G0@(B1A7&XD8EQN(CL=
`
end



Další informace o konferenci Perl