HTMLencoded2Text ( )
Function stats
Average user rating
Support
FileMaker 10.0 +
Date posted
07 January 2009
Last updated
14 May 2009
Version
3.2 + View history
Recursive function
Yes
Function overview
Prototype
HTMLencoded2Text (
_text )
Parameters
_text
Description
Translates HTML encoded text into standard text
Examples
Sample input
HTMLencoded2Text ( "Smith&Wesson" )
or
HTMLencoded2Text ( "Smith&Wesson" )
or
HTMLencoded2Text ( "Smith&Wesson" )
Sample output
Smith&Wesson
Function code
/* HTMLencoded2Text ( _text )
by Fabrice Nordmann
v.1.2 - Mar 2009
- handles long unicodes
v.1.1.1 - Jan 2009
- added more HTML entities
v.1.1 - Jan 2009
- added the HTML entities
v.1.0 - Jan 2009
Translates HTML encoded text into standard text
example :
HTMLencoded2Text ( "Smith&Wesson" ) = "Smith&Wesson"
Requires FileMaker 10
Recursive function
*/
Let ( _text = Substitute ( _text
; [ "&" ; "&" ]
; [ "<" ; "<" ]
; [ ">" ; ">" ]
; [ """ ; "\"" ]
; [ "'" ; "'" ]
; [ " " ; " " ]
; [ "¡" ; "¡" ]
; [ "¢" ; "¢" ]
; [ "£" ; "£" ]
; [ "¤" ; "¤" ]
; [ "¥" ; "¥" ]
; [ "¦" ; "¦" ]
; [ "§" ; "§" ]
; [ "¨" ; "¨" ]
; [ "©" ; "©" ]
; [ "ª" ; "ª" ]
; [ "«" ; "«" ]
; [ "¬" ; "¬" ]
; [ "­" ; "" ]
; [ "®" ; "®" ]
; [ "¯" ; "¯" ]
; [ "°" ; "°" ]
; [ "±" ; "±" ]
; [ "²" ; "²" ]
; [ "³" ; "³" ]
; [ "´" ; "´" ]
; [ "µ" ; "µ" ]
; [ "·" ; "·" ]
; [ "¸" ; "¸" ]
; [ "¹" ; "¹" ]
; [ "º" ; "º" ]
; [ "»" ; "»" ]
; [ "¼" ; "¼" ]
; [ "½" ; "½" ]
; [ "¾" ; "¾" ]
; [ "¿" ; "¿" ]
; [ "À" ; "À" ]
; [ "Á" ; "Á" ]
; [ "Â" ; "Â" ]
; [ "Ã" ; "Ã" ]
; [ "Ä" ; "Ä" ]
; [ "Å" ; "Å" ]
; [ "Æ" ; "Æ" ]
; [ "Ç" ; "Ç" ]
; [ "È" ; "È" ]
; [ "É" ; "É" ]
; [ "Ê" ; "Ê" ]
; [ "Ë" ; "Ë" ]
; [ "Ì" ; "Ì" ]
; [ "Í" ; "Í" ]
; [ "Î" ; "Î" ]
; [ "Ï" ; "Ï" ]
; [ "Ð" ; "Ð" ]
; [ "Ñ" ; "Ñ" ]
; [ "Ò" ; "Ò" ]
; [ "Ó" ; "Ó" ]
; [ "Ô" ; "Ô" ]
; [ "Õ" ; "Õ" ]
; [ "Ö" ; "Ö" ]
; [ "×" ; "×" ]
; [ "Ø" ; "Ø" ]
; [ "Ù" ; "Ù" ]
; [ "Ú" ; "Ú" ]
; [ "Û" ; "Û" ]
; [ "Ü" ; "Ü" ]
; [ "Ý" ; "Ý" ]
; [ "Þ" ; "Þ" ]
; [ "ß" ; "ß" ]
; [ "à" ; "à" ]
; [ "á" ; "á" ]
; [ "â" ; "â" ]
; [ "ã" ; "ã" ]
; [ "ä" ; "ä" ]
; [ "å" ; "å" ]
; [ "æ" ; "æ" ]
; [ "ç" ; "ç" ]
; [ "è" ; "è" ]
; [ "é" ; "é" ]
; [ "ê" ; "ê" ]
; [ "ë" ; "ë" ]
; [ "ì" ; "ì" ]
; [ "í" ; "í" ]
; [ "î" ; "î" ]
; [ "ï" ; "ï" ]
; [ "ð" ; "ð" ]
; [ "ñ" ; "ñ" ]
; [ "ò" ; "ò" ]
; [ "ó" ; "ó" ]
; [ "ô" ; "ô" ]
; [ "õ" ; "õ" ]
; [ "ö" ; "ö" ]
; [ "÷" ; "÷" ]
; [ "ø" ; "ø" ]
; [ "ù" ; "ù" ]
; [ "ú" ; "ú" ]
; [ "û" ; "û" ]
; [ "ü" ; "ü" ]
; [ "ý" ; "ý" ]
; [ "þ" ; "þ" ]
; [ "ÿ" ; "ÿ" ]
; [ "≤" ; "≤" ]
; [ "≥ " ; "≥" ]
; [ "¶" ; "\¶" ]
; [ "“" ; "\"" ]
; [ "”" ; "\"" ]
)
;
Case ( not PatternCount ( _text ; "&#" ) ; _text
; Let ([
_pos = Position ( _text ; "&#" ; 1 ; 1 )
; _pos2 = Position ( _text ; ";" ; _pos ; 1 ) - _pos
; _word = Middle ( _text ; _pos ; _pos2 + 1 )
; _isCode = Length ( _word ) >= 4 and Length ( _word ) <= 8 and Substitute ( _word ; [ 0 ; "" ] ; [ 1 ; "" ] ; [ 2 ; "" ] ; [ 3 ; "" ] ; [ 4 ; "" ] ; [ 5 ; "" ] ; [ 6 ; "" ] ; [ 7 ; "" ] ; [ 8 ; "" ] ; [ 9 ; "" ]) = "&#;"
; _result = Left ( _text ; _pos - 1 ) & Case ( _isCode ; Char ( GetAsNumber ( _word )) ; "&" )
];
_result & HTMLencoded2Text ( Right ( _text ; Length ( _text ) - ( _pos + Case ( _isCode ; Length ( _word ) - 1 ))))
)
))
// ===================================
/*
This function is published on FileMaker Custom Functions
to check for updates and provide feedback and bug reports
please visit http://www.fmfunctions.com/fid/178
Prototype: HTMLencoded2Text( _text )
Function Author: Fabrice (http://www.fmfunctions.com/mid/37)
Last updated: 14 May 2009
Version: 3.2
*/
// ===================================
by Fabrice Nordmann
v.1.2 - Mar 2009
- handles long unicodes
v.1.1.1 - Jan 2009
- added more HTML entities
v.1.1 - Jan 2009
- added the HTML entities
v.1.0 - Jan 2009
Translates HTML encoded text into standard text
example :
HTMLencoded2Text ( "Smith&Wesson" ) = "Smith&Wesson"
Requires FileMaker 10
Recursive function
*/
Let ( _text = Substitute ( _text
; [ "&" ; "&" ]
; [ "<" ; "<" ]
; [ ">" ; ">" ]
; [ """ ; "\"" ]
; [ "'" ; "'" ]
; [ " " ; " " ]
; [ "¡" ; "¡" ]
; [ "¢" ; "¢" ]
; [ "£" ; "£" ]
; [ "¤" ; "¤" ]
; [ "¥" ; "¥" ]
; [ "¦" ; "¦" ]
; [ "§" ; "§" ]
; [ "¨" ; "¨" ]
; [ "©" ; "©" ]
; [ "ª" ; "ª" ]
; [ "«" ; "«" ]
; [ "¬" ; "¬" ]
; [ "­" ; "" ]
; [ "®" ; "®" ]
; [ "¯" ; "¯" ]
; [ "°" ; "°" ]
; [ "±" ; "±" ]
; [ "²" ; "²" ]
; [ "³" ; "³" ]
; [ "´" ; "´" ]
; [ "µ" ; "µ" ]
; [ "·" ; "·" ]
; [ "¸" ; "¸" ]
; [ "¹" ; "¹" ]
; [ "º" ; "º" ]
; [ "»" ; "»" ]
; [ "¼" ; "¼" ]
; [ "½" ; "½" ]
; [ "¾" ; "¾" ]
; [ "¿" ; "¿" ]
; [ "À" ; "À" ]
; [ "Á" ; "Á" ]
; [ "Â" ; "Â" ]
; [ "Ã" ; "Ã" ]
; [ "Ä" ; "Ä" ]
; [ "Å" ; "Å" ]
; [ "Æ" ; "Æ" ]
; [ "Ç" ; "Ç" ]
; [ "È" ; "È" ]
; [ "É" ; "É" ]
; [ "Ê" ; "Ê" ]
; [ "Ë" ; "Ë" ]
; [ "Ì" ; "Ì" ]
; [ "Í" ; "Í" ]
; [ "Î" ; "Î" ]
; [ "Ï" ; "Ï" ]
; [ "Ð" ; "Ð" ]
; [ "Ñ" ; "Ñ" ]
; [ "Ò" ; "Ò" ]
; [ "Ó" ; "Ó" ]
; [ "Ô" ; "Ô" ]
; [ "Õ" ; "Õ" ]
; [ "Ö" ; "Ö" ]
; [ "×" ; "×" ]
; [ "Ø" ; "Ø" ]
; [ "Ù" ; "Ù" ]
; [ "Ú" ; "Ú" ]
; [ "Û" ; "Û" ]
; [ "Ü" ; "Ü" ]
; [ "Ý" ; "Ý" ]
; [ "Þ" ; "Þ" ]
; [ "ß" ; "ß" ]
; [ "à" ; "à" ]
; [ "á" ; "á" ]
; [ "â" ; "â" ]
; [ "ã" ; "ã" ]
; [ "ä" ; "ä" ]
; [ "å" ; "å" ]
; [ "æ" ; "æ" ]
; [ "ç" ; "ç" ]
; [ "è" ; "è" ]
; [ "é" ; "é" ]
; [ "ê" ; "ê" ]
; [ "ë" ; "ë" ]
; [ "ì" ; "ì" ]
; [ "í" ; "í" ]
; [ "î" ; "î" ]
; [ "ï" ; "ï" ]
; [ "ð" ; "ð" ]
; [ "ñ" ; "ñ" ]
; [ "ò" ; "ò" ]
; [ "ó" ; "ó" ]
; [ "ô" ; "ô" ]
; [ "õ" ; "õ" ]
; [ "ö" ; "ö" ]
; [ "÷" ; "÷" ]
; [ "ø" ; "ø" ]
; [ "ù" ; "ù" ]
; [ "ú" ; "ú" ]
; [ "û" ; "û" ]
; [ "ü" ; "ü" ]
; [ "ý" ; "ý" ]
; [ "þ" ; "þ" ]
; [ "ÿ" ; "ÿ" ]
; [ "≤" ; "≤" ]
; [ "≥ " ; "≥" ]
; [ "¶" ; "\¶" ]
; [ "“" ; "\"" ]
; [ "”" ; "\"" ]
)
;
Case ( not PatternCount ( _text ; "&#" ) ; _text
; Let ([
_pos = Position ( _text ; "&#" ; 1 ; 1 )
; _pos2 = Position ( _text ; ";" ; _pos ; 1 ) - _pos
; _word = Middle ( _text ; _pos ; _pos2 + 1 )
; _isCode = Length ( _word ) >= 4 and Length ( _word ) <= 8 and Substitute ( _word ; [ 0 ; "" ] ; [ 1 ; "" ] ; [ 2 ; "" ] ; [ 3 ; "" ] ; [ 4 ; "" ] ; [ 5 ; "" ] ; [ 6 ; "" ] ; [ 7 ; "" ] ; [ 8 ; "" ] ; [ 9 ; "" ]) = "&#;"
; _result = Left ( _text ; _pos - 1 ) & Case ( _isCode ; Char ( GetAsNumber ( _word )) ; "&" )
];
_result & HTMLencoded2Text ( Right ( _text ; Length ( _text ) - ( _pos + Case ( _isCode ; Length ( _word ) - 1 ))))
)
))
// ===================================
/*
This function is published on FileMaker Custom Functions
to check for updates and provide feedback and bug reports
please visit http://www.fmfunctions.com/fid/178
Prototype: HTMLencoded2Text( _text )
Function Author: Fabrice (http://www.fmfunctions.com/mid/37)
Last updated: 14 May 2009
Version: 3.2
*/
// ===================================
Login or register to comment
Create a new account with fmcustomfunctions.com or login to post a comment.
Comments
03 May 2009
During an import, I found myself with those here who was not in your list
; [ "≤" ; "≤" ]
; [ "≥ " ; "≥" ]
; [ "¶" ; Citation ( "#|^|#¶#|^|#" ) ]
; [ "\"#|^|#" ; "" ]; [ "#|^|#\"" ; "" ]
; [ "“" ; "\"" ]
; [ "”" ; "\"" ]
in cazou
Thanks a lots for this one !
Agnès
(Edited by Agnès on 03/05/09 )