StrLen2.ahk

#Include ..\MCode.ahk

/*
    Recupera la longitud de una cadea, en caracteres.
    Parámetros:
        String: La cadena UTF-16LE.
    Return:
        Devuelve el número de caracteres enteros en la cadena especificada en String.
    Ejemplo:
    MsgBox('StrLen: ' . StrLen(Chr(128064)) . '`nStrLen2: ' . StrLen2(Chr(128064)))
*/

StrLen2(String) {
    Static pUTF8Len
    Local Buffer, Size

    VarSetCapacity(Buffer, Size := StrPut(String, 'UTF-8') - 1)
    StrPut(String, &Buffer, 'UTF-8')

    If (!pUTF8Len)
        pUTF8Len := MCode('2,x86:i0wkBA+2EYTSdCSDwQExwIHiwAAAAIPCgA+VwoPBAQ+20gHQD7ZR/4TSdeTCBAAxwMIEAJCQkJCQkJCQkJCQkA==,x64:D7YRhNJ0KUiDwQExwA8fAIHiwAAAAIPCgA+VwkiDwQEPttIB0A+2Uf+E0nXjw2aQMcDDkJCQkJCQkJCQkJCQkA==')

    Return (DllCall(pUTF8Len, 'UPtr', &Buffer))

    /* CON AHK (mucho mas lento)
    Length := 0
    Loop (Size)
        If ((NumGet(Buffer, A_Index - 1, 'UChar') & 0xC0) != 0x80)
            ++Length

    Return (Length)
    */
}