截取字符串 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 截取字符串

共有2052人关注过本帖树形打印复制链接主题：截取字符串

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

截取字符串

Post By：2017/9/15 11:49:00 [只看该作者]

老师，您好！

如列“部品ID”是类似“BB12345678AA”

我需要截取中间的8位（12345678），要去掉前2位和后2位，

请问老师，怎么弄呢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/15 11:55:00 [只看该作者]

Dim str As String = "BB12345678AA"
If str.length >= 2 Then
str = str.SubString(2, str.Length-4)
msgbox(str)
End If

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/9/15 11:59:00 [只看该作者]

谢谢老师，如截取前的是“部品ID”列，截取完后的放入“部品”列，

想将截取后的放入“部品”列，这样如何写呢？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/15 12:12:00 [只看该作者]

DataColChanged

If e.DataCol.name = "部品id"
    Dim str As String = e.newvalue
    If str.length >= 2 Then
        str = str.SubString(2, str.Length-4)
        e.DataRow("部品") = str
    Else
        e.DataRow("部品") = Nothing
    End If
End If

zhangning

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

加好友

发短信

等级：二尾狐帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00

Post By：2017/9/29 15:21:00 [只看该作者]

老师，您好！

如果我想要截取前10位，即去掉后2位，

改成下记代码，可以吗？

If e.DataCol.name = "部品id"
    Dim str As String = e.newvalue
    If str.length >= 2 Then
        str = str.SubString(0, str.Length-2)
        e.DataRow("部品") = str
    Else
        e.DataRow("部品") = Nothing
    End If
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/29 15:23:00 [只看该作者]

可以

下一主题 >> << 上一主题

主题：截取字符串