proxy
12-03-2009, 03:16
Подскажите, а есьт ли скриптик замены entities и подобного, к примеру:
▬на ▬
на пробел
! на знак !
решение такое навоялось...
Func _Replace_Entities($sString)
Local $aTemp
$aTemp = StringRegExp($sString, '.*&#(\d+);.*', 3)
If IsArray($aTemp) Then
For $n=0 To UBound($aTemp[0] & '=' & ChrW($aTemp[$n]))
$sString = StringReplace($sString, '&#' & $aTemp[$n] & ';', ChrW($aTemp[$n]))
Next
EndIf
$sString = StringReplace($sString, ' ', ' ')
$sString = StringReplace($sString, '"', '"')
$sString = StringReplace($sString, '<', '<')
$sString = StringReplace($sString, '>', '>')
$sString = StringReplace($sString, '&', '&')
Return $sString
EndFunc
но ChrW обрабатывает только от 0 до 255, как быть если Chrw значение 9644?
вот тут и в других таких же:
StringReplace($sString, '&', '&')
вместо 1-го апперсанта необходимо вставить: &
другие:
"
<
>
&
▬на ▬
на пробел
! на знак !
решение такое навоялось...
Func _Replace_Entities($sString)
Local $aTemp
$aTemp = StringRegExp($sString, '.*&#(\d+);.*', 3)
If IsArray($aTemp) Then
For $n=0 To UBound($aTemp[0] & '=' & ChrW($aTemp[$n]))
$sString = StringReplace($sString, '&#' & $aTemp[$n] & ';', ChrW($aTemp[$n]))
Next
EndIf
$sString = StringReplace($sString, ' ', ' ')
$sString = StringReplace($sString, '"', '"')
$sString = StringReplace($sString, '<', '<')
$sString = StringReplace($sString, '>', '>')
$sString = StringReplace($sString, '&', '&')
Return $sString
EndFunc
но ChrW обрабатывает только от 0 до 255, как быть если Chrw значение 9644?
вот тут и в других таких же:
StringReplace($sString, '&', '&')
вместо 1-го апперсанта необходимо вставить: &
другие:
"
<
>
&