@echo off&setlocal enabledelayedexpansion
(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
  echo %%a.%%b.%%c.%%d %%e.%%f.%%g.%%h 小计!a!个
)
echo 统计结果总数为：!num!个)>$
move $ a.txt&start a.txt
复制代码

@echo off
setlocal enabledelayedexpansion
(    for /f "tokens=1-8 delims=. " %%a in (a.txt) do (
        set /a "sumrow=(%%e-%%a)*(2<<23)+(%%f-%%b)*(2<<15)+(%%g-%%c)*(2<<7)+%%h-%%d+1"
        set /a sumtotal+=sumrow
        echo %%a.%%b.%%c.%%d %%e.%%f.%%g.%%h 小计!sumrow!个
    )
    echo ------------------------------------------------
    echo 统计结果总数为：!sumtotal!个
)>b.txt
复制代码

@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
复制代码

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")
复制代码