两种方法,第一种获取指定文件夹下的全部txt文件,放到数组里面,从数组里面去随机,第二种方法,用数字随机命名txt,取随机数
㈡ 易语言怎么打开随机的文件夹!
.版本 2
.支持库 spec
.支持库 shell
.子程序 打开随机文件
.参数 目录, 文本型
.局部变量 数组, 文本型, , "1"
.局部变量 文件名, 文本型
.局部变量 数组个数, 整数型
.局部变量 随机打开, 整数型
.如果 (取文本右边 (目录, 1) ≠ “\”)
目录 = 目录 + “\”
.否则
.如果结束
文件名 = 寻找文件 (目录 + “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
加入成员 (数组, 文件名)
文件名 = 寻找文件 (, #子目录)
.判断循环尾 ()
数组个数 = 取数组成员数 (数组)
调试输出 (数组)
调试输出 (数组个数)
置随机数种子 ()
随机打开 = 取随机数 (1, 数组个数)
执行 (4, 目录 + 数组 [随机打开], , , )
㈢ 怎样用vbs或者bat随机打开文件夹,比如C:/a文件夹中有很多文件夹,随机打开其中一个。谢谢!
dimfso,folder,rnd_path,list,list_folder,add,wsc
randomize
setwsc=createobject("wscript.shell")
setfso=createobject("scripting.filesystemobject")
folder="d:a"'要处理的路径
setlist_folder=fso.getfolder(folder).subfolders'遍历文件夹
rnd_path=fix(rnd*list_folder.count)+1
foreachlistinlist_folder
add=add+1
ifadd=rnd_paththen
wsc.runlist.path'打开文件夹
exitfor
endif
next
setwsc=nothing'释放内存
setlist_folder=nothing
setfso=nothing
vbs代码
㈣ VB,如何随机的打开三个文件夹中的文件呢
用rn取1~3之间的任一整数。然后select case、就三个可能,应该很简单吧。
如果文件夹比较多,可以用字典的方法,把文件名取取其中,然后用随机抽取方法任选其一。三个文件夹,真的不用。
㈤ 一个目录中有很多文件,批处理随机打开其中的一个文件
不清楚你的实际文件/情况,仅以问题中的样例/说明为据
复制粘贴到记事本,另存为xx.bat,编码选ANSI
@echooff
rem随机打开一个文件
set#=Anyquestion&set@=WX&set$=Q&set/az=0x53b7e0b4
title%#%+%$%%$%/%@%%z%
cd/d"%~dp0"
set"folder=C:UsersAdministratorDesktopghH7-6bat"
ifnotexist"%folder%"(echo;"%folder%"notfound&gotoend)
>"%tmp% .t"echo;WSH.echo(WSH.StdIn.ReadAll().replace(/s*$/g,'').split(/[ ]+/).sort(function(){returnMath.random()-.5})[0])
ifnotexist"%folder%"(echo;"%folder%"notfound&gotoend)
for/f"delims="%%ain('dir/a-d/b"%folder%"^|cscript-nologo-e:jscript"%tmp% .t"')do(
echo;%%a
start"""%folder%\%%a"
gotoend
)
:end
echo;%#%+%$%%$%/%@%%z%
pause
exit
㈥ VBA,如何随机打开一个文件夹,假如有三个文件夹的话
'首先,调用DOS命令获得指定目前下所有文件夹名列表,代码如下:
Dim MyFold() as String '定义动态字符串数组
MyDir="D:\Test " '指定待处理的文件夹,可自行修改
shell "cmd.exe /c dir /B/ad "+MyDir+" > FoldList.txt" ,vbhide '本命令功能为获取指定目录MyDir下所有文件夹名列表,包括隐藏文件夹,但不包括子文件夹
'然后读取FoldList.txt中的数据,获取文件夹名的数量,代码如下:
Fn=0
Open MyDir+"\FoldList.txt" For input as #1
Do Until EOF(1)
Line Input #1, FL
Fn=Fn+1
Loop
Colse #1
ReDim MyFold(Fn-1) '重新定义数组
'然后,给数组赋值,代码如下:
i=0
Open MyDir+"\FoldList.txt" For input as #1
Do Until EOF(1)
Line Input #1, FL
MyFold(i)=MyDir+"\"+FL
i=i+1
Loop
Colse #1
Kill MyDir+"\FoldList.txt"
'然后是获取一个随机数,以随机打开指定的文件夹,代码如下:
i=int((Fn-1)*Rnd)
shell "Explorer.exe "+MyFold(i) '打开随机指定的文件夹
'如果待随机打开的文件夹不是处在同一父目录下,则只能人工给每一个数组元素单独赋值后随机打开了。
㈦ 什么是随机文件的打开方式
随机文件打开的文件默认。
一般来说随机文件打开的文件都是默认的形式。文件的随机读写也就是说文件指针可以随意移动。随机文件的操作方式默认有两种:
顺序读写:文件指针只能从头移动到尾。
随机读写:文件指针可以随意移动,根据需要。
文件指针:在磁盘文件操作中有一个文件指针,用来知名当前应进行读写的位置,没有具体变量。
“文件中的位置”和“位移量”为long型,以字节为单位。参照位置可以是下面三者之一:
ios::beg文件开头,只是默认值
ios::cur指针当前的位置
ios::end文件末尾
㈧ 怎样随机打开文件夹里的文件
这种软件没有现成的,但是对于编程高手来说,要实现这样的目的是能办得到的。编程思想:随机指定一个文件夹,然后搜索该文件下的所有文件名并获得其对应的文件类型后形成文件列表记录,根据文件记录数产生一个随机数,这个随机数定位文件列表中的某个文件,通过列表记录获得该文件的文件名和文件类型,通过判断文件类型调用对应的程序来打开该文件。对于编程高手来说,这样的小软件可能几小时就编好了,可惜我不懂编不了。