[已解决]批处理如何快速去除重复与非法字符？

lfoqtal · 发表于 2011-8-19 08:48:04

本帖最后由 lfoqtal 于 2011-8-20 12:25 编辑

1）不论你输入什么只保留1~7的数字
2）保留中数字不重复
3）在10句以内的代码
4）可以较易扩展成其他规则，如保留：成、文

例：
输入：nqwec78411633
输出:74163
输入：9hqw要121q2563
输出：12563

ArdentMan · 发表于 2011-8-19 10:43:31

@Echo Off&SetLocal EnableDelayedExpansion
Set "Code=1 2 3 4 5 6 7"
Set /P Str=请输入：
For %%i In (%Code%) Do Set "Str=!Str:%%i= %%i !"
For %%i In (%Str%) Do (
For %%j In (%Code%) Do (
If %%i EQU %%j If Not Defined _%%i Set "Var=!Var!%%i"&Set "_%%i=a"
)
)
Echo %Var%
Pause>nul

复制代码

mxxcgzxxx · 发表于 2011-8-19 15:46:47

@echo off&setlocal enabledelayedexpansion
set /p p=请输入：
set "a="
echo %p%|findstr "[1-7]">nul||goto :zdms
for /l %%i in (1 1 7) do set p=!p:%%i= %%i !
for %%i in (%p%) do (echo %%i|findstr "^[1-7]$">nul && (echo !a! |findstr "%%i">nul || set "a=!a!%%i"))
echo.有较数字=%a%
pause>nul

复制代码

batman · 发表于 2011-8-19 20:00:13

回复 4# mxxcgzxxx
管道复管道，楼上的代码可有效率？

mxxcgzxxx · 发表于 2011-8-20 05:43:16

回复 5# batman

很没效率，只是一个思路呵

lfoqtal · 发表于 2011-8-20 12:25:38

感谢大家啊，4楼的没法评分了，代码很好就是慢点

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

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

[文本处理] [已解决]批处理如何快速去除重复与非法字符？

评分