设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 批处理怎样删除文字纵列重复的行？
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发新帖
楼主: leo198444

[文本处理] 批处理怎样删除文字纵列重复的行？

[复制链接]
随风
发表于 2011-5-28 20:50:21 | 显示全部楼层
第一个问题和第二个问题
只能处理ansi编码文本。
:

  2. @echo off
  3. for /f "delims=:" %%i in ('findstr /ni "</tabID>" a.txt') do set /a h=%%i
  4. ((for /f "delims=" %%i in ('findstr /n .* a.txt') do (
  5.    set "str=%%i"
  6.    for /f "delims=:" %%a in ("%%i") do set /a i=%%a
  7.    setlocal enabledelayedexpansion
  8.    set "str=a!str:*:=!"
  9.    set "num=a!num:*:=!"
  10.    if "!str!"=="a" (echo;) else (
  11.       set var=!str: =!
  12.       if "!var!"=="a" (echo;) else (
  13.          if "!str!"=="a<MATab>" (
  14.             if not "!str!"=="!num!" echo;^<MATab^>
  15.          ) else (
  16.             set str=!str:~1!
  17.             if !h! neq !i! (
  18.                echo !str:^</tabID^>=!
  19.              ) else echo !str!
  20.          )
  21.       )
  22.     )
  23.     endlocal
  24.     set "num=%%i"
  25. ))>tem.txt
  26. start tem.txt
复制代码
回复

举报

batman
发表于 2011-5-28 22:54:22 | 显示全部楼层
第一问：

  2. Dim fso, vbstr, regex
  3. Set fso = CreateObject("scripting.filesystemobject")
  4. vbstr = fso.OpenTextFile("a.txt", 1).ReadAll()
  5. Set regex = New RegExp
  6. regex.Global = True
  7. regex.Pattern = "([.\s]+)<MATab>[\s]+<MATab>([.\s]+)"
  8. vbstr = regex.Replace(vbstr, "$1<MATab>$2")
  9. fso.OpenTextFile("a.txt", 2, 1).Write vbstr
  10. Set fso = Nothing
  11. Set regex = Nothing
  12. MsgBox "ok"
复制代码
回复

举报

tmplinshi
发表于 2011-5-29 10:45:25 | 显示全部楼层
本帖最后由 tmplinshi 于 2011-5-29 11:03 编辑
  1. @echo off

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

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

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

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

  17. (for /f "usebackq delims=" %%a in (%temp_file%) do (
  18.     set str=%%a
  19.     SetLocal EnableDelayedExpansion
  20.     set str= !str:*:=!
  21.     if /i "!str: =!" == "<MATab>" (
  22.         set /a dup_line += 1
  23.     ) else (
  24.         set dup_line=0
  25.         if !tag_num! gtr 2 (
  26.             if /i "!str:</tabID>=!" neq "!str!" (
  27.                 set "str=!str:</tabID>=!"
  28.                 set /a tag_num -= 1
  29.             )
  30.         )
  31.     )
  32.     if !dup_line! leq 1 echo,!str:~1!
  33.     for /f "tokens=1,2" %%a in ("!tag_num! !dup_line!") do (
  34.         EndLocal
  35.         set tag_num=%%a
  36.         set dup_line=%%b
  37.     )
  38. )) >%file%

  40. del %temp_file%
复制代码
回复

举报

batman
发表于 2011-5-29 17:59:49 | 显示全部楼层
本帖最后由 batman 于 2011-5-29 18:33 编辑

第二问：

  2. Dim fso, vbstr, vbout
  3. Set fso = CreateObject("scripting.filesystemobject")
  4. vbstr = fso.OpenTextFile("a.txt", 1).ReadAll()
  5. Dim str, stra
  6. If UBound(Split(vbstr, "</tabID>")) < 3 Then stra = "</tabID>"
  7. For i = 0 To UBound(Split(vbstr, "</tabID>"))
  8.   If i = UBound(Split(vbstr, "</tabID>")) - 1 Then
  9.     vbout = vbout & Split(vbstr, "</tabID>")(i) & "</tabID>"
  10.     Else
  11.     vbout = vbout & Split(vbstr, "</tabID>")(i) & stra
  12.   End If
  13. Next
  14. fso.OpenTextFile("a.txt", 2, 1).Write vbout
  15. Set fso = Nothing
  16. MsgBox "ok"
复制代码
ps:昨天是老妈生日，所以没能及时回复。。。
回复

举报

leo198444
 楼主| 发表于 2011-5-30 02:11:22 | 显示全部楼层
抱歉来晚了

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

我试过超级版主的vbs

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

请问该怎么办谢谢
回复

举报

batman
发表于 2011-5-30 08:23:06 | 显示全部楼层
不能简单地改文件格式啊，要用转码工具转码
回复

举报

leo198444
 楼主| 发表于 2011-5-30 14:16:11 | 显示全部楼层
所以批处理碰上编码是无解@@
回复

举报

tmplinshi
发表于 2011-5-30 18:34:08 | 显示全部楼层
本帖最后由 tmplinshi 于 2011-5-31 08:32 编辑

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

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

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

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

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

  16. (for /f "usebackq delims=" %%a in (%temp_file%) do (
  17.     set str=%%a
  18.     SetLocal EnableDelayedExpansion
  19.     set str= !str:*:=!
  20.     if /i "!str: =!" == "<MATab>" (
  21.         set /a dup_line += 1
  22.     ) else (
  23.         set dup_line=0
  24.         if !tag_num! gtr 2 (
  25.             if /i "!str:</tabID>=!" neq "!str!" (
  26.                 set "str=!str:</tabID>=!"
  27.                 set /a tag_num -= 1
  28.             )
  29.         )
  30.     )
  31.     if !dup_line! leq 1 echo,!str:~1!
  32.     for /f "tokens=1,2" %%a in ("!tag_num! !dup_line!") do (
  33.         EndLocal
  34.         set tag_num=%%a
  35.         set dup_line=%%b
  36.     )
  37. )) >%file%

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

举报

leo198444
 楼主| 发表于 2011-5-31 08:00:57 | 显示全部楼层
不好意思

我再上传一次文本

给大哥们测试看看

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

一但不是utf8就不能使用

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

举报

tmplinshi
发表于 2011-5-31 08:27:58 | 显示全部楼层
24# leo198444


测试了 23 楼的代码吗？
回复

举报

leo198444
 楼主| 发表于 2011-6-1 04:48:04 | 显示全部楼层
24# leo198444


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


你好，谢谢你

我已经试过了

但是毫无作用
回复

举报

12
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 14:13 , Processed in 0.019828 second(s), 7 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表