按键精灵如何实现对指定文件夹内随机文档的调用？
我想写一段代码，实现对指定文件夹内随机文档的调用
比如说我的 D盘 里，文件夹名称为 A ，
A文件夹内有"a.txt"，"b.txt"，"c.txt"等上百篇文章，
实现
1.读取这个文件夹内随机文件的文件名
2.读取这个文件夹内随机文件的内容
3.读取这个文件夹内随机文件的内容的随机行
需要的是和下文大致相同的号码
Text = Plugin.File.ReadFileEx("F:\调用TXT\3-3屋面段落.txt")
TracePrint Text
Var = Split(Text, "|||")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
SayString (Cstr(Var(行数)))
上面这段代码的意思是读取“F:\调用TXT\3-3屋面段落.txt”这个TXT文本中的一行。
现在我想实现的就是读取“F:\调用TXT”这个文件夹内随意一篇文档的名称、内容，以及内容的随机行。
Text = Plugin.File.ReadFileEx 选择这个目录，并SayString 发送(写入)到当前文本框。
这是我制作出的按键精灵脚本
//下面是调用方法：
FileEx = FindAllFiles(Form1.txt_path.Text) //文件路径是字符串，要加双撇
If UBound(FileEx) > 0 Then
For i = 0 To UBound(FileEx) - 1
TracePrint FileEx(i)
Next
//随机取一篇文章
Randomize
file_name = FileEx(int(rnd * UBound(FileEx)))
文章 = Plugin.File.ReadFileEx(Form1.txt_path.Text + "\" + file_name)
文章 = Replace(文章, "|", "")
TracePrint 文章
Else
MessageBox "文件夹没有文件"
End If
Function FindAllFiles(FolderPath)
Dim AllFiles,fso,Folder,f,files
AllFiles = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder = fso.getfolder(FolderPath)
Set files = Folder.files
For Each f In files
AllFiles = AllFiles & f.name & ","
Next
Set fso = Nothing
FindAllFiles = Split(AllFiles, ",")
End Function
这段代码实现了脚本调用文件夹内随机内容，希望对你提供帮助。
更多精彩
