how to clean a string from unwanted chars?

[Chimp 715]

hello to all
how can I clean a string from unwanted chars and keep only chars belonging in the range from asc(32) to asc(127) inclusive and replace all other chars that falls outside that range with another char (a space chr(32) for example) in one shot, using a regular expression? (or whatever else but looping...)
example the string:

"Hello ☺ «everybody» Love ♥ and peace"

should result as

"Hello   everybody  Love   and peace"

thanks  on advance for helping

[Danp2 909]

Try this --

#include <MsgBoxConstants.au3>

Test1()

; This example demonstrates a basic replacement.  It replaces the vowels aeiou
; with the @ character.
Func Test1()
    Local $sInput = "Hello ☺ «everybody» Love ♥ and peace"
    Local $sOutput = StringRegExpReplace($sInput, "[^\x00-\x7F]+", " ")
    Display($sInput, $sOutput)
EndFunc   ;==>Test1

Func Display($sInput, $sOutput)
    ; Format the output.
    Local $sMsg = StringFormat("Input:\t%s\n\nOutput:\t%s", $sInput, $sOutput)
    MsgBox($MB_SYSTEMMODAL, "Results", $sMsg)
EndFunc   ;==>Display

 

[Chimp 715]

👌It seems to work well
Thanks a lot Dan

[Chimp 715]

@Danp2, hemmm, sorry, I talked too quickly, that pattern has issues, it doesn't remoove chars below chr(32) and above chr(127)...

try this to see the issue:

#include <MsgBoxConstants.au3>

Test1()

; This example demonstrates a basic replacement.  It replaces the vowels aeiou
; with the @ character.
Func Test1()
    Local $sInput = "Hello ☺ " & @CR & "«everybody» Love ♥ " & ChrW(512) & " and peace"
    Local $sOutput = StringRegExpReplace($sInput, "[^\x00-\x7F]+", " ")
    Display($sInput, $sOutput)
EndFunc   ;==>Test1

Func Display($sInput, $sOutput)
    ; Format the output.
    Local $sMsg = StringFormat("Input:\t%s\n\nOutput:\t%s", $sInput, $sOutput)
    MsgBox($MB_SYSTEMMODAL, "Results", $sMsg)
EndFunc   ;==>Display

 

Edited July 26, 2019 by Chimp
it's ok for chars above 127

[Danp2 909]

So... just modify it accordingly. Try this instead --

Local $sOutput = StringRegExpReplace($sInput, "[^\x20-\x7F]+", " ")

 

[Chimp 715]

ah yes, sorry, it was so easy to correct it  ... I was almost near to correct it myself too. Thanks again

(damn regexp )