中国DOS联盟

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 ]

第一，取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"

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

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

这个代码已经在一个目录中测试成功,全盘的代码请自已解决,在这个代码中,源文本必须有回车符,否则第二次运行本代码还会追加源文本的内容...

@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 ]

Originally posted by moniuming at 2009-2-7 08:31 PM:
这个代码已经在一个目录中测试成功,全盘的代码请自已解决,在这个代码中,源文本必须有回车符,否则第二次运行本代码还会追加源文本的内容...



if not "!tmp_!"=="!temp_!" 这一句好像是两段文本比较呀，难道也是一个一个字符的比较的吗？

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

@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

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