ArdentMan

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

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

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

wh1234567

不好意思，就这个批处理，只是只能计算8位数的，10位数或更大的就不能计算出来，显示为0

HAT

批处理能直接计算的最大值和最小值
http://bbs.bathome.net/thread-1145-1-1.html

ArdentMan

IP有10位数的？

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

wh1234567

5# HAT


你好，你能不能帮我是不是需要修改一下代码？将多行结果相加（正确为4294967296）这么大的结果却计算不出来，显示为0，不知道是啥原因

wh1234567

19# ArdentMan

10位数是指全部IP地址个数相加

ArdentMan

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

HAT

方法1：调用VBS计算大数
方法2：调用命令行工具计算大数
方法3：自己编写函数计算大数

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

batman

唉，拿来主义到这里完全变成了伸手主义。。。

wh1234567

24# ArdentMan

有点看不懂，能不能解释一下如何使用？

ArdentMan

26# wh1234567

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

batman

26# wh1234567

真让人蛋疼。。。

wh1234567

27# ArdentMan
很感谢您的二次修改，这下可以正常处理了，我在你第一次写好代码后保存为VBS后不能正常执行提示错误，所以问你如何使用，呵呵呵，不好意思啊，论坛有你们这些高手网友，相信论坛一定越办越火！
哎呀不对，小数值计算没问题，但遇到大数值计算就又出现错误了

脚本:        D:\IP段计算.vbs
行:        11
字符:        6
错误:        下标越界: '[number: 0]'
代码:        800A0009
源:         Microsoft VBScript 运行时错误