[文本处理] 批处理如何从多个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

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

jrx401

回复 2# WHY


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

pcl_test

@echo off
setlocal enabledelayedexpansion
rem for %%a in (*.txt) do ……
for /f "delims=" %%a in ('dir /a-d/b *.txt') do set "#!random!%%~na=%%a"
call :loop
pause&exit
:loop
for /f "tokens=1* delims==" %%a in ('set #') do (
    set /p str=<"%%b"
    if defined str (
        if "!str: =!" neq "" (
            for /l %%i in (0,1,8190) do if "!str:~%%i,1!" neq "" echo;!str:~%%i,1!
        )
    )
    goto :eof
)
复制代码

pcl_test

//&cls&dir /a-d/b *.txt|cscript -nologo -e:jscript "%~f0"&pause&exit
var fso=new ActiveXObject('Scripting.Filesystemobject');
var f=WSH.StdIn.ReadAll().split(/\r\n/).sort(function(){return Math.random()-.5})[0];
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