From: "Piotr Warda" <piotr.warda@blackbut.com.pl>
Subject: Re: Zmienic ogonki w dbf-ach ???
Newsgroups: pl.comp.ogonki
Date: 3 Jul 97 15:30:57 GMT

Cze¶ć!

Zbigniew Podziewski <zipo@ikp.atm.com.pl> napisał(a) w artykule
<33b98c5d.9050431@news.atm.com.pl>...
> On 21 Jun 97 04:47:12 GMT, "Andrzej Piotr Wozniak" <usher@polbox.com>
> napisał(a):
> 
> >Konwertuj DBFa do SDF, potem przewalaj tekst dowolnym konwerterem ( np.
z

Czyżby¶cie w dobie wszechobecnej Windy zapomnieli ostarym, poczciwym
DOS-ie????

Najpro¶ciej w Clipperze napisać pro¶ciótki program zawieraj±cy:

#include "PL_Liter.ch"

*******************************
Function Konwert(cStr,cSr,cDst)                 // Konvert() --> cString
*------------------------------
local i,nPos,cChar
local cOut:=""

for i:=1 to Len(cStr)
    cChar:=SubStr(cStr, i, 1)
    cOut+=if((nPos:=At(cChar,cSr)) == 0,cChar,SubStr(cDst,nPos,1))
next i
return cOut



a w PL_Liter.ch

#define PL_MAZ "¬?^жˇŁ^Ř ·?«??¤˘ľ?§"
#define PL_DHN "^Ŕ^Á?^Ă????^Č?©?¦«®¬^Đ?"
#define PL_LAT "¤¬¨»ăŕ?«˝ˇ??^Čä˘^Ř?µ"
#define PL_ISO "·ĆĘŁŃÓ??Ż?ćęłńó?Ąż"
#define PL_ASC "ACELNOSZZacelnoszz"


oraz przykład wywołania:

DevOut(Konwert(cTxt,PL_MAZ,PL_LAT))

i chulaj dusza.

Pozdrawiam, :-)

PioVar