※ 引述《chweng ()》之铭言： : 附上程式码如下，但是因为限於我对 AutoHotKey 的指令了解不算深，加以 : 思考逻辑上可能有一些盲点，所以程式也许不是那麽漂亮、想法不够周延， : 或是还有可以更加改进之处。这些都欢迎大家多多指教，或是提供更棒的想 : 法一起讨论。 : 感谢大家耐心收看。 如果一定要从剪贴簿取得资料来源，我会比较建议用 AutoIt 写，可以直接处理 Unicode 不必考虑双位元字的问题，范例如下 ---------------->8---------------->8---------------- 请沿此线剪下 ---- $ClipText = StringSplit(StringReplace(ClipGet(), @CR, ""), @LF) WinActivate("[CLASS:PCMan]") WinWaitActive("[CLASS:PCMan]") For $i = 1 To $ClipText[0] $ClipTextLine = StringSplit($ClipText[$i], "") For $j = 1 To $ClipTextLine[0] If $ClipTextLine[$j] = Chr(0x1B) Then Send("^u") ; 送出 Esc 控制码 Else ClipPut($ClipTextLine[$j]) Send("!p") ; 贴上 EndIf Sleep(Random(500, 1500, 1)) Next Send("{ENTER}") Sleep(100) Next MsgBox(0, "", "贴文完成") ---------------->8---------------->8---------------- 请沿此线剪下 ---- 防呆就略过不写了，以上的 Script 可以支援多国语言以及 ANSI 控制码，唯独 双色字的部份因为 Unicode 格式无法储存分开的双位元字，所以程式没有办法 直接支援，必须另外标记处理这些部份，不过与其如此，还不如直接处理 ANSI 档案比较快 (虽说 ANSI + BIG5 扩充字集是违反时代潮流 囧) 因此我用 AutoHotkey 另外写了个支援双色字的贴文程式，稍後会在 EZsoft 板 释出，有需要的人不妨试试，若有任何问题也欢迎回报 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 60.248.159.124