wh1234567

回复 15# ivor


    可能是set duankouhao= 这里的原因，如果set duankouhao= 21,22,23,25,26，正常显示，如果是set duankouhao= 21-26这样就不支持了，修正都支持就完美了，
输出时如果相应的端口号文本里没有本次ip就输出，有的话就无需再次重复输出，这样就不会出现每个相应的文本里有重复ip，可能你没有理解我说的去除重复ip的意思。在扫描的时候相同ip加相同端口会出现很多次，所以记录的是个数而不是次数
例如24.txt文本里有多个重复的，就需要去除重复。所以最好的办法是在输出时自动判断是否有重复
在这里小弟很感激

wh1234567

回复 15# ivor


   能不能实现 set duankouhao=既支持21,22,23,26  也支持21-26这种格式

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，可以反馈

wh1234567

回复 7# ivor

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，这是第一个问题的批处理，还得劳驾修改一下，呵呵

pdanniel66

回复 17# wh1234567


    Result.txt 事如何產生的 ?
    可否提供原文件 (若檔案太大，建議提供 100-200 行)