Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]不能计算


  共有1661人关注过本帖树形打印复制链接

主题：[求助]不能计算
帅哥哟，离线，有人找我吗？
明天的灵
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：402 积分：4877 威望：0 精华：0 注册：2017/2/7 7:41:00 		[求助]不能计算  发帖心情 Post By：2024/7/23 21:53:00 [显示全部帖子]

'目的是把IP地址的后三位，转换为数字形式：“44135122”，
'以下代码执行结果却为：301，即只有后三位IP数字直接相加

Dim mc As String
Dim ii As Integer
mc = "172.44.135.122"
Dim Values() As String
Values = mc.split(".")
For Index As Integer = 1 To Values.Length -1    
      Select Case Index
        Case Index =1
            ii = ii + Values (Index) * 1000000
        Case Index = 2
            ii = ii +Values (Index) * 1000
        Case Else    
            ii = ii +Values (Index)*1    
    End Select    
Next    
Output.Show(ii)


 回到顶部
帅哥哟，离线，有人找我吗？
明天的灵
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：402 积分：4877 威望：0 精华：0 注册：2017/2/7 7:41:00 		  发帖心情 Post By：2024/7/23 23:15:00 [显示全部帖子]

 谢谢蓝版主提供另一思路解决问题。

 回到顶部
帅哥哟，离线，有人找我吗？
明天的灵
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：402 积分：4877 威望：0 精华：0 注册：2017/2/7 7:41:00 		  发帖心情 Post By：2024/7/23 23:46:00 [显示全部帖子]

 直接删除后三位“.”还不行。
 如遇到IP数字段只用二位数字时，则顺序变化不符合习惯（大小顺序）
修改为以下代码，输出符合要求。

Dim mc, a, b, c As String
Dim ii As Integer
mc = "172.44.12.12"
Dim Values() As String
Values = mc.split(".")
For Index As Integer = 1 To Values.Length - 1
    Select Case Index
        Case 1
            a = Values (Index) & "000000"
        Case 2
            b = Values (Index) & "000"
        Case Else
            c = Values (Index)
    End Select
Next
ii = Val(a) + Val(b) + Val(c)
Output.Show(ii)
[此贴子已经被作者于2024/7/24 7:19:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
明天的灵
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：402 积分：4877 威望：0 精华：0 注册：2017/2/7 7:41:00 		  发帖心情 Post By：2024/7/24 23:29:00 [显示全部帖子]

谢谢楼上二位狐神，你们代码比我简洁多了，崇拜！！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询