龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

用vbs实现随机读取文件的一行内容的脚本

时间:2014-07-03 15:02来源:网络整理 作者:网络 点击: 次
分享到：
用vbs实现随机读取文件的一行内容的脚本

复制代码 代码如下:

randomize 
set fso=createobject("scripting.filesystemobject") 
set a=createobject("scripting.dictionary") 
set file=fso.opentextfile("a.txt") 
do while file.atendofstream<>true 
m=m+1 
a.add m,file.readline 
loop 
file.close 
h=int(rnd*m) 
msgbox "第" & h & "行:  " & a(h) ,4096,"随机内容"

精彩图集
灵活实用的VBS入门教程基础篇
灵活实用的
Vbs COM之打开/保存文件脚本代码
Vbs COM之打开
当某IP 连接我机器的3389端口 报警的脚本
当某IP 连接

热门标签

64位 .net4.0 效率低下 SyntaxError 兼容IE DATEDIFF 非数字 写日志 图片倒影 文件哈 imagei 闭合标签 窗体 文件限制 制作 正常访问 divcss stripslashes CanJS baidu等搜索网 更改字段名 RANK get方式提交 MetaSploit 分布式 执行路径 重复触 按字节 listview php php复制文 sha1_file 网络 QQ登陆 闹钟程序 链接错误 判断客户端 sql无效字符 vbs脚 中栈 logcat调试 help命令 CreatThread 301 分页查询 rman备份脚本 unicode解码 k均值算法 hook secure_auth php 一个用于 InetAddress xml2array button 只读属性对象 缩放状态 Rolling Python编码 变量类型 可疑 路由失效 SSH账号

赞助商链接