14 Mar 08 14:50
Converteste caracterele de forma &#nr; in caracter ASCII
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_textNu merge pentru texte care contin ';' si nu face parte din grup .
Offline
17 Mar 08 10:46
Re: Converteste caracterele de forma &#nr; in caracter ASCII
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_text2Offline
» Failure is not an option, it's built-in
Scuze de offtopic
38.103.63.61 <- te-am prins
