【练习-023】按要求替换文本字符的批处理

batman

前言：
　　本人最近眼睛出了毛病，所以不能常在论坛和群里为大家服务了，在此深表遗憾，也请
大家予以谅解。
　　今天帮同事解决了一个工作上的小问题，觉得这个问题比较有代表性，所以整理了下出
了这题（个人无法在excel表格中完成操作，不知有高人能否做到）。
出题目的：
　　唯一的目的在于通过解题灵活掌握字符替换技巧
加分原则：
　　1　思路新颖基分5分
　　2　代码高效基分4分
　　3　代码简洁基分3分
　　4　代码通用基分2分
　　5　无临时文件基分1分
　　6　完美代码加15分
题目如下：
　　有a.txt内容如下（在实际中有数万行）

330001--330002--330106
330001--330006--330108
330001--330007--330112
330101--330108--330205
330101--330110--330212
330201--330211--330301
330302--330304--330309
330302--330308--330402
330302--330410--330408
330402--330406--330411
330505--330511--330807
复制代码

　　要求用批处理对字符进行逐行替换，将其中的330＊＊替换为200＊年＊月，但不允许
出现05月（正确为5月）字样，同时输出如下：

2000年1月--2000年2月--2001年6月
2000年1月--2000年6月--2001年8月
2000年1月--2000年7月--2001年12月
2001年1月--2001年8月--2002年5月
2001年1月--2001年10月--2002年12月
2002年1月--2002年11月--2003年1月
2003年2月--2003年4月--2003年9月
2003年2月--2003年8月--2004年2月
2003年2月--2004年10月--2004年8月
2004年2月--2004年6月--2004年11月
复制代码

[ 本帖最后由 batman 于 2008-9-24 08:03 编辑 ]

batman

利用shift移位：

@echo off
for /f "tokens=1,2* delims=-" %%i in (a.txt) do set "s=%%k"&call :lp %%i %%j %%k   
pause>nul&goto :eof
:lp
set "str=%1"
set "a=%str:~3,1%"&set /a b=1%str:~-2%%%100
set "var=%var%--200%a%年%b%月"
if "%1" neq "%s%" shift&goto lp
echo %var:~2%&set "var="
复制代码

[ 本帖最后由 batman 于 2008-9-11 08:10 编辑 ]

batman

＆＆这题真的不难，不知大家为什么不愿尝试呢？本版块的出题环节一直在继续中，但个人
觉得并没有达到预期的效果，具体表现在：基本上都是几个版主和技术人员在解答题目，却
鲜见其他会员跟贴解题。
　　于是，个人有所反省，是不是这样的题目超越了大多数会员的能力范围了？是不是这样
的题目并不具有代表性？是不是这样的题目脱离实际太远了？是不是大家不能接受这样的学
习形式？
　　为了加强论坛学习指导的针对性，还请大家畅所欲言，就你所认为的，论坛应从哪些方
面出发来引导和提高大家学习批处理，来提出自已的建议；我们将根据大家的建议，不断完
善论坛的学习功能，健全学习机制，以达到共同提高的最终目的。

[ 本帖最后由 batman 于 2008-9-11 13:08 编辑 ]

batman

原帖由 huahua0919 于 2008-9-11 13:07 发表
这些数据是在Excle中的吗.斑竹是否能够上传这个文件来看看
我对Excle小有研究。也许能够解决

兄弟可以直接把a.txt的内容复制到execel中进行处理啊。。。

batman

原帖由 bater 于 2008-9-11 22:03 发表
在空白单元里输入公式=LEFT(REPLACE(A1,1,3,200),4)&"年"&RIGHT(A1,2)&"月"然后按照内容多少把数据全部选中后，全部数据转换成下列：
  

2000年01月 2000年02月 2001年06月 2000年01月  200 ...

本人实是愚钝，照兄弟所述的在excel中搞了半天，硬是不得法，没有成功转换，汗。。。

本人也摸索了一个公式：=MID(B1,1,4)&"年"&MID(B1,5,2)&"月"&"--"&MID(B1,9,4)&"年"&MID(B1,13,2)&"月"&"--"&MID(B1,17,4)&"年"&MID(B1,21,2)&"月"，基本上能达到替换的要求了。。。

[ 本帖最后由 batman 于 2008-9-12 08:42 编辑 ]

batman

原帖由 bater 于 2008-9-12 09:11 发表
呵呵，是我没有读懂题目，我首先把你A.txt的 数据利用
替换把-- 换成空格  ，然后由excel的数据导入进去
所以得到的数据，是没有--的，又看了下题目正如你说的用&把“--”是可以的，总之，我的excle老师告诉我，在 ...

兄弟太客气了，呵呵，咱们一起学习，共同进步了。