How to transform like "€ " this code into character?

[pubuntu]

AHK provides the function :

Transform, HTML, String [, Flags]

can transform "€" this code into " €"
But I want to reverse back, and I not find the corresponding help.

I make a function to transform it,but it work Poor efficiency。Excuse me what method to solve it?

Code: Select all

unicode2ascii(str) {
    Loop {
        pos:=RegExMatch(str, "Om)&#(\d+);", findit)
        a:=findit.Pos()
        b:=Chr(findit.Value(1))
        str:=RegExReplace(str, "&#\d+;", b, , 1)
        if pos=0
            break
    }
    return str
}

How to transform like "€ " this code into character?

[Ronins]

Code: Select all

Chr(8364)

would get the job done.. It would work only on unicode version though..

Code: Select all

Transform, OutVar, HTML, £, 2
MsgBox, % OutVar

MsgBox, % Chr(SubStr(OutVar, 3, StrLen(OutVar)-3))

[pubuntu]

Code: Select all

Chr(8364)

would get the job done.. It would work only on unicode version though..

Code: Select all

Transform, OutVar, HTML, £, 2
MsgBox, % OutVar

MsgBox, % Chr(SubStr(OutVar, 3, StrLen(OutVar)-3))

You code can word ,But it can translate only a charcte.I have a file mixed English letters and Chinese 。How to do .

[Ronins]

well, there are many ways to take care of that.. One can be to check out for Asc range
Other can be to check strLen() as regular english characters will have 1 length as they wont be transformed

Code: Select all

Char:= "ي"
;~ Char := "z"
Transform, Outvar, HTML, %Char%, 2
MsgBox, % OutVar
;~ if OutVar is not alpha
if(StrLen(OutVar)>1)
	BackChar := Chr((SubStr(OutVar, 3, StrLen(OutVar)-3)))
else
	BackChar := OutVar
MsgBox, % BackChar

[pubuntu]

well, there are many ways to take care of that.. One can be to check out for Asc range
Other can be to check strLen() as regular english characters will have 1 length as they wont be transformed

Code: Select all

Char:= "ي"
;~ Char := "z"
Transform, Outvar, HTML, %Char%, 2
MsgBox, % OutVar
;~ if OutVar is not alpha
if(StrLen(OutVar)>1)
	BackChar := Chr((SubStr(OutVar, 3, StrLen(OutVar)-3)))
else
	BackChar := OutVar
MsgBox, % BackChar

I have thousands of files , the content is like "ch 化粧品ch ch ch ch 通販"
How to construct a function to convert a string?

[LinearSpoon]

I don't know if this is the most efficient way, but it's simple enough...

Code: Select all

test =
(Join<br>
ch &#21270;&#31911;&#21697;ch ch ch ch &#36890;&#36009;
&#8364;
)

Msgbox % Convert(test)

Convert(strHTML)
{
  doc := ComObjCreate("HTMLfile")
  doc.write(strHTML)
  return doc.body.innerText
}

[Guest]

Thank you so much .it word very well.

[pubuntu]

I don't know if this is the most efficient way, but it's simple enough...

Code: Select all

test =
(Join<br>
ch &#21270;&#31911;&#21697;ch ch ch ch &#36890;&#36009;
&#8364;
)

Msgbox % Convert(test)

Convert(strHTML)
{
  doc := ComObjCreate("HTMLfile")
  doc.write(strHTML)
  return doc.body.innerText
}

thank you ! It runs faster than brfore.

[nimda]

There are a few established libraries for this.

HTML_Decode: http://www.autohotkey.com/board/topic/6 ... blunicode/

unHTML: http://www.autohotkey.com/board/topic/3 ... en-source/

unHTM: http://www.autohotkey.com/board/topic/4 ... g-updated/