Help conver string from Uni to Character

[ngocthang26]

Hi All

I have problem How do conver string from Unicode to Character

Original text

?q=Kim+lo%E1%BA%A1i

Conver right

?q=Kim+loại

I try method google but don't working.

This website can work. But i hope can process direct Autoit.

https://r12a.github.io/app-conversion/

Thanks so much All

[Musashi]

1 hour ago, ngocthang26 said:

Original text :

?q=Kim+lo%E1%BA%A1i

Converted :

?q=Kim+loại

 

Try this :

Global $sOrig, $sConv
$sOrig = "?q=Kim+lo%E1%BA%A1i"
$sConv = _Decode($sOrig)
MsgBox(BitOR(4096,64), "Conversion :", "Original  " & $sOrig & @CRLF & "Converted  " & $sConv)

Func _Decode($sData)
    Local $aData = StringSplit($sData,"%")
    $sData = ""
    For $i = 2 To $aData[0]
        $aData[1] &= Chr(Dec(StringLeft($aData[$i],2))) & StringTrimLeft($aData[$i],2)
    Next
    Return BinaryToString(StringToBinary($aData[1],1),4)
EndFunc

@ngocthang26

EDIT : Show result in a MsgBox (not as ConsoleWrites)

Edited July 3, 2020 by Musashi

[ngocthang26]

2 hours ago, Musashi said:

Try this :

Global $sOrig, $sConv
$sOrig = "?q=Kim+lo%E1%BA%A1i"
$sConv = _Decode($sOrig)
MsgBox(BitOR(4096,64), "Conversion :", "Original  " & $sOrig & @CRLF & "Converted  " & $sConv)

Func _Decode($sData)
    Local $aData = StringSplit($sData,"%")
    $sData = ""
    For $i = 2 To $aData[0]
        $aData[1] &= Chr(Dec(StringLeft($aData[$i],2))) & StringTrimLeft($aData[$i],2)
    Next
    Return BinaryToString(StringToBinary($aData[1],1),4)
EndFunc

@ngocthang26

EDIT : Show result in a MsgBox (not as ConsoleWrites)

Working. Thanks you so much. ❤️ 

[Malkey]

Another example.

Local $sOrig = '?q=Kim+lo%E1%BA%A1i'

MsgBox(0, "Conversion : ", "Original text: " & $sOrig & @CRLF & _
        "Converted:     " & BinaryToString(Binary(Execute('"' & StringRegExpReplace($sOrig, "(?i)%([0-9a-f]{2})", '" & Chr(0x${1})&"') & '"')), 4))

; Returns:-  ?q=Kim+loại