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

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

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

oloou

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

加好友

发短信

等级：婴狐帖子：2 积分：81 威望：0 精华：0 注册：2012/3/11 4:19:00

字符串解决办法 发帖心情

Post By：2012/3/11 4:25:00 [只看该作者]

老师们好，我是新手，我有一个数据表需要处理，

Dim Tel As String = "0759-3166876"
Dim Parts() As String = Tel.Split("-")
Output.Show("区号:" & Parts(0))
Output.Show("电话:" & Parts(1))

第一列的内容例如中国黑龙江省吉林市某某公司

我需要将中国黑龙江省吉林市某某公司分别处理到第二、三、四列中；请问实际代码如何写

mr725

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

oloou

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

加好友

发短信

等级：婴狐帖子：2 积分：81 威望：0 精华：0 注册：2012/3/11 4:19:00

Post By：2012/3/11 14:05:00 [只看该作者]

我是新手，很不好意思

我不知道如何定义

s2 = s2.replace(Parts1(0) & "省","") & "市"
Output.Show("第二列: " & s)
Output.Show("第三列: " & s1)
Output.Show("第四列: " & s2)

这个列的变量名；这个代码是在命令窗口测试的吧。我需要能够直接在表里面使用的。应该如何定义呢？

mr725

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

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

主题：字符串解决办法