comp.lang.idl-pvwave archive
Messages from Usenet group comp.lang.idl-pvwave, compiled by Paulo Penteado
Home » Public Forums » archive » Re: localising IDL programs
Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend  		Return to the default flat view Create a new topic Submit Reply
Re: localising IDL programs [message #73934 is a reply to message #73933] Thu, 09 December 2010 14:08 Go to previous messageGo to previous message
natha is currently offline  natha
Messages: 482
Registered: October 2007
Senior Member
Just in case, I created the following routine. It seems to work on my
machine

res=DIALOG_MESSAGE(ANSI_VALUE('hola qu'+ANSI_VALUE('è')+' tal com
est'+ANSI_VALUE('à')+'s ?'))

Cheers,
nata


FUNCTION ANSI_VALUE, char_in

CASE char_in OF

'€': ansi_char=STRING(128B)
'‚': ansi_char=STRING(130B)
'ƒ': ansi_char=STRING(131B)
'„': ansi_char=STRING(132B)
'…': ansi_char=STRING(133B)
'†': ansi_char=STRING(134B)
'‡': ansi_char=STRING(135B)
'ˆ': ansi_char=STRING(136B)
'‰': ansi_char=STRING(137B)
'Š': ansi_char=STRING(138B)
'‹': ansi_char=STRING(139B)
'Œ': ansi_char=STRING(140B)
'Ž': ansi_char=STRING(142B)
'‘': ansi_char=STRING(145B)
'’': ansi_char=STRING(146B)
'“': ansi_char=STRING(147B)
'”': ansi_char=STRING(148B)
'•': ansi_char=STRING(149B)
'–': ansi_char=STRING(150B)
'—': ansi_char=STRING(151B)
'˜': ansi_char=STRING(152B)
'™': ansi_char=STRING(153B)
'š': ansi_char=STRING(154B)
'›': ansi_char=STRING(155B)
'œ': ansi_char=STRING(156B)
'ž': ansi_char=STRING(158B)
'Ÿ': ansi_char=STRING(159B)
'¡': ansi_char=STRING(161B)
'¢': ansi_char=STRING(162B)
'£': ansi_char=STRING(163B)
'¤': ansi_char=STRING(164B)
'¥': ansi_char=STRING(165B)
'¦': ansi_char=STRING(166B)
'§': ansi_char=STRING(167B)
'¨': ansi_char=STRING(168B)
'©': ansi_char=STRING(169B)
'ª': ansi_char=STRING(170B)
'«': ansi_char=STRING(171B)
'¬': ansi_char=STRING(172B)
'®': ansi_char=STRING(174B)
'¯': ansi_char=STRING(175B)
'°': ansi_char=STRING(176B)
'±': ansi_char=STRING(177B)
'²': ansi_char=STRING(178B)
'³': ansi_char=STRING(179B)
'´': ansi_char=STRING(180B)
'µ': ansi_char=STRING(181B)
'¶': ansi_char=STRING(182B)
'·': ansi_char=STRING(183B)
'¸': ansi_char=STRING(184B)
'¹': ansi_char=STRING(185B)
'º': ansi_char=STRING(186B)
'»': ansi_char=STRING(187B)
'¼': ansi_char=STRING(188B)
'½': ansi_char=STRING(189B)
'¾': ansi_char=STRING(190B)
'¿': ansi_char=STRING(191B)
'À': ansi_char=STRING(192B)
'Á': ansi_char=STRING(193B)
'Â': ansi_char=STRING(194B)
'Ã': ansi_char=STRING(195B)
'Ä': ansi_char=STRING(196B)
'Å': ansi_char=STRING(197B)
'Æ': ansi_char=STRING(198B)
'Ç': ansi_char=STRING(199B)
'È': ansi_char=STRING(200B)
'É': ansi_char=STRING(201B)
'Ê': ansi_char=STRING(202B)
'Ë': ansi_char=STRING(203B)
'Ì': ansi_char=STRING(204B)
'Í': ansi_char=STRING(205B)
'Î': ansi_char=STRING(206B)
'Ï': ansi_char=STRING(207B)
'Ð': ansi_char=STRING(208B)
'Ñ': ansi_char=STRING(209B)
'Ò': ansi_char=STRING(210B)
'Ó': ansi_char=STRING(211B)
'Ô': ansi_char=STRING(212B)
'Õ': ansi_char=STRING(213B)
'Ö': ansi_char=STRING(214B)
'×': ansi_char=STRING(215B)
'Ø': ansi_char=STRING(216B)
'Ù': ansi_char=STRING(217B)
'Ú': ansi_char=STRING(218B)
'Û': ansi_char=STRING(219B)
'Ü': ansi_char=STRING(220B)
'Ý': ansi_char=STRING(221B)
'Þ': ansi_char=STRING(222B)
'ß': ansi_char=STRING(223B)
'à': ansi_char=STRING(224B)
'á': ansi_char=STRING(225B)
'â': ansi_char=STRING(226B)
'ã': ansi_char=STRING(227B)
'ä': ansi_char=STRING(228B)
'å': ansi_char=STRING(229B)
'æ': ansi_char=STRING(230B)
'ç': ansi_char=STRING(231B)
'è': ansi_char=STRING(232B)
'é': ansi_char=STRING(233B)
'ê': ansi_char=STRING(234B)
'ë': ansi_char=STRING(235B)
'ì': ansi_char=STRING(236B)
'í': ansi_char=STRING(237B)
'î': ansi_char=STRING(238B)
'ï': ansi_char=STRING(239B)
'ð': ansi_char=STRING(240B)
'ñ': ansi_char=STRING(241B)
'ò': ansi_char=STRING(242B)
'ó': ansi_char=STRING(243B)
'ô': ansi_char=STRING(244B)
'õ': ansi_char=STRING(245B)
'ö': ansi_char=STRING(246B)
'÷': ansi_char=STRING(247B)
'ø': ansi_char=STRING(248B)
'ù': ansi_char=STRING(249B)
'ú': ansi_char=STRING(250B)
'û': ansi_char=STRING(251B)
'ü': ansi_char=STRING(252B)
'ý': ansi_char=STRING(253B)
'þ': ansi_char=STRING(254B)
'ÿ': ansi_char=STRING(255B)

ELSE: ansi_char=char_in

END

RETURN, ansi_char
END

Report message to a moderator

[Message index]
 
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Read Message
Previous Topic: Font List
Next Topic: How come? Weird subarray problem...

-=] Back to Top [=-
[ Syndicate this forum (XML) ] [ RSS ] [ PDF ]

Current Time: Fri Oct 10 14:15:31 PDT 2025

Total time taken to generate the page: 0.31890 seconds
.:: Contact :: Home ::.

Powered by: FUDforum 3.0.7.
Copyright ©2001-2013 FUDforum Bulletin Board Software