【练习-050】批处理超越for命令tokens极限分割字符串

batman

　　可能有的新手还不知道在for循环中tokens（列）的极限数是31，
而且将同一行中整整31列内容来分行显示也是极为麻烦的，一般不是用
echo %%a&echo %%b...&echo %%z...的这样形式就是用call :lp+shi
ft移位来完成的。
　　那么能不能突破这一tokens极限数？又能不能很方便地将一行内
数十列内容分行显示出来？这就是我们今天提出的问题了。
　　已知一超长字串符：d_q 973-c_j 314+y_d 356+i_p 638-u_m 2
04+w_a 588+j_c 829-p_t 599+j_v 803-p_y 92-r_h 677+h_i 341+h_
q 705-r_f 601-m_s 822+q_q 17-w_y 720+s_d 325-d_n 559-l_s 109
+l_v 160-x_b 232-u_r 282-v_l 521+p_o 403-x_n 613+t_x 185-g_v
678+z_n 753+j_k 779-o_f 283-h_w 390-z_o 772-w_v 252-a_e 51-
m_t 945-k_q 444-r_m 233-p_w 744+k_k 136-w_k 131-s_o 163+k_i
733+w_c 733+g_l 42+o_i 515+x_h 130-n_b 200+i_u 25+z_i 730，现
在要求将这一字串符以+-符为分隔符分行显示出来，每行的显示形式应
为“字母_字母 数值”，如倒数第四行的内容为x_h 130。
　　本题满分10分，视情况加分。
　　注：请先将此题留给新人们思考（此贴是用批进行自动排版）。

[ 本帖最后由 batman 于 2009-8-12 11:06 编辑 ]

terse

我想一个替换  一个移位
应该是替换的效率高点吧

Seter

咱只擅长C啊..这个用C的思路写出来的...额额..
于是这个是很兀余+很没可读性+很缺乏创意+很浪费资源+最后一个数据不晓得为什么会过几秒再跳出来的新手代码....希望大大们指正咯~

@echo off&setlocal enabledelayedexpansion
set /p f=<t.txt
set num=0
set n=
:loop
if "!f:~%num%,1!"=="" goto init
set /a num=num+1
goto loop
:init
set i=0
:next
if "%i%"=="%num%" echo %f%&pause>nul&exit
if "!f:~%i%,1!"=="+" goto sum
if "!f:~%i%,1!"=="-" goto sum
set /a i=i+1
goto next
:sum
echo !f:~0,%i%!
set /a end=%num%-%i%-1
set /a i=i+1
set f=!f:~%i%,%end%!
set i=0
goto next
复制代码

[ 本帖最后由 Seter 于 2009-8-12 12:27 编辑 ]

batman

楼上代码最大的问题在于效率上，使用逐字符不是解本题的上上之法。。。

523066680

把上面整条字符串复制在text.txt

d_q 973-c_j 314+y_d 356+i_p 638-u_m 204+w_a 588+j_c 829-p_t 599+j_v 803-p_y 92-r_h 677+h_i 341+h_q 705-r_f 601-m_s 822+q_q17-w_y 720+s_d 325-d_n 559-l_s 109+l_v 160-x_b 232-u_r 282-v_l 521+p_o 403-x_n 613+t_x 185-g_v678+z_n 753+j_k 779-o_f 283-h_w 390-z_o 772-w_v 252-a_e 51-m_t 945-k_q 444-r_m 233-p_w 744+k_k 136-w_k 131-s_o 163+k_i 733+w_c 733+g_l 42+o_i 515+x_h 130-n_b 200+i_u 25+z_i 730

@echo off
err>temp.x 2>nul
for /f "tokens=*" %%a in (text.txt) do (set a="%%a")
set a=%a:-=" "%
set a=%a:+=" "%
for %%A in (%a%) do echo %%~A>>temp.x
type temp.x
pause
复制代码

[ 本帖最后由 523066680 于 2009-8-12 12:46 编辑 ]

terse

523066680兄的代码 是假设代码只有一行吧 如是这样那就不要FOR了  直接SET 怎么样 set /pa=<text.txt

523066680

哈 被你发现拉~  没办法 ……在探究fsutil文本处理 头脑乱了……

话说pusofalse的分好好拿……

Batcher

纯路过

sed "s/[+-]/\n/g" a.txt
复制代码

batman

路过的就不加分了，再说你用第三方，与出题的初衷不符。。。

netbenton

set /pa=<text.txt
只能读取1024字节

而for /f ...
最多可以读取8K字节

针对此题不会有问题，要是讲通用性，还是用for好

523066680

netbenton回归平民拉　～　　我也要……

话说　你研究的真仔细。　

基拉freedom

谁有我简洁 连for也省了..............
不过爆出一个我想不通的问题 问什么第一个会到最后去呢？？
保存那个字符串为1.txt

@echo off
set /p f=<1.txt
set f=%f:-=+%
set f=%f:+=&echo %
set f=echo %f%
%f%
pause
复制代码

netbenton

楼上的有创意哦！
在%f%前面加个echo 吧

echo %f%

第一个跑到后面的问题似乎不存在呀！

defanive

5L和12L的代码亮点。。。

batman

还有种无限tokens的办法

@echo off
set "str=d_q 973-c_j 314+y_d 356+i_p 638-u_m 204+w_a 588+j_c 829-p_t 599+j_v 803-p_y 92-r_h 677+h_i 341+h_q 705-r_f 601-m_s 822+q_q17-w_y 720+s_d 325-d_n 559-l_s 109+l_v 160-x_b 232-u_r 282-v_l 521+p_o 403-x_n 613+t_x 185-g_v678+z_n 753+j_k 779-o_f 283-h_w 390-z_o 772-w_v 252-a_e 51-m_t 945-k_q 444-r_m 233-p_w 744+k_k 136-w_k 131-s_o 163+k_i 733+w_c 733+g_l 42+o_i 515+x_h 130-n_b 200+i_u 25+z_i 730"
:lp
for /f "tokens=1* delims=+-" %%a in ("%str%") do (
     echo %%a
     if "%%b" neq "" set "str=%%b"&goto lp
)
pause>nul
复制代码