@echo off
for /f "delims=:" %%i in ('findstr /ni "</tabID>" a.txt') do set /a h=%%i
((for /f "delims=" %%i in ('findstr /n .* a.txt') do (
   set "str=%%i"
   for /f "delims=:" %%a in ("%%i") do set /a i=%%a
   setlocal enabledelayedexpansion
   set "str=a!str:*:=!"
   set "num=a!num:*:=!"
   if "!str!"=="a" (echo;) else (
      set var=!str: =!
      if "!var!"=="a" (echo;) else (
         if "!str!"=="a<MATab>" (
            if not "!str!"=="!num!" echo;^<MATab^>
         ) else (
            set str=!str:~1!
            if !h! neq !i! (
               echo !str:^</tabID^>=!
             ) else echo !str!
         )
      )
    )
    endlocal
    set "num=%%i"
))>tem.txt
start tem.txt
复制代码

Dim fso, vbstr, regex
Set fso = CreateObject("scripting.filesystemobject")
vbstr = fso.OpenTextFile("a.txt", 1).ReadAll()
Set regex = New RegExp
regex.Global = True
regex.Pattern = "([.\s]+)<MATab>[\s]+<MATab>([.\s]+)"
vbstr = regex.Replace(vbstr, "$1<MATab>$2")
fso.OpenTextFile("a.txt", 2, 1).Write vbstr
Set fso = Nothing
Set regex = Nothing
MsgBox "ok"
复制代码

@echo off

rem 在这里设置要修改的文件
set file="a.txt"

set temp_file="%temp%\.tmp.%random%"
set /a tag_num = 0, dup_line = 0

rem 查找“</tabID>”的个数
find /c /i "</tabID>" <%file% >%temp_file%
set /p tag_num=<%temp_file%
if %tag_num% gtr 2 set /a tag_num += 1

rem 为了保留空行
findstr /n .* %file% >%temp_file%

(for /f "usebackq delims=" %%a in (%temp_file%) do (
    set str=%%a
    SetLocal EnableDelayedExpansion
    set str= !str:*:=!
    if /i "!str: =!" == "<MATab>" (
        set /a dup_line += 1
    ) else (
        set dup_line=0
        if !tag_num! gtr 2 (
            if /i "!str:</tabID>=!" neq "!str!" (
                set "str=!str:</tabID>=!"
                set /a tag_num -= 1
            )
        )
    )
    if !dup_line! leq 1 echo,!str:~1!
    for /f "tokens=1,2" %%a in ("!tag_num! !dup_line!") do (
        EndLocal
        set tag_num=%%a
        set dup_line=%%b
    )
)) >%file%

del %temp_file%
复制代码

Dim fso, vbstr, vbout
Set fso = CreateObject("scripting.filesystemobject")
vbstr = fso.OpenTextFile("a.txt", 1).ReadAll()
Dim str, stra
If UBound(Split(vbstr, "</tabID>")) < 3 Then stra = "</tabID>"
For i = 0 To UBound(Split(vbstr, "</tabID>"))
  If i = UBound(Split(vbstr, "</tabID>")) - 1 Then 
    vbout = vbout & Split(vbstr, "</tabID>")(i) & "</tabID>"
    Else
    vbout = vbout & Split(vbstr, "</tabID>")(i) & stra
  End If
Next
fso.OpenTextFile("a.txt", 2, 1).Write vbout
Set fso = Nothing
MsgBox "ok"
复制代码

@echo off

rem 在这里设置要修改的文件
set file="4.htm"

set temp_file="%temp%\.tmp.%random%"
set /a tag_num = 0, dup_line = 0

rem 查找“</tabID>”的个数
find /c /i "</tabID>" <%file% >%temp_file%
set /p tag_num=<%temp_file%
if %tag_num% gtr 2 set /a tag_num += 1

iconv -f utf-8 -t gbk -c %file% | findstr /n .* >%temp_file%

(for /f "usebackq delims=" %%a in (%temp_file%) do (
    set str=%%a
    SetLocal EnableDelayedExpansion
    set str= !str:*:=!
    if /i "!str: =!" == "<MATab>" (
        set /a dup_line += 1
    ) else (
        set dup_line=0
        if !tag_num! gtr 2 (
            if /i "!str:</tabID>=!" neq "!str!" (
                set "str=!str:</tabID>=!"
                set /a tag_num -= 1
            )
        )
    )
    if !dup_line! leq 1 echo,!str:~1!
    for /f "tokens=1,2" %%a in ("!tag_num! !dup_line!") do (
        EndLocal
        set tag_num=%%a
        set dup_line=%%b
    )
)) >%file%

iconv -f gbk -t utf-8 %file% >%temp_file%
move %temp_file% %file%
复制代码