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

For Each r As Row In Tables("myexcel").Rows

问题： 【对比结果】不存在出现时 ，在【交费核对】自动打勾的公式

此主题相关图片如下：)`gb5`o4q8nr${13xt~0q9.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

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

公式修改成如图所示

1.添加代码，名称 2.加入日期

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:4-3.txt

此主题相关图片如下：t1~_{(j2x3jp7r)iy0v(hc.png

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

 解决导入word中的公式，同时需过滤◎口 等特殊符号

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:样本.rar

此主题相关图片如下：1_0%n99aca}v0e2_y92~}xn.png

参考下面，细节自己处理。数据不规范，没有办法处理

 

需导入这样的可以

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 - 副本.table

参考代码

 

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

这是什么情况？

此主题相关图片如下：i0k_~oels$k$iryxvlompp.png