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
|
