自己以前搞的，这几天又加了点功能，试着通过Google日历来发天气预报短信。
东西在这：
已经在用了，每天17点就会给我的手机发个天气预报的短信提醒了。
继续阅读
【实验】Word批量重命名VBA代码
朋友有个问题找我帮忙，说是要把一大堆的Word文件按Word的标题（也可以说是Word文件内容的第一行了）重命名。呵呵，文件太多了，人力做太费时了，我就帮帮忙了。
看代码吧，是VBA的。
继续阅读
【实验】Excel 删除重复行VBA代码
一个朋友找我看看能不能用程序把Excel里的重复行删除下，呵呵，看VBA代码吧。
Option Explicit Sub delSameRows() '删除某一列中相同的行 '此例为 先手动按B列排序，然后用此代码找到B列中相同的值再删除整行 Dim i As Long, j As Long Dim startRows As Long, endRows As Long '起止行数 startRows = 2 endRows = 38006 For i = startRows To endRows For j = i + 1 To endRows If Range("B" & j).Value = Range("B" & i).Value Then 'Set Rng = Cells(j, 2) 'Rng.Interior.ColorIndex = 6 Rows(j).Delete j = j - 1 endRows = endRows - 1 Else Exit For End If Next Next MsgBox "已完成!剩余行数 " & endRows End Sub |
MySQL里IN子查询使用LIMIT
如题，本来可以用一条SQL语句完成的为什么非得拆开呢？
本来想这样写的
UPDATE `t1` SET `recommend` = 1 WHERE `id` IN( SELECT `id` FROM `t1` WHERE `userid` = 176 ORDER BY `id` LIMIT 5) |
却提示This version of MySQL doesn’t yet support ‘LIMIT & IN/ALL/ANY/SOME subquery’
不让这么用，那么再加一层呢？
UPDATE `t1` SET `recommend` = 1 WHERE `id` IN( SELECT * FROM ( SELECT `id` FROM `t1` WHERE `userid` = 176 ORDER BY `id` LIMIT 5) AS t2) |
居然成功了？？？
【原创】语音命令
一直看小说，但又懒得动手翻页，无意间在网上发现一段VBS代码，可以实现语音命令，可惜它是用脚本和XML共同设置命令的，感觉很繁琐，于是搞了大半宿弄出这么个东西来。
于是乎，看小说时就可以用说的来控制浏览了，呵呵，感觉很不错。有兴趣的可以下来玩玩。
条件：安装了完整版（可能有些精简过的系统不完整）的Office 2003以上版本或者安装了Microsoft Speech SDK 5.1。
如果识别不佳，可到控制面板里的语音去训练下就可以了，如果实在识别不出来那就改下口令。Rule.ini文件就是语音规则文件，里面有详细的说明，应该不难。
这是语音规则文件内容
;语音命令规则文件 ; ;区段名(即[]内的字符)不可更改 ;每行一条规则 口令=命令 ;可用分号做注释，但要单独一行 ; ;系统命令，由脚本内置，只能修改口令 [System] ;必需，否则无法退出 结束命令=结束命令 今天几号=日期 几点了=时间 ; ;和脚本对话 [Talk] 说话=我在 ; ;启动程序 [Command] 记事本=notepad ; ;模拟发送按键 具体的可上网找 VBS SendKeys 按键说明 [KeyBoard] 刷新={F5} 关闭=%{F4} 上一页={PGUP} 下一页={PGDN} 顶部={HOME} 底部={END} |
附件：语音命令
如果安装了完整版（可能有些精简过的系统不完整）的Office 2003以上版本就不需要以下文件了。
Microsoft Speech SDK 5.1
下载地址：
http://www.microsoft.com/downloads/details.aspx?FamilyId=5E86EC97-40A7-453F-B0EE-6583171B4530&displaylang=en
需要安装如下文件
SpeechSDK51.exe
SpeechSDK51LangPack.exe
受教了！呵呵！