- 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实现随机读取文件的一行内容的脚本
2020-07-15 11:33VBS代码网 VBS
本文主要分享用vbs实现随机读取文件的一行内容的脚本代码,有需要的朋友可以参考下
延伸 · 阅读
- 2022-03-07unity学习教程之定制脚本模板示例代码
- 2022-03-05CocosCreator学习之模块化脚本
- 2022-03-05Linux expect实现自动登录脚本实例代码
- 2022-03-03英雄联盟手游脚本怎么用 英雄联盟手游脚本会被
- 2022-03-03Python手机与电脑游戏脚本的编写方法
- 2022-03-02Python 实现 PD 文字识别、提取并写入 CSV 文件脚本
精彩推荐
- VBS
VBS教程:属性-VolumeName 属性
VBS教程:属性-VolumeName 属性...
- VBS
提供个可以显示农历的VBS代码
本文主要分享一段可以显示农历的VBS代码,具有一定的参考价值,有需要的朋友可以了解一下...
- VBS
可以定时自动关机的vbs脚本
这篇文章主要分享一段可以定时自动关机的vbs脚本代码,有需要的童鞋可以学习下...
- VBS
vbs base64 解密脚本代码
解密base64的vbs小函数,支持英文与数字不支持中文。...
- VBS
VBS教程:正则表达式简介 -建立正则表达式
建立正则表达式 构造正则表达式的方法和创建数学表达式的方法一样。也就是用多种元字符与操作符将小的表达式结合在一起来创建更大的表达式。 可以...
- VBS
脚本 MsAgent组件 微软精灵 揪出系统自带的宠物
你知道系统里有一个隐藏的宠物吗? 将以下代码保存为后缀为.vbs的文件,再双击运行,看看出来什么?一个可爱的魔法老人!还会说话、移动、吹喇叭…...
- VBS
VBS教程:属性-AvailableSpace 属性
VBS教程:属性-AvailableSpace 属性 ...
- VBS
VBS教程:对象-Folders 集合
VBS教程:对象-Folders 集合...