回复 tmplinshi
不好意思,还需要打扰您。昨天试了代码,但没仔细验证结果,现在发现还有点问题。 ...
sweet惜缘 发表于 2012-12-5 09:00 - @echo off
- setlocal enabledelayedexpansion
-
- REM 设置文件名
- set File="a.txt"
-
- REM 统计文本行数
- for /f %%a in ('find /c /v "" ^< %file%') do set #=%%a
-
- REM --------------------------------------------------
- set _Start=
-
- (
- for /l %%a in (1 1 %#%) do (
- set OldStr=
- set NewStr=
- set /p OldStr=
-
- if not defined _Start (
-
- set NewStr=!OldStr!
- set _Start=1
-
- setlocal
- for %%a in (!OldStr:* ^=!) do set ~%%a=1
-
- ) else (
-
- if defined OldStr (
- for %%a in (!OldStr!) do (
- if not defined NewStr (
- set NewStr=%%a
- ) else (
- if defined ~%%a (
- set NewStr=!NewStr! %%a 1
- ) else (
- set NewStr=!NewStr! %%a 0
- )
- )
- )
- ) else (
- endlocal
- set NewStr=
- set _Start=
- )
-
- )
-
- echo,!NewStr!
- )
- ) <%file% >Result.txt
复制代码
|