[Solved] Regular expression Unicode to ASCII

[Trong]

 

mikell

;Global $sCharAllowed = ";!#$%&'()+-,.0123456789=@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{ }~"

Local $uStringIN = "頹-衙-浳-浤-搰-橱-煪๏๐๑๒๖D๚๛ẀẁẂẴẵẶặẸẹẺẻỈỉỊAịỌÆ¢™®¯ÌÍÎÏÐÑ×ØÙòóôŘřŢţŷOŸǾǿ₪₫€℅l№™Ωe⅛∑-•v8∫˜≠==□ּׂאַאָאּבּVגּדּהּוּזטּיּךּכשּתּוֹבֿכֿפֿAﭏﭽﮊﮋﮏﮐﮑﮒﮓﮔﺅﺆﺇTﺈﺉﺊﺋﺛﺜﺝﺮﺯﺰﺱﻐRﻑﻒﻓﻔﻕﻟﻠﻡﻢﻣﻤOﻥﻦﻧﻨﻰﻱﻲﻳﻴﻵﻶNﻷﻸﻹﻺﻻﻼْ%-㍱G-煱-둻-睤-㌹-"

Local $lStringOUT = StringRegExpReplace($uStringIN, '[[:^print:]]', "_")

ConsoleWrite($lStringOUT&@CRLF)

jguinch

Global $sCharAllowed = "\w;!#$%&'\(\)+,-.=@\[\]^`{ }~"

Local $uStringIN = "頹-衙-浳-浤-搰-橱-煪๏๐๑๒๖D๚๛ẀẁẂẴẵẶặẸẹẺẻỈỉỊAịỌÆ¢™®¯ÌÍÎÏÐÑ×ØÙòóôŘřŢţŷOŸǾǿ₪₫€℅l№™Ωe⅛∑-•v8∫˜≠==□ּׂאַאָאּבּVגּדּהּוּזטּיּךּכשּתּוֹבֿכֿפֿAﭏﭽﮊﮋﮏﮐﮑﮒﮓﮔﺅﺆﺇTﺈﺉﺊﺋﺛﺜﺝﺮﺯﺰﺱﻐRﻑﻒﻓﻔﻕﻟﻠﻡﻢﻣﻤOﻥﻦﻧﻨﻰﻱﻲﻳﻴﻵﻶNﻷﻸﻹﻺﻻﻼْ%-㍱G-煱-둻-睤-㌹-"
$replace = StringRegExpReplace($uStringIN, "[^" & $sCharAllowed& "]", "_")
MsgBox(0, "", @CRLF & $replace & @CRLF)

 

Edited November 19, 2015 by Trong

[mikell]

Not tested but this should work

$lStringOUT = StringRegExpReplace($uStringIN, '[[:^print:]]', "_")

 

[jguinch]

or this ?

Global $sCharAllowed = "\w;!#$%&'\(\)+,-.=@\[\]^`{}~"

Local $uStringIN = "頹-衙-浳-浤-搰-橱-煪๏๐๑๒๖๚๛ẀẁẂẴẵẶặẸẹẺẻỈỉỊịỌÆ¢™®¯ÌÍÎÏÐÑ×ØÙòóôŘřŢţŷŸǾǿ₪₫€℅l№™Ωe⅛∑-/•v8∫˜≠==□ּׂאַאָאּבּגּדּהּוּזטּיּךּכשּתּוֹבֿכֿפֿﭏﭽﮊﮋﮏﮐﮑﮒﮓﮔﺅﺆﺇﺈﺉﺊﺋﺛﺜﺝﺮﺯﺰﺱﻐﻑﻒﻓﻔﻕﻟﻠﻡﻢﻣﻤﻥﻦﻧﻨﻰﻱﻲﻳﻴﻵﻶﻷﻸﻹﻺﻻﻼْ%-㍱-煱-둻-睤-㌹-"

$replace = StringRegExpReplace($uStringIN, "[^" & $sCharAllowed& "]", "_")

MsgBox(0, "", @CRLF & $replace & @CRLF)

 

Edited November 19, 2015 by jguinch

[Trong]

or this ?

Global $sCharAllowed = "\w;!#$%&'\(\)+,-.=@\[\]^`{}~"

Local $uStringIN = "頹-衙-浳-浤-搰-橱-煪๏๐๑๒๖๚๛ẀẁẂẴẵẶặẸẹẺẻỈỉỊịỌÆ¢™®¯ÌÍÎÏÐÑ×ØÙòóôŘřŢţŷŸǾǿ₪₫€℅l№™Ωe⅛∑-/•v8∫˜≠==□ּׂאַאָאּבּגּדּהּוּזטּיּךּכשּתּוֹבֿכֿפֿﭏﭽﮊﮋﮏﮐﮑﮒﮓﮔﺅﺆﺇﺈﺉﺊﺋﺛﺜﺝﺮﺯﺰﺱﻐﻑﻒﻓﻔﻕﻟﻠﻡﻢﻣﻤﻥﻦﻧﻨﻰﻱﻲﻳﻴﻵﻶﻷﻸﻹﻺﻻﻼْ%-㍱-煱-둻-睤-㌹-"

$replace = StringRegExpReplace($uStringIN, "[" & $sCharAllowed& "]", "_")

MsgBox(0, "", @CRLF & $replace & @CRLF)

 

Ouput=頹-衙-浳-浤-搰-橱-煪๏๐๑๒๖๚๛ẀẁẂẴẵẶặẸẹẺẻỈỉỊịỌÆ¢™®¯ÌÍÎÏÐÑ×ØÙòóôŘřŢţŷŸǾǿ₪₫€℅l№™Ωe⅛∑-/•v8∫˜≠==□ּׂאַאָאּבּגּדּהּוּזטּיּךּכשּתּוֹבֿכֿפֿﭏﭽﮊﮋﮏﮐﮑﮒﮓﮔﺅﺆﺇﺈﺉﺊﺋﺛﺜﺝﺮﺯﺰﺱﻐﻑﻒﻓﻔﻕﻟﻠﻡﻢﻣﻤﻥﻦﻧﻨﻰﻱﻲﻳﻴﻵﻶﻷﻸﻹﻺﻻﻼْ%-㍱-煱-둻-睤-㌹-

@jguinch something wrong!

 

[jguinch]

Sorry, the ^ was missing. Try now, I edited my code