主题：将某列的字符拆成两列

第一步：（以*号拆分两列）

利用Split方法，可以用指定的分割符号，将一个字符串拆分成一个字符数组，例如：

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

在命令窗口执行上述代码，得到的结果是：

区号:0759
电话:3166876

第二步：（将两列英语替换成“空值”或者“*比例”）

用Replace方法可以将字符串中的指定内容替换为另一个字符串，例如：

Dim s As String = "abc123abc"
s = s.Replace("123","789") '将123替换为789
OutPut.Show(s)

在命令窗口执行上述代码，得到的结果是：abc789abc