[已解决]求助批处理在文本中取随机值

hijackle · 发表于 2013-5-10 07:28:23

本帖最后由 hijackle 于 2013-5-13 14:19 编辑

有一段文本，内容如下：

singer=张信哲，张宇，韩红，陈奕迅，......（歌手名称很多，都是以，分割的）
song=回来，放不下心，盛夏的果实，........(歌曲名也很多，也都是以，分割的）

歌手名和歌曲名的数量都是不确定的，如何快速的随机获取一个歌手名和歌曲名，不要求歌手和歌曲对应的，就随机获取就可以，最好不要生成临时文件

高手帮忙

追问一下，如果文本中含有特殊符号&和=怎么办，比如文本如下：

singer=张信哲，张宇，韩红，陈奕迅，陈羽凡&胡海泉=羽泉，......（歌手名称很多，都是以，分割的）
song=回来，放不下心，盛夏的果实，........(歌曲名也很多，也都是以，分割的）

最后一次追问一下，如果文本中含有特殊符号&和=和?怎么办，(其他符号比如_和-应该不会对代码有影响的吧)，比如文本如下：

singer=张信哲，张宇，韩红，陈奕迅，陈羽凡&胡海泉=羽泉，M?M，......（歌手名称很多，都是以，分割的）
song=回来，放不下心，盛夏的果实，........(歌曲名也很多，也都是以，分割的）

batman · 发表于 2013-5-10 09:15:02

本帖最后由 batman 于 2013-5-10 09:19 编辑

@echo off&setlocal enabledelayedexpansion
set "singer=."&set "song=_"
for /f "tokens=1,2 delims==" %%a in (a.txt) do (
set "str=%%b"&set "str=!str:，= !"
for %%c in (!str!) do set "!%%a!#!random!#%%c=a"
)
for %%a in (. _) do (
set "flag="
for /f "tokens=3 delims==#" %%b in ('set %%a') do if not defined flag echo %%b&set "flag=a"
)
pause>nul

复制代码

terse · 发表于 2013-5-10 14:58:21

本帖最后由 terse 于 2013-5-10 14:59 编辑

不考虑空格和其他特殊情况

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1* delims==" %%a in (a.txt) do (
set arr=&set "str=%%b"
for %%i in (!str:，^= !) do set "arr=!arr! !random!!random!!random!#%%i"
for /f "tokens=1* delims=#" %%c in ('(for %%i in (!arr!^) do echo %%i^)^|sort') do set str=%%d
echo !str!
)
pause>nul

复制代码

apang · 发表于 2013-5-10 15:56:18

本帖最后由 apang 于 2013-5-12 18:25 编辑

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("a.txt")
Randomize()
Do Until file.AtEndOfStream
a = file.ReadLine
arr = Split(Right(a,Len(a)-InStr(a,"=")),"，")
str = str & arr(Int(Rnd * (UBound(arr) + 1))) & vbLf
Loop
WScript.Echo str

复制代码

hijackle · 发表于 2013-5-12 01:26:41

追问一下，如果文本中含有特殊符号&和=怎么屏蔽，比如
有一段文本，内容如下：

singer=张信哲，张宇，韩红，陈奕迅，陈羽凡&胡海泉=羽泉，......（歌手名称很多，都是以，分割的）
song=回来，放不下心，盛夏的果实，........(歌曲名也很多，也都是以，分割的）

歌手名和歌曲名的数量都是不确定的，如何快速的随机获取一个歌手名和歌曲名，不要求歌手和歌曲对应的，就随机获取就可以，最好不要生成临时文件

apang · 发表于 2013-5-12 18:31:30

回复 5# hijackle

可以处理&和=字符，不能处理 !、^、*、?字符，你看着办

@echo off
for /f "tokens=1* delims==" %%a in (a.txt) do (
set "str=%%b"
setlocal enabledelayedexpansion
for %%c in ("!str:，=" "!") do set /a n+=1&set ".!n!=%%~c"
set /a r = !random! %% n + 1
for %%b in (!r!) do echo !.%%b!
endlocal
)
pause

复制代码

hijackle · 发表于 2013-5-12 21:43:54

本帖最后由 hijackle 于 2013-5-12 21:45 编辑

再追问一下，如果要处理?咋办？一定有了?，问号之前的值好像是永远都随即不出来的

非常感谢楼上的几位的耐心解答

BAT-VBS · 发表于 2013-5-12 21:49:03

回复 7# hijackle

请在顶楼把需要处理的特殊字符一次说完，不要一个一个往外蹦。

hijackle · 发表于 2013-5-12 22:15:19

本帖最后由 hijackle 于 2013-5-12 22:18 编辑

好的，麻烦
顶楼补齐了

最后一次追问一下，如果文本中含有特殊符号&和=和?怎么办，(其他符号比如_和-应该不会对代码有影响的吧)，比如文本如下：

singer=张信哲，张宇，韩红，陈奕迅，陈羽凡&胡海泉=羽泉，M?M，......（歌手名称很多，都是以，分割的）
song=回来，放不下心，盛夏的果实，........(歌曲名也很多，也都是以，分割的）

terse · 发表于 2013-5-13 01:23:37

也不通用

@echo off&setlocal enabledelayedexpansion
if "%~1" == "" (
for /f "tokens=1* delims==" %%a in (a.txt) do (
for /f "tokens=2 delims=" %%c in ('%~s0 "%%b"^|sort') do set str=%%c
echo !str!
)
pause&exit
) else (
:LP
for /f "tokens=1* delims=，" %%i in (%1) do (
echo "!random!!random!!random!%%i"
call :lp "%%j"
)
)

复制代码

hijackle · 发表于 2013-5-13 10:56:17

楼上的代码的确可以解决了，感谢中
顺便问下代码可以优化一下吗？
for 里面去call本身的循环，貌似文本里面的，分割的很多的话，执行效率是个问题啊

terse · 发表于 2013-5-13 13:11:03

回复 11# hijackle
并比一个 ? 字符应该还有比如 * 所以鱼和熊掌了没办法
下面代码对于字符 "* 还无能为力

@echo off&setlocal enabledelayedexpansion
for /f "tokens=1* delims==" %%a in (t.txt) do (
set n=&set any=&set "str=%%b"
set str="!str:，=" "!"
set str=!str:?=!
for %%i in (!str!) do set any=!any! "!random!!random!!random!%%~i"
for /f "tokens=2 delims=" %%c in ('(for %%i in (!any!^) do echo %%i^)^|sort') do set str=%%c
echo !str:=?!
)
pause>nul

复制代码

hijackle · 发表于 2013-5-13 14:18:41

明白了，谢谢了

		自动登录	找回密码
密码			注册

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

[文本处理] [已解决]求助批处理在文本中取随机值

评分

评分

评分