[文本处理] [已解决]求助批处理用一个文件的内容替换另一个文件一整段内容

Rank: 4

帖子: 244
积分: 305
技术: 7
捐助: 0
注册时间: 2012-4-21

3楼

发表于 2023-11-30 09:01 | 只看该作者

本帖最后由 hnfeng 于 2023-11-30 09:03 编辑

回复 2# ShowCode

需要替换的蓝色文字，其实是我的批处理里面用作设置变量的，格式全部是 set abc123=xxxxxxxxx
其中 xxxxxxxxx 可能含有数字英文中文标点符号！$（）—-+【{}】；‘’:"，。、《》TAB 等，如果有特殊符号不能使用，我可以不用

hfxiang

上尉

Rank: 5 Rank: 5

帖子: 601
积分: 1128
技术: 166
捐助: 0
注册时间: 2022-6-20

4楼

发表于 2023-11-30 09:13 | 只看该作者

回复 1# hnfeng

用gawk（ http://bcn.bathome.net/tool/5.1.0/gawk.exe ）实现方法如下：

gawk "/^:abcd$/,/^goto :EOF$/{if(/^:abcd$/){print;while((getline < \"NewTxt.txt\")>0){print}}if(/^goto :EOF$/)print;next}1" 1.bat>2.bat
复制代码

1 评分人数

Batcher: 乐于助人技术 + 1

qixiaobin0715

大校

Rank: 7 Rank: 7 Rank: 7

帖子: 2852
积分: 4174
技术: 430
捐助: 0
注册时间: 2016-2-20

5楼

发表于 2023-11-30 11:15 | 只看该作者

@echo off
(for /f "skip=1 tokens=1* delims=]" %%i in ('find /v /n "" test.bat') do (
    if "%%j"==":abcd" (
        set n=true
        echo,%%j
        type NewTxt.txt
    ) else if defined n (
        if "%%j"=="goto :EOF" (
            echo,%%j
            set n=
        )
    ) else (
        echo,%%j
)
))>New-test.bat
pause
复制代码

Rank: 4

帖子: 244
积分: 305
技术: 7
捐助: 0
注册时间: 2012-4-21

6楼

发表于 2023-11-30 11:39 | 只看该作者

回复 4# hfxiang

多谢多谢，非常好用

aloha20200628

上尉

Rank: 5 Rank: 5

帖子: 877
积分: 1459
技术: 189
捐助: 0
注册时间: 2021-10-13

7楼

发表于 2023-11-30 12:42 | 只看该作者

一楼想要的结果亦可尝试如下方案，如此不必文本替换了》仅供参考
一。若NewTxt.txt中内容皆为批处理代码，可改扩展名为 NewTxt.bat 或 NewTxt.cmd
二。其中的 set abc123=xxxxxxxxx 句式改为 set "abc123=xxxxxxxxx" 备注》即便用双引号包裹，也不要在赋值表达式中包含%!^<|>等批处理脚本内定的语义字符
三。一楼示例代码中先删除 :abcd 至 goto :EOF 段落，再将 call :abcd 改为 call NewTxt.bat，如此会使外部脚本中的 set "abc123=xxxxxxxxx" 句式被自动执行，变为当前脚本中相应的赋值变量

Rank: 4

帖子: 244
积分: 305
技术: 7
捐助: 0
注册时间: 2012-4-21

8楼

发表于 2023-11-30 13:34 | 只看该作者

回复 7# aloha20200628

您说的确实是一种不错的方法。

以前我也这样用过，但是后来发现，如果被调用的批处理开头有
mshta vbscript:CreateObject("Shell.Application"............... 或其他 VBS 那样以管理员身份运行的命令时，可能会出错或有错误信息（可能因为主批处理已经有这些命令了，不能重复运行），所以此次没想到用这个方法。但是如果仅仅是变量赋值，就没这个问题了，行得通。

set 命令里添加引号比较麻烦（原始数据是从excel复制过来的），$% 这些肯定要用的（貌似也可以用）， ^<|> 是不能使用的

谢谢指教

aloha20200628

上尉

Rank: 5 Rank: 5

帖子: 877
积分: 1459
技术: 189
捐助: 0
注册时间: 2021-10-13

9楼

发表于 2023-11-30 16:27 | 只看该作者

回复 8# hnfeng

在调试/排错或维护一个大型批处理脚本时，用call调用其他外部批处理脚本（子过程/子模块）是常用的方法之一，如果单独运行某个子脚本无误，则在主脚本中用call调用这个子脚本也应该ok。
顺便给个提示》mshta的ie引擎到ie11版就不再支持vbs代码了，若非要使用须在mshta脚本中的头标签中加注有关的版本设定，例如头标签中至少包含如下代码
<head><meta http-equiv="x-ua-compatible" content="ie=11"></head>

WHY

上校

Rank: 6 Rank: 6

帖子: 1482
积分: 3266
技术: 567
捐助: 0
注册时间: 2015-7-19

10楼

发表于 2023-11-30 16:29 | 只看该作者

本帖最后由 WHY 于 2023-12-1 11:17 编辑

另一种办法：

gawk -v IGNORECASE=1 "NR==FNR{a[NR]=$0;next}!n{print}!n&&/^:abcd$/{for(i in a)print a[i];n=1}n&&/^goto :EOF$/{print;n=0}" NewTxt.txt 1.bat > 2.bat
复制代码

也练习下纯批
改一下，少一个endlocal

@echo off
for /f "delims=" %%i in ('findstr /n .* 1.bat') do (
    set "s=%%i"
    setlocal enabledelayedexpansion
    set "s=!s:*:=!"
    if not defined flag (
        echo;!s!
        if /i "!s!" == ":abcd" (
            endlocal
            type NewTxt.txt | find /v ""
            set flag=1
        ) else (
            endlocal
        )
    ) else if /i "!s!" == "goto :EOF" (
        echo;!s!
        endlocal
        set "flag="
    )  else (
        endlocal
    )
)
pause
复制代码

Test.js

var txtFileName = 'NewTxt.txt';  //txt文件名
var batFileName = '1.bat';       //修改前bat文件名
var dstFileName = '2.bat';       //修改后bat文件名

var fso = new ActiveXObject('Scripting.FileSystemObject');

var s1 = fso.OpenTextFile(txtFileName, 1).ReadAll();  //读txt文本内容
var s2 = fso.OpenTextFile(batFileName, 1).ReadAll();  //读bat文本内容

s1 = s1.replace(/(?!\r\n).$/, '$&\r\n');  //txt结尾添加回车换行
s2 = s2.replace(/^(:abcd\r\n)(?:(?!goto :EOF)[\s\S])+(?=goto :EOF)/mi, '$1' + s1); //替换内容

fso.OpenTextFile(dstFileName, 2, true).Write(s2);

WSH.Echo('Done')
复制代码

1 评分人数

Batcher: 乐于助人技术 + 1

Rank: 4

帖子: 244
积分: 305
技术: 7
捐助: 0
注册时间: 2012-4-21

11楼

发表于 2023-11-30 16:50 | 只看该作者

回复 10# WHY

gawk 命令有效，试验成功

纯批处理的，与5楼那个一样，不成功。

gawk 就蛮好的，谢谢

WHY

上校

Rank: 6 Rank: 6

帖子: 1482
积分: 3266
技术: 567
捐助: 0
注册时间: 2015-7-19

12楼

发表于 2023-11-30 19:33 | 只看该作者

回复 11# hnfeng

"不成功" 是指脚本运行时出错，还是指脚本运行后结果不对？
能否把你需要修改的 1.bat 和 NewTxt.txt 放到网盘，我测试一下。

Rank: 4

帖子: 244
积分: 305
技术: 7
捐助: 0
注册时间: 2012-4-21

13楼

发表于 2023-12-1 09:11 | 只看该作者

本帖最后由 hnfeng 于 2023-12-1 09:21 编辑

回复 12# WHY

我看了看你的批处理代码，代码没问题，与 5 楼的代码一样，加行号的处理和使用 type 替换进来 NewTxt.txt 的内容的方法很巧妙，只是最后您忘记输出结果了

倒数第二行修改为
)>>2.bat
就好了

赞一个

Rank: 4

帖子: 244
积分: 305
技术: 7
捐助: 0
注册时间: 2012-4-21

14楼

发表于 2023-12-1 09:16 | 只看该作者

本帖最后由 hnfeng 于 2023-12-1 09:22 编辑

回复 5# qixiaobin0715

代码也能成功完成，之前是我把文件名输错了，不好意思抱歉了

加行号的处理和使用 type 替换进来 NewTxt.txt 的内容的方法很巧妙

谢谢，赞一个

terse

中将

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

15楼

发表于 2023-12-1 19:20 | 只看该作者

来一个gawk处理一楼的示例，简单的逻辑，

gawk "/^:goto EOF$/{n=0}!n{print}/^:abcd$/{n=1;while((getline<\"NewTxt.txt\")>0)print;next}" 1.bat>2.bat
复制代码