Batcher

回复 15# 786021512

@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1-3,* delims=(, eol=" %%a in ('type "1.txt"') do (
    if "%%b" equ "" (
        echo,%%a
    ) else (
        set str=%%b
        if "%%a" equ "BATHOME" (
            echo %%a(%%b,!str:~3,3!!str:~8,4!,%%d
        ) else (
            echo %%a(%%b,%%c,%%d
        )
    )
))>"2.txt"
复制代码

786021512

回复 16# Batcher


    啊啊啊，里面的内容虽然被替换了，但是开头行标题被省去了

Batcher

回复 17# 786021512


    你用的测试数据是哪个？得到的结果跟预期相比少了哪一行？我试试

xczxczxcz

你们搞的好复杂啊：
P:

@echo off &cd/d "%~dp0"
setlocal enabledelayedexpansion
(for /f "eol= delims=" %%a in (ref.txt) do (
	echo %%a>tmp
	findstr /i "^BATHOME" tmp>nul && (
		for /f "tokens=1,2* delims=," %%i in (tmp) do (
			set "str=%%i"
			set "n1=!str:~11,3!"
			set "n2=!str:~16,4!"
			echo %%i,!n1!!n2!,%%k
		)
	) || echo %%a
))>OK.txt
del /q tmp
pause
复制代码

PS版 用BAT运行

@echo off
PowerShell "$ErrorActionPreference='SilentlyContinue';Foreach ($line in (GC '.\ref.txt' -enc Default)){if ($line -match \"^BATHOME\"){$Array=@(($line.replace('NET','NET/').replace(',','/,/').Replace('WP','/WP/')) -Split('/'));$Array[5]=([string]$Array[1]+([string]($Array[3])).SubString(0,4));$Str='';(0..($Array.Count -1))|%%{$Str=[string]$Str+[string]$Array[$_]};Write-Host $str -fore Yellow;} else {$line;}};"
pause
复制代码

==================================================

786021512

回复 18# Batcher
额是我看错了万分感谢

WHY

关于 eol
for /f "eol= delims=" %%i in (...) do ... 会忽略空格开头的行
for /f "delims= eol=" %%i in (...) do ... 会忽略引号开头的行
比较靠谱的办法：
for /f "delims="eol^= %%i in (...) do ...

xp3000

正则表达式轻松解决，灵活运用

786021512

回复 19# xczxczxcz


    大师在请教个问题，我用你的代码发现，我原先程序里面的空行会被去掉，或者
输出的内容会变成ECHO 处于关闭状态该怎么办呢？

flashercs

回复 23# 786021512


    12行 改成echo,%%a

xczxczxcz

回复 23# 786021512

纯p一般会过滤掉空行。你按楼上大神的方法试下。用 下面的 PS 版看能不能达到要求，如果需要 则在 PS版中加入输出文本就可以了。

一般只按你楼顶给的样本写，不在样本范围内的一般不会考虑写到脚本内。