中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [已结]文本追加:把指定内容加到全盘TXT中的前面
作者:
标题: [已结]文本追加:把指定内容加到全盘TXT中的前面 上一主题 | 下一主题
gugudeai
新手上路





积分 8
发帖 9
注册 2008-12-11
状态 离线
『楼 主』:  [已结]文本追加:把指定内容加到全盘TXT中的前面

for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v "A"') do (
    set var=%%i
    set drive=!var:~-2!
    fsutil fsinfo drivetype !drive!|find "固定">nul && dir /s /a-d /b !drive!\*.txt >>tmp.txt 2>nul
)
for /f "delims=" %%a in (tmp.txt) do type c:\333.txt>>"%%a"
上面的代码只能做到把c:\333.txt追加到全盘的TXT的后面! 但是我想让他加到全盘TXT中的前面!而且不想重复添加!帮忙给看看怎么做要? 谢谢了! ───────────────── 版务记录 ───────────────── 执行:HAT 操作:[2009-02-07]在帖子标题中增加搜索关键字;代码加code标签 说明:原标题"文本追加的问题"不利于论坛搜索 处罚:扣除2点积分 提示:建议阅读以下帖子 {1415}提问的智慧 {7326}论坛新手必读,所有人的基本行为准则 {22703}请不要做浮躁的人 {27314}反面教材:本论坛“精彩”标题小集 {32667}愤怒:那些连标题都写不清楚的人们啊,你们醒醒吧 {32825}本版严厉整顿烂帖 ───────────────── 版务记录 ───────────────── [ Last edited by HAT on 2009-2-8 at 18:17 ]


   此帖被 -2 点积分    点击查看详情   
评分人:【 HAT 分数: -2  时间:2009-2-8 00:27


2009-2-7 10:08
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 2 楼』:  我还没测试过

第一,取333.txt的行数到 lens for /f "delims=:" %%a in ('findstr /n .* 333.txt') do set lens=%%a for /r %%a in (*.txt) do (call :sub "%%a") goto :eof :sub 第二,取要处理的文件的前 lens行到333.tmp cd.>333.tmp set n=0 for /f "tokens=1* delims=:" %%b in ('findstr /n .* "%1"') do ( set/a n+=1 echo %%b>>333.tmp if !n!==!lens! goto :skip ) :skip 第三,fc 333.txt 333.tmp 第四, if %errorlevel% gtr 0 goto :eof [写入] copy /y 333.txt+"%1" 333.tmp copy /y 333.tmp "%1"




精简 [你的+我的+他的]=>[大家的] 个人网志
2009-2-7 14:04
查看资料  发送邮件  发短消息 网志  OICQ (37659560)  编辑帖子  回复  引用回复
ooaf
中级用户





积分 313
发帖 162
注册 2007-4-2
状态 离线
『第 3 楼』:  

我的只能运行一次,加到前面的,运行多了就重复了 for /r %%a in (*.txt) do ( >"%%a_tmp" type c:\333.txt >>"%%a_tmp" type "%%a" move /y "%%a_tmp" "%%a" )


2009-2-7 17:25
查看资料  发短消息 网志   编辑帖子  回复  引用回复
gugudeai
新手上路





积分 8
发帖 9
注册 2008-12-11
状态 离线
『第 4 楼』:  

3楼哥们的运行结果是:(系统找不到指定的文件) 2楼的答案也尝试了!也不成!也提示错误!哪位能帮我改改


2009-2-7 19:07
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
moniuming
银牌会员

永远的菜鸟



积分 1335
发帖 574
注册 2007-11-27
来自 广西
状态 离线
『第 5 楼』:  

这个代码已经在一个目录中测试成功,全盘的代码请自已解决,在这个代码中,源文本必须有回车符,否则第二次运行本代码还会追加源文本的内容...
@echo off
setlocal enabledelayedexpansion
set "srcfl=123.txt"
set /p tmp_=<"%srcfl%"
for %%a in (*.txt) do (
  set /p temp_=<"%%a"
  if not "!tmp_!"=="!temp_!" (
    >"%temp%\temp_.txt" type "%%a"
    >"%%a" type "%srcfl%"
    >>"%%a" type "%temp%\temp_.txt"
  )
)
[ Last edited by moniuming on 2009-2-7 at 20:32 ]


2009-2-7 20:31
查看资料  发短消息 网志   编辑帖子  回复  引用回复
ooaf
中级用户





积分 313
发帖 162
注册 2007-4-2
状态 离线
『第 6 楼』:  

Originally posted by moniuming at 2009-2-7 08:31 PM: 这个代码已经在一个目录中测试成功,全盘的代码请自已解决,在这个代码中,源文本必须有回车符,否则第二次运行本代码还会追加源文本的内容... [code ...
if not "!tmp_!"=="!temp_!" 这一句好像是两段文本比较呀,难道也是一个一个字符的比较的吗?


2009-2-7 20:43
查看资料  发短消息 网志   编辑帖子  回复  引用回复
moniuming
银牌会员

永远的菜鸟



积分 1335
发帖 574
注册 2007-11-27
来自 广西
状态 离线
『第 7 楼』:  回6楼

只对每一个文本的第一行的整行作比较,试试echo !temp_!


2009-2-7 21:04
查看资料  发短消息 网志   编辑帖子  回复  引用回复
netbenton
银牌会员

批处理编程迷


积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
『第 8 楼』:  这样呢

@echo off&setlocal enabledelayedexpansion set "sor=333.txt"&rem 这个是要加入的数据文件 if not exist !sor! echo 找不到!sor! &pause&goto :eof for /f "delims=:" %%a in ('findstr /n .* !sor!') do set lens=%%a for /r %%a in (*.txt) do (call :sub "%%a" "!sor!") pause goto :eof :sub set /p=文件:%1 <nul cd.>%~n2.tmp set n=0 for /f "tokens=1* delims=:" %%b in ('findstr /n .* %1') do ( set/a n+=1 echo %%c>>%~n2.tmp if !n!==!lens! goto :skip ) :skip fc %~2 %~n2.tmp>nul if %errorlevel%==0 echo 跳过&goto :eof (type %2&echo.&type %1)>%~n2.tmp type %~n2.tmp>"%1" echo 写入 goto :eof




精简 [你的+我的+他的]=>[大家的] 个人网志
2009-2-7 21:29
查看资料  发送邮件  发短消息 网志  OICQ (37659560)  编辑帖子  回复  引用回复
gugudeai
新手上路





积分 8
发帖 9
注册 2008-12-11
状态 离线
『第 9 楼』:  

已经解决!感谢热心的朋友


2009-2-8 13:19
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: