Foxtable(狐表)用户栏目专家坐堂 → 如何去掉首字符的点


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

主题:如何去掉首字符的点

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/19 11:34:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/19 12:01:00 [显示全部帖子]

For Each r As Row In Tables("myexcel").Rows
    r("缴费关键字") = r("缴费关键字").trim("'")
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/30 17:29:00 [显示全部帖子]

rt.Cells(rt.Rows.Count-1,0).Style.TextColor = colore.red

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/7 16:37:00 [显示全部帖子]

For Each r As Row In Tables("表A").Rows
    If r("对比结果") = "不存在" Then
        r("交费核对") = True
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/3 9:10:00 [显示全部帖子]

DataTables("股piao").DataRows.Clear
Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("股piao").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName,encoding.default)
    Dim rs() As String = strs.replace(chr(10), "").Split(chr(13))
    For Each s As String In rs
        Dim i As Integer = 0
        Dim nr As Row
        For Each ss As String In s.split(chr(9))
            If ss > "" Then
                If i = 0 Then
                    nr = Tables("股piao").addnew
                    nr("日期") = Date.Today
                    nr("代码") = ss
                ElseIf i = 1 Then
                    nr("名称") = ss
                   
                End If
                i += 1
            End If
        Next
    Next
End If
Tables("股piao").ResumeRedraw

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/9 9:57:00 [显示全部帖子]

参考代码

 

'''
Dim app As New MSWord.Application
try
    Dim fileName = "D:\数据.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim t As Table = Tables("题库")
    Dim r As Row
    Dim j As Integer = 0
    For Each k As object In doc.Paragraphs
        'Output.Show(k.Range.text)
        Output.Show("-------------------")
        For Each s As String In k.Range.text.split(Chr(11))
            output.show(s)
            If s.trim.StartsWith("(") OrElse s.trim.StartsWith("(") Then
                r = t.addnew
                j = 0
            End If
            If j=0 Then
                r("题目") = s
            Else If j=1 Then
                r("A") = s
            Else If j=2 Then
                r("B") = s
            Else If j=3 Then
                r("c") = s
            Else If j=4 Then
                r("D") = s
            End If
            If j = 0 Then
                j += 1
            ElseIf s.StartsWith("A") OrElse s.StartsWith("B") OrElse s.StartsWith("C") OrElse s.StartsWith("D") Then
                r("答案") = s
            Else
                j += 1
            End If
        Next
    Next
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/9 11:49:00 [显示全部帖子]

请用16楼的数据测试。

 

下载信息  [文件大小:17.5 KB  下载次数:2]
图片点击可在新窗口打开查看点击浏览该文件:样本.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/9 12:58:00 [显示全部帖子]

那请上传具体的测试的word数据啊。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/9 12:59:00 [显示全部帖子]

请完整拷贝19楼的代码,最上面的 ''' 也要拷贝的

 

http://www.foxtable.com/webhelp/scr/1273.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/9 16:10:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:考试.table


 回到顶部
总数 11 1 2 下一页