[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 批处理怎样把a文本的行导入b文本指定的行里面?

如果一个a文本是没有邮箱,但另一个b文本却有,想把他导入到a文本里面

把b文本的行(行就用邮箱代替)导入a文本行的数字1下面,2个文本都很大  



a
文本:
1

ylan  Jason
3216 Saint Claire Dr
Denton, TX 76210-3334
(940) 565-4256

2
ayson  Haywood
3408 Stolzenfeld Ave
Warren, MI 48091-4564
(586) 427-7306

3
hristina  Bill
12225 SE 25th St
Bellevue, WA 98005-4129
(509) 763-7868


.。。。。。。还有很多

b文本:
[email=kangaroo@yahoo.com]kangaroo@yahoo.com[/email]
[email=traumatizes@yahoo.com]traumatizes@yahoo.com[/email]
[email=overjoys@yahoo.com]overjoys@yahoo.com[/email]
[email=exhale@yahoo.com]exhale@yahoo.com[/email]

。。。。。

得到的结果为:
1
[email=kangaroo@yahoo.com]kangaroo@yahoo.com[/email]
Dylan  Jason
3216 Saint Claire Dr
Denton, TX 76210-3334
(940) 565-4256
2
[email=traumatizes@yahoo.com]traumatizes@yahoo.com[/email]
Jayson  Haywood
3408 Stolzenfeld Ave
Warren, MI 48091-4564
(586) 427-7306

997
[email=overjoys@yahoo.com]overjoys@yahoo.com[/email]
Christina  Bill
12225 SE 25th St
Bellevue, WA 98005-4129
(509) 763-7868


。。。。。。。。

[ 本帖最后由 wslqy 于 2010-4-13 17:12 编辑 ]

  1. @echo off&setlocal enabledelayedexpansion
  2. cd.>new.txt
  3. for /f "delims=" %%a in (b.txt) do set /a n+=1&set "_!n!=%%a"
  4. for /f "delims=" %%a in (a.txt) do (
  5.      echo.%%a>>new.txt
  6.      for /f "delims=0123456789" %%b in ("%%a#") do (
  7.          if "%%b" equ "#" (
  8.             set /a m+=1
  9.             for %%c in (!m!) do echo.!_%%c!>>new.txt
  10.          )
  11.      )
  12. )
  13. start new.txt
复制代码

[ 本帖最后由 batman 于 2010-4-13 17:45 编辑 ]
***共同提高***

TOP

谢谢版主的及时给我的解答,很好很强大,很好用

TOP

返回列表