Foxtable(狐表) → 用户栏目 → 专家坐堂 → 扯开内容


  共有1989人关注过本帖树形打印复制链接

主题：扯开内容
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		扯开内容  发帖心情 Post By：2016/12/23 20:56:00 [只看该作者]

能把录入的分开到每列吗 感谢 感谢 
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161223205405.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:分拆.table
 回到顶部
帅哥哟，离线，有人找我吗？
fjlclxj
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2016/12/23 21:30:00 [只看该作者]

感谢 感谢  没反映呢 填麻烦了  

 回到顶部
帅哥哟，离线，有人找我吗？
fjlclxj
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00 		  发帖心情 Post By：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
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9474 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询