example.ah2

; 反格式化JSON字符串
^j:: {
    A_Clipboard := ""
    Send "^c"
    ClipWait
    deprettify()
    Send "^v"
}

PJ_PATH := "json_prettier.dll"
JsonPrettier := DllCall("LoadLibrary", "Str", PJ_PATH, "Ptr")
prepare_proc := DllCall("GetProcAddress", "Ptr", JsonPrettier, "AStr", "prepare", "Ptr")
prettify_proc := DllCall("GetProcAddress", "Ptr", JsonPrettier, "AStr", "prettify", "Ptr")
deprettify_proc := DllCall("GetProcAddress", "Ptr", JsonPrettier, "AStr", "deprettify", "Ptr")

OnClipboardChange clip_changed

clip_changed(clip_type) {
    if 1 = clip_type {
        prettify()
    }
}

prettify() {
    global prettify_proc
    str := A_Clipboard
    str := StrReplace(str, '`r`n')
    str := StrReplace(str, '`t')
    str := StrReplace(str, '\"', '"')
    str := StrReplace(str, '\\', '\')
    required_bytes := StrPut(str, "UTF-8")
    json_utf8 := Buffer(required_bytes, 0)
    StrPut(str, json_utf8, "UTF-8")
    ran := DllCall(prepare_proc, "Ptr", json_utf8, "Int")
    if ran > required_bytes {
        ToolTip "prettify json..."
        pretty_json_utf8 := Buffer(ran, 0)
        DllCall(prettify_proc, "Ptr", json_utf8, "Ptr", pretty_json_utf8, "Int")
        A_Clipboard := StrGet(pretty_json_utf8, ran, "UTF-8")
        ToolTip ; Turn off the tip.
    }
}

deprettify() {
    global deprettify_proc
    str := A_Clipboard
    required_bytes := StrPut(str, "UTF-8")
    json_utf8 := Buffer(required_bytes, 0)
    StrPut(str, json_utf8, "UTF-8")
    depretty_json_utf8 := Buffer(required_bytes, 0)
    ToolTip "deprettify json..."
    ran := DllCall(deprettify_proc, "Ptr", json_utf8, "Ptr", depretty_json_utf8, "Int")
    SendText StrGet(depretty_json_utf8, ran, "UTF-8")
    ToolTip ; Turn off the tip.
}