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

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

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

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))

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

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

oloou

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

加好友

发短信

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

Post By：2012/3/11 14:05: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)

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

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

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

主题：字符串解决办法