- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 扯开内容 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94457)
-- 发布时间：2016/12/23 20:56:00
-- 扯开内容
能把录入的分开到每列吗 感谢 感谢
此主题相关图片如下：qq截图20161223205405.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:分拆.table |
-- 发布时间：2016/12/23 21:23:00
--
Dim s As String="1 excuse me [ik\' skju:z] v.原谅"
\'s="10 very much 非常地 "
s=s.trim(" ")
Dim xuhao,yingwen,yinbiao,hanzi
Dim a() As String
If s.Contains("[") Then \'有音标
a=s.Split("[")
yinbiao="[" & a(1).Split("]")(0) & "]"
hanzi=a(1).Split("]")(1).trim(" ")
xuhao=a(0).Split(" ")(0)
yingwen=a(0).Replace(xuhao & " ","").trim(" ")
Else
a=s.Split(" ")
xuhao=a(0)
hanzi=a(a.Length-1)
a(0)=""
a(a.Length-1)=""
yingwen=String.Join(" ",a)
End If
Output.Show("序号" & xuhao)
Output.Show("英文" & yingwen)
Output.Show("音标" & yinbiao)
Output.Show("汉字" & hanzi)
\'s="10 very much 非常地 "
s=s.trim(" ")
Dim xuhao,yingwen,yinbiao,hanzi
Dim a() As String
If s.Contains("[") Then \'有音标
a=s.Split("[")
yinbiao="[" & a(1).Split("]")(0) & "]"
hanzi=a(1).Split("]")(1).trim(" ")
xuhao=a(0).Split(" ")(0)
yingwen=a(0).Replace(xuhao & " ","").trim(" ")
Else
a=s.Split(" ")
xuhao=a(0)
hanzi=a(a.Length-1)
a(0)=""
a(a.Length-1)=""
yingwen=String.Join(" ",a)
End If
Output.Show("序号" & xuhao)
Output.Show("英文" & yingwen)
Output.Show("音标" & yinbiao)
Output.Show("汉字" & hanzi)
注：汉字间不能有空格
-- 发布时间：2016/12/23 21:30:00
--
感谢 感谢 没反映呢 填麻烦了
-- 发布时间：2016/12/23 22:01:00
--
表AfterEdit事件
If e.Col.Name = "录入" And e.Row(e.Col.name).Startswith("Lesson")=False Then
Dim s As String =e.Row(e.Col.name)
s=s.trim(" ")
Dim xuhao,yingwen,yinbiao,hanzi
Dim a() As String
If s.Contains("[") Then \'有音标
a=s.Split("[")
yinbiao="[" & a(1).Split("]")(0) & "]"
hanzi=a(1).Split("]")(1).trim(" ")
xuhao=a(0).Split(" ")(0)
yingwen=a(0).Replace(xuhao & " ","").trim(" ")
Else
a=s.Split(" ")
xuhao=a(0)
hanzi=a(a.Length-1)
a(0)=""
a(a.Length-1)=""
yingwen=String.Join(" ",a).trim(" ")
End If
e.Row("序号") = xuhao
e.Row("英文") = yingwen
e.Row("音标") = yinbiao
e.Row("汉语") = hanzi
End If
[此贴子已经被作者于2016/12/23 22:20:12编辑过]
-- 发布时间：2016/12/23 22:20:00
--
With Tables("表A")
Dim cns() As String = {"序号","英文","音标","汉语"}
For Each r As Row In .Rows
If r("录入").Contains("Lesson") = False Or r.IsNull("录入") = False Then
If r("录入").Contains("[") Then
Dim strs() As String = r("录入").Split(" ")
For i As Integer = 0 To cns.Length - 1
r(cns(i)) = strs(i)
Next
End If
End If
Next
End With
此主题相关图片如下：qq截图20161223222043.png
[此贴子已经被作者于2016/12/23 22:22:59编辑过]