中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-11 15:46

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » 关于批处理处理数值重复,取值和排除的问题

可打印版本　667 / 7

第1楼　yk520	发表于 2009-04-08 10:22
初级用户　发帖 17　积分 24
关于批处理处理数值重复,取值和排除的问题现在有一个经过复杂运算之后得出的一个数值，例如141.523，我想取前三为值，但要过滤重复数字之后的，显示结果为145，如果没有重复（如135.264，则取135）写入2.txt . 然后再写入除（如135）之外的号码（02467890）到3.txt 不知道能否实现，学习学习

第2楼　26933062	发表于 2009-04-08 11:10
银牌会员　发帖 879　积分 2,268
@echo off&setlocal enabledelayedexpansion set n=141.523 set m=%n:.=% for /l %%a in (0 1 9) do set m=!m:%%a= %%a! for %%a in (%m%) do ( if not defined flag ( if not defined .%%a ( set .%%a=a set a=!a! %%a set /a max+=1 if !max! geq 3 set flag=a ))) for /l %%a in (0 1 9) do if not defined .%%a set b=!b! %%a echo !a: =! echo !b: =! pause

第3楼　yk520	发表于 2009-04-08 11:21
初级用户　发帖 17　积分 24
辛苦了，谢谢楼上的朋友，学习了，很实用，比我自己的简单和强多了

第4楼　moniuming	发表于 2009-04-08 11:24
银牌会员　发帖 574　积分 1,335　来自广西
@echo off :aaa Setlocal Enableextensions set str=0123456789&set n=0 set /p in=in: for /f "tokens=1,2 delims=." %%a in ("%in%") do ( set var=%%a%%b ) :aa if %n% geq 3 ( echo.不重复的前3位:%show% echo.剩下的数字为:%str% endlocal goto :aaa ) if not defined %var:~0,1% ( set %var:~0,1%=ok set show=%show%%var:~0,1% call set str=%%str:%var:~0,1%=%% set /a n+=1 ) set var=%var:~1% goto :aa

第5楼　yk520	发表于 2009-04-08 11:28
初级用户　发帖 17　积分 24
高手!!向你们大家学习了

第6楼　netbenton	发表于 2009-04-08 13:06
银牌会员　发帖 752　积分 1,916　来自广西
@echo off set str=0123456789 :rep set in= set/p in=输入数据串： if "%in%"=="" goto :eof Setlocal ENABLEDELAYEDEXPANSION set in=%in:.=% set top=# :lp if "%in%"=="" goto :ok if "!top:%in:~0,1%=!"=="!top!" (set top=%top%%in:~0,1%&set str=!str:%in:~0,1%=!) set in=%in:~1% if "%top:~0,-3%"=="" goto :lp :ok echo.%top:~1% echo.%str% endlocal&goto :rep

第7楼　yk520	发表于 2009-04-09 01:39
初级用户　发帖 17　积分 24
非常感谢！你的这段很实用，前面的两朋友，我在使用的时候，发现了问题，就是当我的数值为112.2,就是说只能取到两个值的时候,就显示错误,很感谢6楼的朋友,已经解决

第8楼　ligui0001	发表于 2009-04-09 03:42
初级用户　发帖 41　积分 58
不错

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023