主题：扯开内容

表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