ivor

牛人，有必要嵌套这个程度吗，汗

for /f "usebackq tokens=1,2,3*" %%i in (Result.txt) do (
	echo %%i >>%%j.txt
)
复制代码

ivor

回复 4# wh1234567


    不知道你那是什么情况，Result.txt是临时？还是每个%%j.txt是临时文件

ivor

回复 6# wh1234567

for /f "tokens=1,2,3*" %%i in (Result.txt) do (
	if "%%j" NEQ "" if "%%~xj" EQU "" echo %%i >>%%j.txt
)
REM del Result.txt
复制代码

生成的临时文件，已经知道原因，Time文件跟我这个代码应该没有关系吧。那两个类型的临时文件不会产生。但不保证其他的问题发生，因为你的情况我也不完全了解
最后一句注释掉了，前面如果正常则可以去掉注释

ivor

回复 8# wh1234567

@echo off
set duankouhao=1,2,3402,4,5,26,7,8,9
for %%a in (%duankouhao%) do (
	set %%a=ivor
)
for /f "tokens=1,2,3*" %%i in (Result.txt) do (

        if defined %%j if not defined %%i if "%%j" NEQ "" if "%%~xj" EQU "" (
		set %%i=.
		set /a ivor%%j+=1
		echo %%i)>>%%j.txt
)
for /f "tokens=1,2delims==" %%a in ('set ivor') do (
	set var=%%a
	call echo %%var:~4%% 端口记录了总共%%b个

)
pause
REM del Result.txt
复制代码

要自己多学习，不能老问别人哦。楼主挖的一手好坑，你还有要求吗？

ivor

1.功能去除重复IP   2.根据duankouhao变量控制输出端口结果  3.最后显示指定端口总数量

代码精简啊，难，你的功能越要求越复杂。为了测试这个批处理的运行速度，我专门建了一个2W行的不重复IP的文件，搞得我电脑蓝屏，可能是溢出了

问题签名:
  问题事件名称:        BlueScreen
  OS 版本:        6.1.7601.2.1.0.256.1
  区域设置 ID:        2052

哎 ，O__O"…     速度倒是还可以啊，千万别执行上W行的

ivor

回复 12# wh1234567

@echo off
set duankouhao=8080,3389,80,23,20
for %%a in (%duankouhao%) do (
        set prefix%%a=.
)
for /f "tokens=1,2,3*" %%i in (Result.txt) do (

        if defined prefix%%j if "%%j" NEQ "" if "%%~xj" EQU "" (
                
                set /a ivor%%j+=1
                echo %%i)>>%%j.txt
)
for /f "tokens=1,2delims==" %%a in ('set ivor') do (
        set var=%%a & set /a count+=1
        call echo %%var:~4%% 端口记录了总共 %%b 个

)
echo 总计有 %count%个端口号
pause
复制代码

去除重复的功能以去掉，因为检查IP重复是不正确的，可能一个IP会开放多个端口，加的功能越多程序会越慢，如果真要监测重复的IPand端口，可以验证每个%%i(IP)%%j(端口)，在这我就不加了。
修改了会可能会生成TIME文件的代码，你不发出来结果，我还真不相信，程序会生成TIME文件⊙﹏⊙b汗

ivor

你的问题总是层出不穷，我应付不过来了，你还是想好了，总结一下再发新帖吧，然后把你的样本记得上传。


ivor 没定义，是因为result.txt没有数据

ivor

回复 17# wh1234567

@echo off
set /p duankouhao=请输入端口号
echo %duankouhao% | find "-" && goto :Proc

for %%a in (%duankouhao%) do (
        set prefix%%a=.
)

for /f "tokens=1,2,3*" %%i in (Result.txt) do (

        if not defined %%i%%j if defined prefix%%j if "%%j" NEQ "" if "%%~xj" EQU "" (
				set %%i%%j=.
                set /a ivor%%j+=1
                echo %%i)>>%%j.txt
)

for /f "tokens=1,2delims==" %%a in ('set ivor') do (
        set var=%%a & set /a count+=1
        call echo %%var:~4%% 端口记录了总共 %%b 个

)
echo 总计有 %count%个端口号
pause & exit

:Proc
for /f "tokens=1,2 delims=-" %%a in ("%duankouhao%") do (
	set min=%%a & set max=%%b
	
)


for /f "tokens=1,2,3*" %%i in (Result.txt) do (

        if not defined %%i%%j if %%j LEQ %max% if %%j GEQ %min% if "%%j" NEQ "" if "%%~xj" EQU "" (
                set %%i%%j=.
                set /a ivor%%j+=1
                echo %%i)>>%%j.txt
)

for /f "tokens=1,2delims==" %%a in ('set ivor') do (
        set var=%%a & set /a count+=1
        call echo %%var:~4%% 端口记录了总共 %%b 个

)
echo 总计有 %count%个端口号
pause & exit
复制代码

支持范围选择，支持用（为空格、逗号、跳格或等号）分开端口号，支持过滤相同端口号重复IP
新功能不再提供，程序如果有BUG，可以反馈