批处理如何从多个txt文本中随机选取一个文本并输出/显示其第一行/首行内容？

jrx401

[文本内容]
文本1,
123.txt
n 2 4 5 6
d k l d d

文本2,
342.txt
n 2 4 5 6
m d d x w

文本3,
342.txt
n 2 4 5 6
d d v x w

.....(当前目录有很多 txt文本)

如何随机选取一个txt文本，然后只显示第一行，且竖着显示呢？
随机选取的文本，
n
2
4
5
6

求指点。

WHY

1. PowerShell -c "$a=dir *.txt|get-Random;(type $a)[0].ToCharArray()"

复制代码

jrx401

回复 2# WHY


    感谢回复。
可否有 cmd的方法呢？

pcl_test

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. rem for %%a in (*.txt) do ……
   
4. for /f "delims=" %%a in ('dir /a-d/b *.txt') do set "#!random!%%~na=%%a"
   
5. call :loop
   
6. pause&exit
   
7. :loop
   
8. for /f "tokens=1* delims==" %%a in ('set #') do (
   
9.     set /p str=<"%%b"
   
10.     if defined str (
    
11.         if "!str: =!" neq "" (
    
12.             for /l %%i in (0,1,8190) do if "!str:~%%i,1!" neq "" echo;!str:~%%i,1!
    
13.         )
    
14.     )
    
15.     goto :eof
    
16. )

复制代码

pcl_test

1. //&cls&dir /a-d/b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit
   
2. var fso=new ActiveXObject('Scripting.Filesystemobject');
   
3. var f=WSH.StdIn.ReadAll().split(/\r\n/).sort(function(){return Math.random()-.5})[0];
   
4. WSH.echo(fso.OpenTextFile(f, 1).ReadLine().split('').join('\r\n'))

复制代码

jrx401

回复 4# pcl_test


    感谢板主回复。
     同样 Set # random 无法吃透，可否有说明的其他帖子呢？
     set "#!random!%%~na=%%a"
    非常感谢。

jrx401

回复 4# pcl_test


    不好意思，再加一项目；
如果文本内容的第一行内容是字穿，就变成如下； 可否有解决办法呢？
n
1

2
2

4
v
f
g

5
c

6
s


[文本内容]
文本1,
123.txt
n1 22 4vfg 5c 6s
d k l d d

文本2,
342.txt
n1 22 4vfg 5c 6s
m d d x w

文本3,
342.txt
n1 22 4vfg 5c 6s
d d v x w