[文件操作] 【已解决】怎样把一个标签的内容复制成一个新的批处理?

nnszuo

在论坛找了下复制自身某段内容到新的批处理文件时都要计算行数的,感觉这样比较麻烦,能不能把一个标签的下的所有内容复制成一个新的批处理
比如把下面标签的内容生成新的批处理

:xin
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /a-d /b c:\aaa') do (
     set str=%%i
     for /f "tokens=2 delims=. " %%a in ("%%i") do ren "c:\aaa\!str!" !str: %%a=!
)
pause
复制代码

nnszuo

回复 3# Batcher


我是新手不明白  more +%%i "%~f0" 的意思,可以解释一下么

nnszuo

回复 2# cjiabing
多谢提示,只要做个特定的标记就行
这是我刚做批处理有需要简化的地方没.或者其他类似的批处理,现在学习中需要更多实例

goto :kaishi
::序号1
str="将文字复制到剪贴板 我是文本1"
Set ws = wscript.createobject("wscript.shell")
ws.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
createobject("scripting.filesystemobject").getfile(wscript.scriptfullname).delete

::序号2
str="将文字复制到剪贴板 我是文本2"
Set ws = wscript.createobject("wscript.shell")
ws.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
createobject("scripting.filesystemobject").getfile(wscript.scriptfullname).delete

::序号3
str="将文字复制到剪贴板 我是文本3"
Set ws = wscript.createobject("wscript.shell")
ws.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
createobject("scripting.filesystemobject").getfile(wscript.scriptfullname).delete

::序号4
str="将文字复制到剪贴板 我是文本4"
Set ws = wscript.createobject("wscript.shell")
ws.run "mshta vbscript:clipboardData.SetData("+""""+"text"+""""+","+""""&str&""""+")(close)",0,true
createobject("scripting.filesystemobject").getfile(wscript.scriptfullname).delete
::tingzhi



:kaishi
@echo off&setlocal enabledelayedexpansion
set "ming="序号1-文本 1" "序号2-文本2" "序号3-文本3"  "序号4-文本4""
set "lu="序号1-%~dp0" "序号2-c:\" "序号3-d:\"  "序号4-e:\"" 
for /f "skip=1 tokens=*" %%i in ('type "%~f0"') do (
set ii=%%i
if "%%i" == "::tingzhi" goto yun
for %%a in (%ming%) do (
set w=%%~a
for %%b in (%lu%) do (
set l=%%~b
if "%%i%%i" == "::!w:~0,3!::!l:~0,3!" (
set "s=!l:~4!!w:~4!.vbs"&&cd.>"!s!"
)
)
)
if not "!ii:~2,2!" == "序号" (@echo %%i>>!s!)
)
:yun
pause>nul
复制代码

nnszuo

回复 5# Batcher
感谢讲解,现正学习中,回去看看帮助

nnszuo

嗯.我那看起来太乱