以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字符串解决办法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17361)
--  作者：oloou
--  发布时间：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
--  发布时间：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
--  发布时间：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)

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

 
--  作者：mr725
--  发布时间：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