Question

所以，目前我基本上是使用我发送给窗口浏览器的 Ctrl + C 复制文件夹的名称。复制的文本通常包含Unicode字符。然后，我正在使用这样的$data = ClipGet() Send($data)：

ClipGet()

不幸的是，?命令对Unicode不起作用，因此我得到了一堆Send()字符，而不是发送文件夹的正确标题。我真的不确定我应该对@text(...,label = Messages("cases.title"),...)填充Unicode字符的正确文本做些什么。

Answer 1

Clip完美无缺。发送（）是问题所在。

来自论坛

;======================================================
;
; Function Name:    _SendUnicode("string")
; Description:    Send a unicode or an ASCII string.
; Parameter(s):  $string is the string you want to send.
; Requirement(s):   String Input.
; Return Value(s):  None
; Author(s):        Robie Zhou (robiezhou@gmail.com)
;
;======================================================
Func _SendUnicode($string)
    Local $char
    Local $code

    For $i = 1 to StringLen($string)
        $char = StringMid($string, $i, 1)
        $code = Asc($char)
        If $code > 127 Then
            $code = $code * 256
            $i  = $i + 1
            $char = StringMid($string, $i, 1)
            $code = $code + Asc($char)
        EndIf
        Send("{ASC " & $code & "}")
    Next
EndFunc

使用ClipGet（）从剪贴板发送unicode字符

1 个答案: