[已解决]批处理如何查找出文本每行0-9组成的数字字符串中缺少的数字

necn33 · 发表于 2015-4-3 13:21:58

本帖最后由 pcl_test 于 2016-8-14 20:16 编辑

求助BAT如何批量取反？
如：1.txt 文本：01234567
                  ：12345678

结果： 2.txt文本：01234567 89
                     ：12345678 09

ps：数字均为0-9组成  1.txt文本没规律

pcl_test · 发表于 2015-4-3 15:03:21

本帖最后由 pcl_test 于 2015-4-3 15:09 编辑

回复 1# necn33

@echo off
setlocal enabledelayedexpansion
(for /f "delims=" %%a in ('type "a.txt"') do (
>$ echo,%%a
set s=
for /l %%b in (0 1 9) do find "%%b" $ >nul || set s=!s!%%b
echo,%%a !s!
))>b.txt
del $
pause

复制代码

xxpinqz · 发表于 2015-4-3 15:34:21

@echo off&setlocal enabledelayedexpansion
(for /f "delims=" %%a in (1.txt) do (
set/p.=%%a &set "s=%%a"
for /l %%b in (0,1,9) do if "!s:%%b=!"=="!s!" set/p.=%%b
echo,
))<nul>2.txt

复制代码

pcl_test · 发表于 2015-4-4 10:18:56

本帖最后由 pcl_test 于 2015-4-4 10:22 编辑

'&cls&@echo off&cscript -nologo -e:vbscript %~fs0 & exit /b
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each NowLine In Split(FSO.OpenTextFile("1.txt",1,true).ReadAll,vbCrLf)
For Each NowNum In Split("0 1 2 3 4 5 6 7 8 9")
If InStr(NowLine,NowNum)=0 Then NewLine = NewLine & NowNum
Next
InnMsg = InnMsg & NowLine & " " & NewLine & vbCrLf
NewLine = ""
Next
Set WF = FSO.OpenTextFile("2.txt",2,True)
WF.Write InnMsg
WF.Close
'Msgbox InnMsg
Set FSO = Nothing
Set WF = Nothing

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] [已解决]批处理如何查找出文本每行0-9组成的数字字符串中缺少的数字

评分

评分