随风

第一个问题和第二个问题
只能处理ansi编码文本。
:

@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
复制代码

batman

第一问：

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"
复制代码

tmplinshi

@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%
复制代码

batman

第二问：

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"
复制代码

ps:昨天是老妈生日，所以没能及时回复。。。

leo198444

抱歉来晚了

bat似乎对utf8文本完全不起作用

我试过超级版主的vbs

但是只能在本地编码作用，vbs改成utf8编码就完全不能执行

请问该怎么办谢谢

batman

不能简单地改文件格式啊，要用转码工具转码

leo198444

所以批处理碰上编码是无解@@

tmplinshi

代码中用到了编码转换工具 iconv。iconv 下载地址：
http://bathome.net/thread-10861-1-2.html

@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%
复制代码

leo198444

不好意思

我再上传一次文本

给大哥们测试看看

我的文本一定要是utf8才能在软件上运行

一但不是utf8就不能使用

可是批处理无法对utf8作处理@@

tmplinshi

24# leo198444


测试了 23 楼的代码吗？

leo198444

24# leo198444


测试了 23 楼的代码吗？
tmplinshi 发表于 2011-5-31 08:27

你好，谢谢你

我已经试过了

但是毫无作用