批处理之家 - Powered by Discuz! Board

标题: [文本处理] 批处理如何从多个txt文本中随机选取一个文本并输出/显示其第一行/首行内容？ [打印本页]

作者: jrx401 时间: 2016-7-2 01:02 标题: 批处理如何从多个txt文本中随机选取一个文本并输出/显示其第一行/首行内容？

本帖最后由 pcl_test 于 2016-7-2 13:51 编辑

[文本内容]
文本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 时间: 2016-7-2 21:30

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

作者: jrx401 时间: 2016-7-3 12:25

回复 2# WHY

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

作者: pcl_test 时间: 2016-7-3 13:24

本帖最后由 pcl_test 于 2016-7-3 14:39 编辑

@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 时间: 2016-7-3 15:06

//&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 时间: 2016-7-4 22:22

回复 4# pcl_test

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

作者: jrx401 时间: 2016-7-4 22:24

回复 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

欢迎光临批处理之家 (http://www.bathome.net/)