[求助]不能计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有1700人关注过本帖树形打印复制链接主题：[求助]不能计算

明天的灵

小大 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

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/23 22:15:00 [只看该作者]

Dim mc As String = "172.44.135.122"

Dim i As Integer = mc.indexof(".")

mc = mc.substring(i + 1).Replace(".", "")

Dim ii As Integer = CInt(mc)

Output.Show(ii)

明天的灵

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：402 积分：4877 威望：0 精华：0 注册：2017/2/7 7:41:00

Post By：2024/7/23 23:15:00 [只看该作者]

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

明天的灵

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]