如何去掉首字符的点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

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

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

参考代码

'''
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

请用16楼的数据测试。

下载信息 [文件大小：17.5 KB 下载次数：2]
点击浏览该文件:样本.rar

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

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:考试.table

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