主题：分割文本文件

请问老师，打开项目文件，报错，显示如下，导致不能打开项目文件，请问如何解决。谢谢（我按ctrl键了也不行）

 

提供程序无法确定 Object 值。例如，该行刚刚创建，未提供 Object 列的默认值，并且使用者尚未设置新 Object 值。

请问老师，打开项目文件，报错，显示如下，导致不能打开项目文件，请问如何解决。谢谢（我按ctrl键了也不行）   提供程序无法确定 Object 值。例如，该行刚刚创建，未提供 Object 列的默认值，并且使用者尚未设置新 Object 值。

可能项目损坏了，发给qq客服看看能不能修复

老师好，我用下面代码打开附件数据文件，请问为什么是空的，如何改代码？谢谢

 

 

 

Dim strs As String = FileSys.ReadAllText(signaldata)
            Dim ss1,ss2 As String
            strs = strs.Replace(vblf,"")
            Dim rs() As String = strs.Split(vbcr)

            For i As Integer = 0 To rs.Length - 1
                'rs(i) = System.Text.RegularExpressions.Regex.replace(rs(i), " +", " ")
                Dim cs() As String = rs(i).Split(" ")

                    Dim dr As DataRow = DataTables("RMSData").Addnew()
                    Dim r As Row = Tables("RMSData").Rows(i)

                    ss1=rs(i).split(" ")(1)
                    ss2=rs(i).split(" ")(2)
                    messagebox.show(ss1 & " " & ss2)

                 
              Next i

 

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

点击浏览该文件:si.txt

老师好，我用下面代码打开附件数据文件，请问为什么是空的，如何改代码？谢谢

 

 

 

Dim strs As String = FileSys.ReadAllText(signaldata)
            Dim ss1,ss2 As String
            strs = strs.Replace(vblf,"")
            Dim rs() As String = strs.Split(vbcr)

            For i As Integer = 0 To rs.Length - 1
                'rs(i) = System.Text.RegularExpressions.Regex.replace(rs(i), " +", " ")
                Dim cs() As String = rs(i).Split(" ")

                    Dim dr As DataRow = DataTables("RMSData").Addnew()
                    Dim r As Row = Tables("RMSData").Rows(i)

                    ss1=rs(i).split(" ")(1)
                    ss2=rs(i).split(" ")(2)
                    messagebox.show(ss1 & " " & ss2)

                 
              Next i

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

点击浏览该文件:si.txt

Dim strs As String = FileSys.ReadAllText("d:\si.txt")
Dim ss1,ss2 As String
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)

For i As Integer = 1 To rs.Length - 1
    rs(i) = System.Text.RegularExpressions.Regex.replace(rs(i), " +", " ")
    Dim cs() As String = rs(i).Split(" ")
    If cs.length = 4 Then
        ss1=rs(i).split(" ")(1)
        ss2=rs(i).split(" ")(2)
        messagebox.show(ss1 & " " & ss2)
    End If
Next i

老师好，用下面的代码读取UNIX格式的文本文件无法读取附件的数据，请问如何改代码？谢谢

 

 

Dim strs As String = FileSys.ReadAllText("d:\si.txt")
Dim ss1,ss2 As String
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)

For i As Integer = 1 To rs.Length - 1
    rs(i) = System.Text.RegularExpressions.Regex.replace(rs(i), " +", " ")
    Dim cs() As String = rs(i).Split(" ")
    If cs.length = 4 Then
        ss1=rs(i).split(" ")(1)
        ss2=rs(i).split(" ")(2)
        messagebox.show(ss1 & " " & ss2)
    End If
Next i

老师好，用下面的代码读取UNIX格式的文本文件无法读取附件的数据，请问如何改代码？谢谢

 

 

Dim strs As String = FileSys.ReadAllText("d:\si.txt")
Dim ss1,ss2 As String
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)

For i As Integer = 1 To rs.Length - 1
    rs(i) = System.Text.RegularExpressions.Regex.replace(rs(i), " +", " ")
    Dim cs() As String = rs(i).Split(" ")
    If cs.length = 4 Then
        ss1=rs(i).split(" ")(1)
        ss2=rs(i).split(" ")(2)
        messagebox.show(ss1 & " " & ss2)
    End If
Next i

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

点击浏览该文件:r.txt

参考代码

 

Dim strs As String = FileSys.ReadAllText("d:\r.txt")
strs = System.Text.RegularExpressions.Regex.replace(strs, " +", " ")
Dim cs() As String = strs.Split(" ")
For i As Integer = 3 To cs.length-1 Step 3
    Dim ss1=cs(i)
    Dim ss2=cs(i+1)
    output.show(ss1 & " " & ss2)
Next