[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

求指点。
1

评分人数

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

TOP

回复 4# pcl_test


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

TOP

  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'))
复制代码

TOP

本帖最后由 pcl_test 于 2016-7-3 14:39 编辑
  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. )
复制代码

TOP

回复 2# WHY


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

TOP

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

TOP

返回列表