ArdentMan

借用超版的代码哈：

@Echo Off&SetLocal EnableDelayedExpansion
Set "Kg=                                               "
(For /f "Tokens=1-8 Delims=. " %%a in (a.txt) do (
  Set /a "a=(%%e-%%a)*(2<<23)+(%%f-%%b)*(2<<15)+(%%g-%%c)*(2<<7)+%%h-%%d+1,Num+=a
  Set Str1=%%a.%%b.%%c.%%d%Kg%
  Set Str2=%%e.%%f.%%g.%%h%Kg%
  Echo !Str1:~,17!!Str2:~,17!小计!a!个                   
)
Echo -------------------------------------------------------------------------
Echo 统计结果总数为：!Num!个)>$
Move $ a.txt&Start a.txt
复制代码

ArdentMan

楼主太不顾及别人的感觉了吧

一个贴子想把所有问题解决了？

另开一个贴子罗~~~~~~~~

ArdentMan

IP有10位数的？

好像都是0-255吧，最多也只有三位数啊？

ArdentMan

楼上最好给出例子，不然我是不明白你的意思

ArdentMan

Dim FSO, Arr1, Str1, Arr2, Str2, Arr3, Number, Total, Answer
Dim Num(2)
Set FSO = CreateObject("Scripting.FileSystemObject")
Arr1 = Split(FSO.OpenTextFile("a.txt").ReadAll(), vbCrLf)
For Each Str1 In Arr1
  If Str1 <> vbNullString Then
   Arr2 = Split(Str1, Space(1)) : i = -1 
   For Each Str2 In Arr2
     i = i + 1
     Arr3 = Split(Str2, ".")
     Num(i) = Arr3(0) * 256 * 256 * 256 + Arr3(1) * 256 * 256 + Arr3(2) * 256 + Arr3(3)
     Answer = Answer & Str2 & vbTab
   Next
   Number = Num(1) - Num(0) + 1
   Total = Total + Number
   Answer = Answer & "小计" & Number & "个" & vbCrLf
  End If
Next
Answer = Answer & String(45, "-") & vbCrLf & "统计结果总数为：" & Total & "个"
FSO.OpenTextFile ("a.txt", 2, True).Write Answer
Set FSO = Nothing
CreateObject("Wscript.Shell").Run("a.txt")
复制代码

ArdentMan

26# wh1234567

偶的神，存为Jisuan.vbs再双击