中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-11 06:48
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [已结]文本追加:把指定内容加到全盘TXT中的前面 查看 971 回复 8
楼 主 [已结]文本追加:把指定内容加到全盘TXT中的前面 发表于 2009-02-07 10:08 ·  中国 北京 鹏博士BGP
新手上路
积分 8
发帖 9
注册 2008-12-11 15:22
17年会员
UID 133547
性别 男
状态 离线
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
操作:在帖子标题中增加搜索关键字;代码加code标签
说明:原标题"文本追加的问题"不利于论坛搜索
处罚:扣除2点积分
提示:建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读,所有人的基本行为准则
{22703}请不要做浮躁的人
{27314}反面教材:本论坛“精彩”标题小集
{32667}愤怒:那些连标题都写不清楚的人们啊,你们醒醒吧
{32825}本版严厉整顿烂帖
───────────────── 版务记录 ─────────────────


[ Last edited by HAT on 2009-2-8 at 18:17 ]
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
HAT -2 2009-02-08 00:27
2 我还没测试过 发表于 2009-02-07 14:04 ·  中国 广东 东莞 电信
银牌会员
★★★
批处理编程迷
积分 1,916
发帖 752
注册 2008-12-28 04:30
17年会员
UID 135147
性别 男
来自 广西
状态 离线
第一,取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"
精简
=> 个人网志
3 发表于 2009-02-07 17:25 ·  中国 北京 联通
中级用户
★★
积分 313
发帖 162
注册 2007-04-02 06:45
19年会员
UID 83693
性别 男
状态 离线
我的只能运行一次,加到前面的,运行多了就重复了
for /r %%a in (*.txt) do (
>"%%a_tmp" type c:\333.txt
>>"%%a_tmp" type "%%a"
move /y "%%a_tmp" "%%a"
)
4 发表于 2009-02-07 19:07 ·  中国 北京 鹏博士BGP
新手上路
积分 8
发帖 9
注册 2008-12-11 15:22
17年会员
UID 133547
性别 男
状态 离线
3楼哥们的运行结果是:(系统找不到指定的文件)
2楼的答案也尝试了!也不成!也提示错误!哪位能帮我改改
5 发表于 2009-02-07 20:31 ·  中国 广东 广州 广东金万邦科技投资有限公司(新一代数据中心)IDC机房(BGP)
银牌会员
★★★
永远的菜鸟
积分 1,335
发帖 574
注册 2007-11-27 12:50
18年会员
UID 103929
性别 男
来自 广西
状态 离线
这个代码已经在一个目录中测试成功,全盘的代码请自已解决,在这个代码中,源文本必须有回车符,否则第二次运行本代码还会追加源文本的内容...
@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 ]
6 发表于 2009-02-07 20:43 ·  中国 北京 联通
中级用户
★★
积分 313
发帖 162
注册 2007-04-02 06:45
19年会员
UID 83693
性别 男
状态 离线
Originally posted by moniuming at 2009-2-7 08:31 PM:
这个代码已经在一个目录中测试成功,全盘的代码请自已解决,在这个代码中,源文本必须有回车符,否则第二次运行本代码还会追加源文本的内容...



if not "!tmp_!"=="!temp_!" 这一句好像是两段文本比较呀,难道也是一个一个字符的比较的吗?
7 回6楼 发表于 2009-02-07 21:04 ·  中国 广东 广州 广东金万邦科技投资有限公司(新一代数据中心)IDC机房(BGP)
银牌会员
★★★
永远的菜鸟
积分 1,335
发帖 574
注册 2007-11-27 12:50
18年会员
UID 103929
性别 男
来自 广西
状态 离线
只对每一个文本的第一行的整行作比较,试试echo !temp_!
8 这样呢 发表于 2009-02-07 21:29 ·  中国 广东 东莞 电信
银牌会员
★★★
批处理编程迷
积分 1,916
发帖 752
注册 2008-12-28 04:30
17年会员
UID 135147
性别 男
来自 广西
状态 离线
@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
精简
=> 个人网志
9 发表于 2009-02-08 13:19 ·  中国 北京 鹏博士BGP
新手上路
积分 8
发帖 9
注册 2008-12-11 15:22
17年会员
UID 133547
性别 男
状态 离线
已经解决!感谢热心的朋友
论坛跳转: