【练习-045】批处理按要求输出字符串并替换字符串

batman

&&为了加强大家对大小写字母处理的技术，特出题，题目如下；
题一
   已知有abdefg kmli socsd pdxy nq五个字符串，要求用批处理随机输出大小写字符串到a.txt,，输出为每行10个字符串，共10
行，示例如下：

nqpdxySOCSDabdefgabdefgnqPDXYnqnqnq
pdxypdxyNQNQSOCSDSOCSDABDEFGKMLIkmlipdxy
socsdsocsdsocsdPDXYABDEFGabdefgPDXYnqsocsdPDXY
KMLIPDXYpdxySOCSDNQSOCSDABDEFGkmliNQABDEFG
SOCSDabdefgSOCSDabdefgPDXYnqKMLISOCSDSOCSDNQ
KMLIkmliabdefgNQnqKMLInqABDEFGKMLIpdxy
kmlipdxykmlipdxynqABDEFGNQKMLIpdxypdxy
pdxynqKMLInqsocsdABDEFGsocsdpdxypdxyABDEFG
KMLIpdxynqSOCSDPDXYKMLIKMLIpdxySOCSDnq
socsdnqNQkmliKMLIpdxynqabdefgSOCSDSOCSD

题二
   要求用批处理对文本a.txt中的字符串进行替换并输出到b.txt，注意替换是区分大小写的，如将里面的ABDEFG全替换成bathome，
但abdfeg不被替换，以上面的文本为例，输出后b.txt的内容应如下：

nqpdxySOCSDabdefgabdefgnqPDXYnqnqnq
pdxypdxyNQNQSOCSDSOCSDbathomeKMLIkmlipdxy
socsdsocsdsocsdPDXYbathomeabdefgPDXYnqsocsdPDXY
KMLIPDXYpdxySOCSDNQSOCSDbathomekmliNQbathome
SOCSDabdefgSOCSDabdefgPDXYnqKMLISOCSDSOCSDNQ
KMLIkmliabdefgNQnqKMLInqbathomeKMLIpdxy
kmlipdxykmlipdxynqbathomeNQKMLIpdxypdxy
pdxynqKMLInqsocsdbathomesocsdpdxypdxybathome
KMLIpdxynqSOCSDPDXYKMLIKMLIpdxySOCSDnq
socsdnqNQkmliKMLIpdxynqabdefgSOCSDSOCSD

第一题满分10分，第二题满分20分，视情况加分，加分以思路为重

batman

多谢随风兄指出，已修正。

batman

请大家用纯批解决，虽然这个要求有点苛刻。。。

batman

楼上没想到直接set "var=abdefg ABDEFG kmli KMLI socsd SOCSD pdxy PDXY nq NQ"？

batman

我在题目中选取ABDEFG来做替换字符是只是为了举例，并不一定总是拿ABDEFG替换为
bathome,所以请大家在解答时还是要注意下代码的通用性，另不要考虑特殊字符。。。

batman

看来大家都很积极，这确实是一个好现象，现给出本人第一题的解(第二题由于没有新思
路暂不公布)：

@echo off&setlocal enabledelayedexpansion
cd.>a.txt
set "str=abdefg kmli socsd pdxy nq ABDEFG KMLI SOCSD PDXY NQ"
for /l %%a in (1,1,100) do (
     set /a a=!random!%%10+1,b=%%a%%10&call :lp
     if !b! equ 0 echo.>>a.txt
)
start a.txt&goto :eof
:lp
for /f "tokens=%a%" %%a in ("%str%") do set /p=%%a<nul>>a.txt
复制代码

[ 本帖最后由 batman 于 2009-4-24 11:37 编辑 ]

batman

对for中变量的用法，大家有兴趣的可以看看此贴的七楼这段代码（可别晕了哦）。。。。
http://bbs.bathome.net/viewthrea ... hlight=%C1%B7%CF%B0