如何随机读取文件夹下面的文本文件

netdzb

每个文本文件都是一行的。每一次随机读取一个，用type打印出来。

Gin_Q

你看这样行吗：
1)统计有多少txt文件(findstr, for等);
2)使用%random%(可以取余数)生成所要的序列号;
3)然后再打开指定序列号对应文件名.

netdzb

回复 2# Gin_Q


  文本的文件名需要改吗？
这个random函数里面可以是变量吗？

@echo off
@setlocal ENABLEDELAYEDEXPANSION
@set num=0
@for /f "delims=" %%i in ('dir %1 /a-d /b /s') do @set /a num+=1
@echo %1中共有%num%个文件

比如这样，然后random %num% 运算

Gin_Q

回复 3# netdzb

1. @echo off & setlocal enabledelayedexpansion & rem title by author Gan
   
2. set "t_path=E:\123"
   
3. set /a count = 0
   
4. ::搜索的%t_path%目录下所有的txt文件
   
5. for /f %%a in ('where /f /r %t_path% "*.txt"') do (set "count_file_!count!=%%a" & set /a count+=1)
   
6. 
   
7. ::生成小于txt文件总数的随机数(效率和文件数成反比)
   
8. ::优化好了发出来看看
   
9. echo;正在打开随机文件请稍后...
   
10. echo;
    
11. :loop
    
12. set /a temp = 1
    
13. for /l %%a in (1,1,%temp%) do (set /a ran = %random%
    
14.         if !ran! leq %count% goto :break1
    
15.         goto :loop)
    
16. 
    
17. :break1
    
18. type !count_file_%ran%!
    
19. 
    
20. pause

复制代码

你试试！！

terse

1. @echo off&setlocal enabledelayedexpansion
   
2. for /f "delims=" %%i in ('dir /b /s /a-d d:\tese\*.txt') do (
   
3.      set /an+=1
   
4.      set _!n!=%%i
   
5. )
   
6. set /a r=!random!%%n+1
   
7. type "!_%r%!"
   
8. pause

复制代码

powershell

1. gc(ls "d:\tese\*.txt"|Get-Random)

复制代码