[求助]startindex不能小于0 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

上传文件时，提示“startindex不能小于0”。

上传的实例中附有4个word文档，没发现格式上有什么不同。但有两个文档在上传的时报错，请老师帮助测试，是什么原因？

谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:提取测试.rar

'''
Dim dr As DataRow = e.DataRow
Dim file = e.SourceFolder & "\" & e.filename
Select Case e.DataCol.Name
    Case "上传文件"
        e.Subfolder = e.DataRow("承办人") '将此文件存放在目录名为承办人名称的子目录中.
        Dim app As New MSWord.Application
        try
            Dim doc = app.Documents.Open(file)
            Dim count = Doc.Characters.Count
            Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
            Dim str As String = rng.text
            'For Each s As String In str
                'output.show(s & " " & Asc(s))
            'Next
            msgbox(str)
            '清除段落空行,得到一个不含空行的集合
            Dim idx = str.IndexOf("书记员")
            If idx < 0 Then idx = str.IndexOf("书记员".replace(" ", chr(-24159)))
            'msgbox(idx)
            Dim idx2 = str.SubString(idx).indexof(Chr(13))
            'msgbox(idx2)
            If idx2 > -1 Then
                str = str.SubString(0, idx+idx2)
            End If
            Dim ary() = str.replace(chr(10), "").split(new Char() {chr(13),chr(11)})
            Dim lst As new List(Of String)
            For Each s As String In ary
                If s.trim() > "" AndAlso s.contains("受理费") = False AndAlso s.contains("终审") = False AndAlso s.contains("不服") = False Then
                    lst.add(s)
                End If
            Next
            app.Quit
        catch ex As exception
            msgbox(ex.message)
            app.Quit
        End try
End Select

谢谢老师！

"530"这个文档可以了，“1065”这个文档还报错。

另外，"书记员"这三个字的字间距是一个空格吧？

If idx < 0 Then idx = str.IndexOf("书记员".replace(" ", chr(-24159)))

'''
Dim dr As DataRow = e.DataRow
Dim file = e.SourceFolder & "\" & e.filename
Select Case e.DataCol.Name
    Case "上传文件"
        e.Subfolder = e.DataRow("承办人") '将此文件存放在目录名为承办人名称的子目录中.
        Dim app As New MSWord.Application
        try
            Dim doc = app.Documents.Open(file)
            Dim count = Doc.Characters.Count
            app.ActiveWindow.Selection.WholeStory
            app.ActiveWindow.Selection.Copy
            'Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)
            Dim str As String = ClipBoard.GetText
            ‘For Each s As String In str
            ’    output.show(s & " " & Asc(s))
            ‘Next
            'msgbox(str)
            '清除段落空行,得到一个不含空行的集合
            Dim idx = str.IndexOf("书记员")
            If idx < 0 Then idx = str.IndexOf("书记员".replace(" ", chr(-24159)))
            'msgbox(idx)
            Dim idx2 = str.SubString(idx).indexof(Chr(13))
            'msgbox(idx2)
            If idx2 > -1 Then
                str = str.SubString(0, idx+idx2)
            End If
            Dim ary() = str.replace(chr(10), "").split(new Char() {chr(13),chr(11)})
            Dim lst As new List(Of String)
            For Each s As String In ary
                If s.trim() > "" AndAlso s.contains("受理费") = False AndAlso s.contains("终审") = False AndAlso s.contains("不服") = False Then
                    lst.add(s)
                End If
            Next
            app.Quit
        catch ex As exception
            msgbox(ex.message)
            app.Quit
        End try
End Select

甜老师，有些文书不是"书记员"，而是"代理书记员"，楼上的代码，我加了半句加黑的代码，但是不起作用，请老师看看怎么办？

谢谢！
...

Dim idx = str.IndexOf("书记员")
If idx < 0 Then idx = str.IndexOf("书记员".replace(" ", chr(-24159))) or idx = str.IndexOf("代理书记员")

...

[此贴子已经被作者于2018/4/28 16:45:59编辑过]

Dim idx = str.IndexOf("书记员")
If idx < 0 Then idx = str.IndexOf("书记员".replace(" ", chr(-24159)))

If idx < 0 Then idx = str.IndexOf("代理书记员")

主题：[求助]startindex不能小于0