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

Rank: 5Rank: 5

帖子
638 
积分
1253 
技术
1  
捐助
0  
注册时间
2012-7-1 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2023-6-11 03:39 | 只看该作者

[其他] 【已解决】如何用批处理调整BAT代码中的行

本帖最后由 思想之翼 于 2023-6-11 09:31 编辑

如何用批处理代码，将下述BAT代码的第7行提到第6行？
@echo off
for /l %%f in (1000001,1,1001798) do (
    setlocal enabledelayedexpansion
    set p=%%f
        paste ......
        gawk ......【1】
        bwfr  ......【2】
    endlocal
)
exit

结果为：
@echo off
for /l %%f in (1000001,1,1001798) do (
    setlocal enabledelayedexpansion
    set p=%%f
        paste ......
        bwfr  ......【2】
        gawk ......【1】
    endlocal
)
exit
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

czjt1234

Rank: 5Rank: 5

帖子
933 
积分
1397 
技术
101  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2023-6-11 07:54 | 只看该作者
根据行数调整，还是根据该行的内容进行判断调整

QQ 20147578

TOP

思想之翼

Rank: 5Rank: 5

帖子
638 
积分
1253 
技术
1  
捐助
0  
注册时间
2012-7-1 
3楼
发表于 2023-6-11 08:01 | 只看该作者
回复 2# czjt1234
谢谢关注！根据行数调整

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
599 
积分
692 
技术
30  
捐助
0  
注册时间
2023-2-9 
4楼
发表于 2023-6-11 08:21 | 只看该作者
批处理不会 vbs行不？
  1. set fso=createobject("scripting.filesystemobject")

  2. a=split(fso.opentextfile("1.bat",1).readall(),vbcrlf)

  3. t=a(6)

  4. a(6)=a(7)

  5. a(7)=t

  6. set f=fso.createtextfile("1.bat",true,true)

  7. for each aa in a

  8. f.writeline aa

  9. next

  10. f.close()
复制代码
bat应该也差不多 读文件 写数组 变量兑换内容 写文件
1

评分人数

TOP

思想之翼

Rank: 5Rank: 5

帖子
638 
积分
1253 
技术
1  
捐助
0  
注册时间
2012-7-1 
5楼
发表于 2023-6-11 08:51 | 只看该作者
回复 4# jyswjjgdwtdtj
感谢帮助！vbs代码运行时，出现第3行下标越界，代码800A0009

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
599 
积分
692 
技术
30  
捐助
0  
注册时间
2023-2-9 
6楼
发表于 2023-6-11 09:12 | 只看该作者
回复 5# 思想之翼 
  1. set fso=createobject("scripting.filesystemobject")

  2. a=split(fso.opentextfile("1.bat",1).readall(),vbcrlf)

  3. t=a(5)

  4. a(5)=a(6)

  5. a(6)=t

  6. set f=fso.createtextfile("1.bat",true)

  7. for each aa in a

  8. f.writeline aa

  9. next

  10. f.close()
复制代码
测试代码不要用你提供的 里面的【记事本检测到会自动把编码转成utf16 就读不了了 utf8可以
1

评分人数

TOP

77七

Rank: 6Rank: 6

帖子
1242 
积分
2140 
技术
279  
捐助
50  
注册时间
2022-9-18 
7楼
发表于 2023-6-11 11:08 | 只看该作者 
  1. @echo off

  2. %1 >2.bat (for /f "tokens=1* delims=:" %%a in ('%0 rem') do echo %%b) & exit

  3. findstr /n .* 1.bat |findstr /rbc:"[1-5,7]:"

  4. findstr /n .* 1.bat |findstr /rbvc:"[1-5,7]:"
复制代码
1

评分人数

bat小白，请多指教！谢谢！

TOP

返回列表