Hi Jimmy,
yes, i am german, but this programm means UMLEITUNG , this prg uses the
PRINT.EXE to print to a novellqueue
"AUGE_OHR" <AUGE_OHR_NOSPAM_@[EMAIL PROTECTED]
> schrieb im Newsbeitrag
news:fq1nj2$b00$03$1@[EMAIL PROTECTED]
> hi,
>
>> anyone wrote UMLTG.PRG for printing within clipperapps
>
> are you German ? i think UMLTG -> "Umlaute" ?
> which Way you want to "convert" your "Umlaute"
> a.) OEM -> ANSI
> b.) ANSI -> OEM
> *** snip ***
> FUNCTION Umlaute(cString)
> //
> // german OEM -> ANSI
> //
> LOCAL aOEM := { Chr(142), Chr(132), Chr(153), Chr(148), Chr(154),
> Chr(129),CHR(225) }
> LOCAL aAnsi := { Chr(196), Chr(228), Chr(214), Chr(246), Chr(220),
> Chr(252),
> "ss" }
> LOCAL i,iMax
> LOCAL nPos
>
> iMax := LEN(cString)
> FOR i:= 1 TO iMax
> nPos := ASCAN(aOEM,SUBSTR(cString,i,1) )
> IF nPos > 0
> cString := STRTRAN(cString,aOEM[nPos],aAnsi[nPos])
> ENDIF
> NEXT
> RETURN cString
> *** eof ***
> greetings by OHR
> Jimmy
>
>
|
