replace special characters?

[golfinhu]

hi people, i need a little help...

how can I replace words with accent on non-accented words?

i tryed this:

StringRegExpReplace("áéíóúãõâêîôû", "[áéíóúãõâêîôû]", "[aeiou]")

I do not know the correct expression, can someone help me please?

thanks!

Edited December 13, 2010 by golfinhu

[funkey]

$sResult = _StringReplaceAccend("áéíóúãõâêîôû")
ConsoleWrite($sResult & @CRLF)


Func _StringReplaceAccend($sString)
 Local $Pattern[5][2] = [["[áãâ]", "a"], ["[éê]", "e"], ["[íî]", "i"], ["[óõô]", "o"], ["[úû]", "u"]]
 For $i = 0 To 4
  $sString = StringRegExpReplace($sString, $Pattern[$i][0], $Pattern[$i][1])
 Next
 Return $sString
EndFunc

[golfinhu]

$sResult = _StringReplaceAccend("áéíóúãõâêîôû")
ConsoleWrite($sResult & @CRLF)


Func _StringReplaceAccend($sString)
 Local $Pattern[5][2] = [["[áãâ]", "a"], ["[éê]", "e"], ["[íî]", "i"], ["[óõô]", "o"], ["[úû]", "u"]]
 For $i = 0 To 4
  $sString = StringRegExpReplace($sString, $Pattern[$i][0], $Pattern[$i][1])
 Next
 Return $sString
EndFunc

thankyou so much!

[Zedna]

Func _StringReplaceAccend($sString)

This function can be handy!

Thanks for sharing.

But my question is:

Can it be done by only one RegExpReplace? 

Because for large texts this methos is non optimal for speed/memory resources.

Edited December 13, 2010 by Zedna

[Luviju]

Func _StringReplaceAccend($sString)

Local $Pattern[12][2] = [["[áâàäã]", "a"], ["[éêèë]", "e"], ["[íîìï]", "i"], ["[óôòöõ]", "o"], ["[úûùü]", "u"], ["[ÁÂÀÄÃ]", "A"], ["[ÉÊÈË]", "E"], ["[ÍÎÌÏ]", "I"], ["[ÓÔÒÖÕ]", "O"], ["[ÚÛÙÜ]", "U"], ["[ýÿ]", "y"], ["[ÝŸ]", "Y"]]

For $i = 0 To 11

$sString = StringRegExpReplace($sString, $Pattern[$i][0], $Pattern[$i][1])

Next

Return $sString

EndFunc

[dany]

But my question is:

Can it be done by only one RegExpReplace?

Because for large texts this methos is non optimal for speed/memory resources.

Sadly no. A regexp pattern for this case isn't that hard, it's the replacing that can't be grouped.

[mvk25]

I improved the function written by funkey by expanding the range of accented charachters it can replace.
 

$stest = "á|â|à|å|ä ð|é|ê|è|ë í|î|ì|ï ó|ô|ò|ø|õ|ö ú|û|ù|ü æ ç ß abc ABC 123"
$stest = _StringReplaceAccend($stest)
ConsoleWrite(@LF & @LF & "+>" & $stest & @LF & @LF)

Func _StringReplaceAccend($sString)
    Local $exp, $rep
    Local $pattern[27][2] = [ _
            ["[ÀÁÂÃÅÆ]", "A"],["[àáâãå]", "a"],["Ä", "Ae"],["[æä]", "ae"], _
            ["Þ", "B"],["þ", "b"], _
            ["Ç", "C"],["ç", "c"], _
            ["[ÈÉÊË]", "E"],["[èéêë]", "e"], _
            ["[ÌÍÎÏ]", "I"],["[ìíîï]", "i"], _
            ["Ñ", "N"],["ñ", "n"], _
            ["[ÒÓÔÕÖØ]", "O"],["[ðòóôõöø]", "o"], _
            ["[Š]", "S"],["[š]", "s"], _
            ["ß", "Ss"], _
            ["[ÙÚÛ]", "U"],["[ùúû]", "u"],["Ü", "Ue"],["ü", "ue"], _
            ["Ý", "Y"],["[ýýÿ]", "y"], _
            ["Ž", "Z"],["ž", "z"]]

    For $i = 0 To (UBound($pattern) - 1)
        $exp = $pattern[$i][0]
        If $exp = "" Then ContinueLoop
        $rep = $pattern[$i][1]

        $sString = StringRegExpReplace($sString, $exp, $rep)
        If @error == 0 And @extended > 0 Then
            ConsoleWrite($sString & @LF & "--> " & $exp & @LF)
        EndIf
    Next

    Return $sString
EndFunc   ;==>_StringReplaceAccend

[Bert]

[guinness]

mvk25,

You would have been better off posting in the Examples section and having a link to this thread.