大胃王剪贴板

在用AI中复制文字会将其格式一起复制.经常遇到同字不同样式,之前是先写在记事本上再复制,觉得太麻烦.遂用AotoIt写了如下的小工具.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=E:\myoutput\5\大胃王.kxf
$Form1 = GUICreate("大胃王剪贴板", 390, 360, 393, 200)

$Edit1 = GUICtrlCreateEdit("", 0, 8, 217, 48, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_HSCROLL))
GUICtrlSetData(-1, "")

$List1 = GUICtrlCreateList("", 0, 64, 217, 292)

$stradd = GUICtrlCreateButton("添加", 224, 8, 73, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋体-PUA")

$strpaste = GUICtrlCreateButton("粘贴", 304, 8, 65, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋体-PUA")

$copyselect = GUICtrlCreateButton("复制选中", 224, 104, 145, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋体-PUA")

$clear = GUICtrlCreateButton("清空列表", 224, 200, 145, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋体-PUA")

$exit = GUICtrlCreateButton("退出", 224, 312, 153, 33)
GUICtrlSetFont(-1, 12, 400, 0, "宋体-PUA")

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
            ;--代码开始
        Case $exit;退出
            Exit
        Case $stradd;添加数据
            If GUICtrlRead($Edit1) = "" Then
                MsgBox(0, "提示", "请先输入数据")
                GUICtrlSetState($Edit1, $GUI_FOCUS)
            Else
                GUICtrlSetData($List1, GUICtrlRead($Edit1));将文本框的数据传给列表框
                GUICtrlSetData($Edit1, "")
                GUICtrlSetState($Edit1, $GUI_FOCUS)
            EndIf            
        Case $strpaste;将剪贴板的数据传给文本框,同时对其设置焦点
            GUICtrlSetData($Edit1, ClipGet())
            GUICtrlSetState($Edit1, $GUI_FOCUS)
        Case $copyselect;将列表框内选中的项目传给剪贴板
            ClipPut(GUICtrlRead($List1))
        Case $clear;清空文本框和列表框内的数据
            GUICtrlSetData($List1, "")
            GUICtrlSetData($Edit1, "")
            GUICtrlSetState($Edit1, $GUI_FOCUS)
            ;--代码结束
    EndSwitch
WEnd