批处理如何在文本里的数字两边/两端添加特定字符串

lzwudi

把文本中的数字前面加上两个空格和代码
不知道能不能用纯批处理实现,都用到什么命令?
请把代码贴出来后做详细解答,谢谢!!
有一个文本是这样的:

1. 知道的:
   
2. 我的123
   
3. 你的456
   
4. 他的789
   
5. other000
   
6. 
   
7. 不知道的:
   
8. 不知道是我的321
   
9. 不知道是你的654
   
10. 不知道是他的987
    
11. other000

复制代码

目的变成这样:

1. 知道的:
   
2. 我的 [url=http://111.com]123[/url]
   
3. 你的 [url=http://222.com]456[/url]
   
4. 他的 [url=http://333.com]789[/url]
   
5. other [url=http://888.com]000[/url]
   
6. 
   
7. 不知道的:
   
8. 不知道是我的 [url=http://444.com]321[/url]
   
9. 不知道是你的 [url=http://555.com]654[/url]
   
10. 不知道是他的 [url=http://666.com]987[/url]
    
11. other [url=http://888.com]000[/url]

复制代码

[ 本帖最后由 lzwudi 于 2008-10-13 19:03 编辑 ]

pusofalse

1. @echo off&setlocal enabledelayedexpansion
   
2. for /f "delims=" %%a in (a.txt) do (
   
3.       set "var=%%a"
   
4.       if "!var:~-4!" neq "知道的:" (
   
5.           if "!var:~,5!" neq "other" (
   
6.               set/a n+=111
   
7.               set "var=!var:~,-3! [url=http://!n!.com]!var:~-3![/url]"
   
8.               ) else (
   
9.               set "e=e"
   
10.               set "var=!var:~,-3! [url=http://888.com]!var:~-3![/url]"
    
11.       ))
    
12.       echo !var!
    
13.       if defined e set "e="&echo.
    
14. )
    
15. pause>nul

复制代码

Batcher

这类问题，最好把真实数据贴出来，不要自己编数据。
否则别人帮你写的代码可能根本无法解决实际问题，浪费彼此的时间。

lzwudi

三楼说的有道理,我正是这个意思,
但是写真实数据实在是有顾及的,请原谅!!!
请再次帮忙,谢谢!

1. 姓王的：
   
2. 王老大147258369
   
3. 王老二258369147
   
4. 王老三369147258
   
5. 姓李的:
   
6. 李老大123456789
   
7. 李老二456789123
   
8. 李老三789123456
   
9. 姓赵的:
   
10. 赵老大321654987
    
11. 赵老二654987321
    
12. 赵老三987321654
    
13. 姓张的:
    
14. 张老大741852963
    
15. 张老二852963741
    
16. 张老三963741852

复制代码

改成这样:

1. 姓王的：
   
2. 王老大  [url=http://147258369.qzone.qq.com]147258369[/url]
   
3. 王老二  [url=http://258369147.qzone.qq.com]258369147[/url]
   
4. 王老三  [url=http://369147258.qzone.qq.com]369147258[/url]
   
5. 姓李的:
   
6. 李老大  [url=http://123456789.qzone.qq.com]123456789[/url]
   
7. 李老二  [url=http://456789123.qzone.qq.com]456789123[/url]
   
8. 李老三  [url=http://789123456.qzone.qq.com]789123456[/url]
   
9. 姓赵的:
   
10. 赵老大  [url=http://321654987.qzone.qq.com]321654987[/url]
    
11. 赵老二  [url=http://654987321.qzone.qq.com]654987321[/url]
    
12. 赵老三  [url=http://987321654.qzone.qq.com]987321654[/url]
    
13. 姓张的:
    
14. 张老大  [url=http://741852963.qzone.qq.com]741852963[/url]
    
15. 张老二  [url=http://852963741.qzone.qq.com]852963741[/url]
    
16. 张老三  [url=http://963741852.qzone.qq.com]963741852[/url]

复制代码

[ 本帖最后由 lzwudi 于 2008-10-13 19:53 编辑 ]

pusofalse

1. @echo off
   
2. type a.txt|wfr /exp /r:"\d+" /t:"   [url=http://\0.qzone.qq.com]\0[/url]">tmp.txt
   
3. start tmp.txt

复制代码

wfr 下载：http://bbs.bathome.net/thread-1909-1-2.html

[ 本帖最后由 pusofalse 于 2008-10-13 20:09 编辑 ]

随风

:

1. @echo off&setlocal enabledelayedexpansion
   
2. echo. 1>nul 3>2.txt
   
3. for /f "delims=" %%i in (a.txt) do (
   
4.    set "str=%%i"
   
5.    for /l %%j in (0 1 9) do set str=!str:%%j= %%j!
   
6.    if "!str!"=="%%i" (echo %%i) else (
   
7.       for /f "tokens=1* delims= " %%a in ("!str!") do (
   
8.          set "num=%%b"
   
9.          echo %%a [url=http://!num: =!.qzone.qq.com]!num: =![/url]
   
10. )))
    
11. start notepad "2.txt"
    

复制代码

[ 本帖最后由 随风 于 2008-10-13 20:33 编辑 ]

lzwudi

随风兄就是厉害
我相信pusofalse也是可以写出来地
不过已经帮我写了一次,很累哦!而且浪费了
所以是不是草草了事了?

再次感谢,只是没有学习到什么,因为看不懂哦
慢慢来吧~~~~

namejm

　　姓名有3个中文的，也有两个中文的，甚至是四个、五个中文，这些姓名之间有没有空格？是纯中文吗？

youxi01

随风的除了空格，其它因素似乎不影响啊（中文名字出现空格时LZ似乎没有给出样本来）
它是根据数字来分割的

namejm

　　随风是先把所有的数字前面都加上空格，从而把数字和中文分离，最后删除所有的空格，还原数字；若中文名中不存在空格，这个代码无疑是完美的；如果姓名中有空格的话，就会出错。

随风

:加了下工，a.txt内容只要是 汉字+数字的 格式就可以，不管汉字部分有没有空格都可以。
:

1. @echo off&setlocal enabledelayedexpansion
   
2. echo. 1>nul 3>2.txt
   
3. for /f "delims=" %%i in (a.txt) do (
   
4.    set var=%%i&set "str=%%i"
   
5.    for /l %%j in (0 1 9) do set str=!str:%%j=!
   
6.    if "!str!"=="%%i" (echo %%i) else (
   
7.       for /f "delims=" %%a in ("!str!") do set "num=%%~nxa"
   
8.       call set sun=%%var:!num!=%%
   
9.       for /f "tokens=*" %%a in ("!sun!") do (
   
10.          echo !num! [url=http://%%a.qzone.qq.com]%%a[/url]
    
11.          
    
12. )))
    
13. start notepad "2.txt"

复制代码

a.txt 内容

1. 姓 王的：
   
2. 王 老大147258369
   
3. 王 老 二             258369147
   
4. 王老三369147258
   
5. 姓 李的:
   
6. 李老 大                123456789
   
7. 李老二456789123
   
8. 李     老  三789123456
   
9. 姓 赵 的:
   
10. 赵    老  大321654987
    
11. 赵 老  二654987321
    
12. 赵 老 三987321654
    
13. 姓 张的:
    
14. 张 老   大741852963
    
15. 张 老  二 852963741
    
16. 张 老三     963741852

复制代码

namejm

　　其实，如果姓名中含有空格的时候，随风在6楼的代码仍然可以使用，只是要把数字前的空格换为其他比较特殊的字符就可以了，比如下划线之类。

pusofalse

1. @echo off&setlocal enabledelayedexpansion
   
2. for /f "delims=" %%a in (a.txt) do (
   
3.      for /f "delims=123456789" %%i in ("%%~a") do (
   
4.           if "%%i" neq "%%a" (
   
5.              set "var=%%a"&set "str=%%i                "
   
6.              set "var=!var:%%i=!"
   
7.              echo !str:~,10!   [url=http://!var!.qzone.qq.com]!var![/url]
   
8.           ) else (
   
9.           echo %%a
   
10. )))
    
11. pause

复制代码

zqz0012005

因为论坛原因，用花括号代替了方括号，复制代码后自己改回

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. Set objFile = fso.OpenTextFile("a.txt")
   
3. Do While objFile.AtEndOfStream <> True
   
4.     s = s & RegExpReplace(objFile.ReadLine) & vbCrLf
   
5. Loop
   
6. objFile.Close
   
7. fso.OpenTextFile("a-new.txt",2,true).Write s
   
8. 
   
9. Function RegExpReplace(strng)
   
10.     Set regEx = New RegExp
    
11.     regEx.Pattern = "[0-9]{6,9}"  '匹配长度为6到9位之间的数字字串，因为QQ号码只有6~9位
    
12.     Set Matches = regEx.Execute(strng)
    
13.     For Each Match in Matches
    
14.         RetStr = Match.Value
    
15.     Next
    
16.     RetStr = regEx.replace(strng,"  {url=http://" & RetStr & ".com}" & RetStr & "{/url}")
    
17. RegExpReplace = RetStr
    
18. End Function

复制代码

[ 本帖最后由 zqz0012005 于 2008-10-14 15:51 编辑 ]

terse

汉字+数字 这样也一样

1. @echo off&setlocal enabledelayedexpansion
   
2. echo. 1>nul 3>b.txt
   
3. for /f "delims=" %%i in (a.txt) do (
   
4.     set var=%%i&set "str=%%i"
   
5.     for /l %%j in (0 1 9) do set str=!str:%%j=!
   
6.     if "!str!"=="%%i" (echo %%i) else (
   
7.     call set num=%%var:!str!=%%
   
8.     echo !str! [url=http://!num!.qzone.qq.com]!num![/url]   
   
9. ))
   
10. start notepad "b.txt"

复制代码