批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

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

  可能有的新手还不知道在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 编辑 ]
***共同提高***

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

TOP

咱只擅长C啊..这个用C的思路写出来的...额额..
于是这个是很兀余+很没可读性+很缺乏创意+很浪费资源+最后一个数据不晓得为什么会过几秒再跳出来的新手代码....希望大大们指正咯~
  1. @echo off&setlocal enabledelayedexpansion
  2. set /p f=<t.txt
  3. set num=0
  4. set n=
  5. :loop
  6. if "!f:~%num%,1!"=="" goto init
  7. set /a num=num+1
  8. goto loop
  9. :init
  10. set i=0
  11. :next
  12. if "%i%"=="%num%" echo %f%&pause>nul&exit
  13. if "!f:~%i%,1!"=="+" goto sum
  14. if "!f:~%i%,1!"=="-" goto sum
  15. set /a i=i+1
  16. goto next
  17. :sum
  18. echo !f:~0,%i%!
  19. set /a end=%num%-%i%-1
  20. set /a i=i+1
  21. set f=!f:~%i%,%end%!
  22. set i=0
  23. goto next
复制代码

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

评分人数

    • rat: 辛苦了PB + 8
    • batman: 学c也要懂批哦PB + 5

TOP

回复 3楼 的帖子

楼上代码最大的问题在于效率上,使用逐字符不是解本题的上上之法。。。
***共同提高***

TOP

把上面整条字符串复制在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


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

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

评分人数

综合型编程论坛
Writing Code That Nobody Else Can Read.

TOP

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

TOP

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

话说pusofalse的分好好拿……
综合型编程论坛
Writing Code That Nobody Else Can Read.

TOP

纯路过
  1. sed "s/[+-]/\n/g" a.txt
复制代码
【扫描二维码捐助论坛的朋友请留言注明论坛账号】http://bbs.bathome.net/thread-10403-1-1.html
【批处理在线视频分享】http://bbs.bathome.net/thread-31727-1-1.html
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html

TOP

回复 8楼 的帖子

路过的就不加分了,再说你用第三方,与出题的初衷不符。。。
***共同提高***

TOP

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

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

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

TOP

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

话说 你研究的真仔细。 
综合型编程论坛
Writing Code That Nobody Else Can Read.

TOP

谁有我简洁 连for也省了..............
不过爆出一个我想不通的问题 问什么第一个会到最后去呢??
保存那个字符串为1.txt
  1. @echo off
  2. set /p f=<1.txt
  3. set f=%f:-=+%
  4. set f=%f:+=&echo %
  5. set f=echo %f%
  6. %f%
  7. pause
复制代码
5

评分人数

    • gavinchou: 这个回车符替换的真好!技术 + 1
    • guaiwu: 厉害!从没觉得过set可以这么强大技术 + 1
    • rat:PB + 18
    • batman: 二十一世纪什么最重要?思路啊!PB + 10
    • netbenton: 有创意!PB + 10
o(∩_∩)o...~~~
空间:http://hi.baidu.com/fair_jm
喜欢批处理的没事的话去逛逛哦~~

TOP

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

echo %f%

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

TOP

5L和12L的代码亮点。。。
第三方命令行工具编程
Http://Hi.Baidu.Com/Console_App

TOP

还有种无限tokens的办法
  1. @echo off
  2. 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"
  3. :lp
  4. for /f "tokens=1* delims=+-" %%a in ("%str%") do (
  5.      echo %%a
  6.      if "%%b" neq "" set "str=%%b"&goto lp
  7. )
  8. pause>nul
复制代码
3

评分人数

***共同提高***

TOP

返回列表