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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 字符串解决办法

共有8550人关注过本帖树形打印复制链接主题：字符串解决办法

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2012/3/11 13:14:00 [显示全部帖子]

Dim s,s1,s2 As String
Dim Tel As String = "中国黑龙江省吉林市某某公司"
Dim Parts() As String = Tel.Split("国")
Dim Parts1() As String = Tel.Split("省")
Dim Parts2() As String = Tel.Split("市")
s = Parts(0) & "国"
s1 = Parts1(0) & "省"
s1 = s1.replace(s,"")
s2 = Parts1(1)

Output.Show("第二列: " & s)
Output.Show("第三列: " & s1)
Output.Show("第四列: " & s2)

[此贴子已经被作者于2012-3-11 16:18:13编辑过]

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2012/3/11 16:18:00 [显示全部帖子]

Dim s,s1,s2 As String
Dim Tel As String = Tables("aaa").current("第一列") ' "中国黑龙江省吉林市某某公司"
Dim Parts() As String = Tel.Split("国")
Dim Parts1() As String = Tel.Split("省")
Dim Parts2() As String = Tel.Split("市")
s = Parts(0) & "国"
s1 = Parts1(0) & "省"
s1 = s1.replace(s,"")
s2 = Parts1(1)

Tables("aaa").current("第二列") = s '或 e.datarow("第二列")

Tables("aaa").current("第三列") = s1

Tables("aaa").current("第四列") = s2

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

主题：字符串解决办法