以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  扯开内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94457)

--  作者:yangwenghd
--  发布时间:2016/12/23 20:56:00
--  扯开内容
能把录入的分开到每列吗 感谢 感谢 
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20161223205405.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:分拆.table



--  作者:fjlclxj
--  发布时间: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)
注:汉字间不能有空格

--  作者:yangwenghd
--  发布时间:2016/12/23 21:30:00
--  
感谢 感谢  没反映呢 填麻烦了  
--  作者:fjlclxj
--  发布时间: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编辑过]

--  作者:wyz20130512
--  发布时间: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编辑过]