求一段随机显示消息的代码，学习一下

manlty · 发表于 2010-1-12 17:13:30

本帖最后由 manlty 于 2010-1-12 21:20 编辑

思路是这样。
脚本目录下的txt文本内容为：

★
我是一个兵，一个来自农村的兵
我思念家乡，但是祖国更需要我。

★
我是一个兵，一个想当将军的兵
我渴望战争，战争能检验一个军人的血性

★
我是一个兵，一个在部队里勤学苦练的兵
我常常想，如果是毛主席的年代，我一定是大家学习的榜样

★
我是一个兵，也就是一个兵

这个文本以★为标记，分成四段不同的话
怎么用一段代码实现在托盘图标那里（traytip)每10分钟随机地提示上面中的一段。

afan · 发表于 2010-1-12 17:45:53

回复 1# manlty

$Str = FileRead('a.txt')
$SR = StringSplit($Str, '★')
If @error Then Exit
While 1
        TrayTip('随机消息', $SR[Random(2, $SR[0], 1)], 10)
        Sleep(10000)
        TrayTip('', '', '')
        Sleep(50000) ;方便测试，这里为1分钟循环
WEnd

manlty · 发表于 2010-1-12 18:55:50

有一个问题，如果显示的时候要按照原文换行呢？

朱雅琼 · 发表于 2010-1-12 20:22:48

可以改用数组
用__FileReadToArray 读文本

manlty · 发表于 2010-1-12 21:19:21

解决了，版主的代码基本满足了，我发现txt文本如果回车换行了，traytip也会跟着换行，不需做额外处理

51ak · 发表于 2010-4-21 23:43:16

这个东西很好啊，可以随机喊话了。

		自动登录	找回密码
密码			加入

求一段随机显示消息的代码，学习一下

评分