Code: Select all
;Procedure Prevod for transforming CodePage 1250 to CodePage 852
OpenConsole()
Test$=("příliš žluťoučký kůň úpěl ďábelské ódy Ř Í Š Ž Ť Č Ý Ů Ň Ú Ě Ď Á É Ó")
Print ("Wrong: ")
PrintN(Test$)
Procedure.s Vymena (StaryZnak$, NovyZnak$)
Shared Vysledny$
Vysledny$= ReplaceString(Vysledny$,StaryZnak$,NovyZnak$)
ProcedureReturn Vysledny$
EndProcedure
Procedure.s Prevod(Prevadeny$)
Shared Vysledny$
Vysledny$=Prevadeny$
Vymena("Ľ", Chr(149))
Vymena("ľ", Chr(150))
Vymena("ô", Chr(147))
Vymena("ŕ", Chr(234))
Vymena("ä", Chr(132))
Vymena("ĺ", Chr(146))
Vymena("Ô", Chr(226))
Vymena("Ĺ", Chr(145))
Vymena("á", Chr(160))
Vymena("č", Chr(159))
Vymena("é", Chr(130))
Vymena("í", Chr(161))
Vymena("š", Chr(231))
Vymena("ú", Chr(163))
Vymena("ů", Chr(133))
Vymena("ž", Chr(167))
Vymena("Á", Chr(181))
Vymena("Č", Chr(172))
Vymena("Ť", Chr(155))
Vymena("Ň", Chr(213))
Vymena("Ď", Chr(210))
Vymena("Ó", Chr(224))
Vymena("É", Chr(144))
Vymena("Ě", Chr(183))
Vymena("Í", Chr(214))
Vymena("Ř", Chr(252))
Vymena("Š", Chr(230))
Vymena("Ú", Chr(233))
Vymena("Ů", Chr(222))
Vymena("Ž", Chr(166))
Vymena("Ý", Chr(237))
Vymena("ě", Chr(216))
Vymena("ť", Chr(156))
Vymena("Ä", Chr(142))
Vymena("ý", Chr(236))
Vymena("ř", Chr(253))
Vymena("Ŕ", Chr(232))
Vymena(Chr(239), Chr(212)) ;d
Vymena(Chr(243), Chr(162)) ;o
Vymena(Chr(242), Chr(229)) ;n
Vymena(Chr(176), Chr(32))
Vymena(Chr(10), Chr(32))
Vymena(Chr(13), Chr(32))
ProcedureReturn Vysledny$
EndProcedure
Macro PrintN(Jakykoliv)
Prevod(Jakykoliv)
Print(Vysledny$+ #CRLF$)
EndMacro
Print("Right: ")
PrintN(Test$)
PrintN("Press RETURN !")
Input()