Converteste caracterele de forma &#nr; in caracter ASCII

[Smash]

Cod:

Func curata_text($text)
Local $inceput, $sfarsit, $grup, $caracter_cou
While StringInStr($text, '&#') <> 0
$inceput = StringInStr($text, '&#') + 2
$sfarsit = StringInStr($text, ';')
$grup = StringMid($text, $inceput, $sfarsit - $inceput)
$caracter_cou = Chr($grup)
$text = StringReplace($text, "&#" & $grup & ";", $caracter_cou)
WEnd
Return $text
EndFunc   ;==>curata_text

Nu merge pentru texte care contin ';' si nu face parte din grup .

[Smash]

Versiunea imbunatatita care merge si cu texte care contin ';'.

Cod:

;===============================================================================
;
; Nume functie:        curata_text2()
; Descriere:           Converteste codificarea HTMl de forma &#nr; in caracter
;                          ASCII
; Parametrii:          $textul - Textul care trebuie convertit
; Valorile returnate:  string - textul convertit
; Autor:               Neagu Ionut (aka Smash)
;
;===============================================================================
Func curata_text2($text)
While StringInStr($text, "&#") <> 0
$pozitie = StringInStr($text, "&#")
If StringIsDigit(StringMid($text, $pozitie + 2, 3)) And StringMid($text, $pozitie + 5, 1) = ';' Then
$text = StringReplace($text, StringMid($text, $pozitie, 6), Chr(StringMid($text, $pozitie + 2, 3)))
ElseIf StringIsDigit(StringMid($text, $pozitie + 2, 2)) And StringMid($text, $pozitie + 4, 1) = ';' Then
$text = StringReplace($text, StringMid($text, $pozitie, 5), Chr(StringMid($text, $pozitie + 2, 2)))
EndIf
WEnd
Return $text
EndFunc   ;==>curata_text2

[SkullAds]