本帖最后由 fhcmail 于 2012-12-15 22:15 编辑
下面是解决办法,再次感谢batman老大的帮忙!
【批处理未处理特殊字符版】用这个处理时文本内不能有特殊字符哟,希望以后有大牛能搞个处理字符的:- @echo off&setlocal enabledelayedexpansion
- set "_1=str"&set "_2=var"
- (for /f "delims=" %%a in (a.txt) do (
- set /a n+=1
- for %%b in (!n!) do set "!_%%b!=%%a"
- if !n! equ 2 (
- if not defined !str!!var! (
- echo !str!&echo !var!&echo,
- set "!str!!var!=a"
- )
- set /a n=0
- )
- ))>b.txt
复制代码 【VBS版,完美处理特殊字符,实测超级给力】- Dim FSO, vbStr, Arr, Str, Counter, vbVar
- vbVar = ""
- Set FSO = CreateObject("Scripting.FileSystemObject")
- vbStr = FSO.OpenTextFile("test.txt").ReadAll
- Arr = Split(vbStr, vbCrLf & vbCrLf)
- For Each Str In Arr
- If InStr(vbVar, Str) = 0 Then vbVar = vbVar & Str & vbCrLf & vbCrLf
- Next
- FSO.OpenTextFile("testb.txt", 2, True).Write vbVar
- CreateObject("Wscript.Shell").run "cmd /cstart testb.txt", True, False
- Set FSO = Nothing
复制代码
|