注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

翱翔的板儿砖

——燃烧吧,小宇宙!

 
 
 

日志

 
 

【AU3】 自动生成“原文引用”  

2008-11-06 13:07:56|  分类: 计算机 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
阅读本文前,请先做好心理准备,因为本文的工具极不具通用性,对于 AutoIt 来说,也没利用到什么特别的技术,无非就是吧两个字符串结合。

之前在饭否里发类似“《XXXXX》的评论”、“《XX:XXXXXX》的原文引用”是,悠哉还问我是怎么弄的,以为有什么特殊的工具,当时的确没有,只是手工输入。

随着记录的评论、原文的增多,开始准备偷懒了,于是用 AutoIt 做了这么个小东西,本来预计这两天发布一个小东西呢,不过……晚上的时候有些事,暂时先用它顶上吧。

【AU3】 自动生成“原文引用” - 李二嫂的猪 - 翱翔的板儿砖
使用的时候输入标题和内容,就会吧合成好的文本复制到剪贴板。如果超过了饭否默认的140个字,会弹出对话框提示。

生成的内容类似:
《梦离柯:公安局政委嫁女也要普天同庆?》原文引用:他们胆敢占用公安局大院大张旗鼓地操办一场“史上最牛婚礼”,说明我们在党员干部的作风和法律意识的教育、对违反相关法律法规的干部的惩处上任重而道远!

源码如下:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)

$formMain = GUICreate("生成原文引用", 494, 234, 193, 125, BitOR($WS_CAPTION, $WS_POPUP, $WS_BORDER, $WS_CLIPSIBLINGS), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUISetOnEvent($GUI_EVENT_CLOSE, "formMainClose")
$Label1 = GUICtrlCreateLabel("标题", 16, 24, 28, 13)
$iptTitle = GUICtrlCreateInput("", 56, 20, 329, 21)
$Label2 = GUICtrlCreateLabel("内容", 16, 56, 28, 13)
$edtMemo = GUICtrlCreateEdit("", 56, 56, 329, 129)
$rdComment = GUICtrlCreateRadio("评论", 56, 200, 49, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$rdQuote = GUICtrlCreateRadio("原文引用", 104, 200, 113, 17)
$btnCopyToClipboard = GUICtrlCreateButton("复制", 400, 24, 75, 25, 0)
GUICtrlSetOnEvent(-1, "btnCopyToClipboardClick")
$btnExit = GUICtrlCreateButton("退出", 400, 56, 75, 25, 0)
GUICtrlSetOnEvent(-1, "btnExitClick")
GUISetState(@SW_SHOW)

While 1
    Sleep(100)
WEnd

Func btnCopyToClipboardClick()
    $Title = GUICtrlRead($iptTitle)
    $Comment = GUICtrlRead($edtMemo)
    $Quote = (GUICtrlRead($rdQuote) = $GUI_CHECKED)
    $WholeText = ""
    If $Quote Then
        $WholeText = "《" & $Title & "》原文引用:" & $Comment
    Else
        $WholeText = "《" & $Title & "》的评论:" & $Comment
    EndIf
    ClipPut($WholeText)
    GUICtrlSetData($iptTitle, "")
    GUICtrlSetData($edtMemo, "")
    $Len = StringLen($WholeText)
    If $Len > 140 Then MsgBox(48, "警告", "当前字数为:" & $Len & ",超过了默认限定(140)" & $Len - 140 & "个字")
EndFunc   ;==>btnCopyToClipboardClick
Func btnExitClick()
    Exit
EndFunc   ;==>btnExitClick
Func formMainClose()
    Exit
EndFunc   ;==>formMainClose


源文件及编译好的程序,请点击这里下载。(此时的 Google Sites 无论是 TW 还是 FF 都上传不了文件,过后再试)
  评论这张
 
阅读(445)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017