主题：分割文本文件

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

 

 

 

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

老师好，用下面的代码读取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

老师好，附件是代码，程序是通的，但不是我需要的结果。我需要能够把A列的数据自动分成不同的数据段，比如1到2之间的数据用红色表示，2到3之间的数据用绿色表示，3到4之间的数据用紫色表示。程序能够自动根据数据分发布范围自动分段，然后各段用不同的颜色表示，请问如何改代码。多谢。

 

 

 

 

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

点击浏览该文件:管理项目38.zip

程序能够自动根据数据分布范围自动分段(比如分成10段），然后各段用不同的颜色表示。

请问老师，下面的代码只能向订单.xls加入一个表，我需要在一个Excel加入多个表该如何做，比如加入用户表（假设字段是一样的），怎么改代码？谢谢

 

 

Dim ex as New Exporter
ex.SourceTableName = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "日期,客户,数量,单价,产品" '指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export() '开始导出

请问老师，下面代码红色报错，我需要当选中RadioBtnIncrease时，SPIncrease=YES；当选中RadioBtnDecrease时，SPDecrease=YES。请问如何写代码？谢谢

 

Dim SPIncrease,SPDecrease As String
Dim rdo1,rdo2 As WinForm.RadioButton
rdo1 =Forms("Input").Controls("RadioBtnIncrease")
rdo2=Forms("Input").Controls("RadioBtnDecrease")
rdo1.Checked = True

If rdo1.Checked  Then
SPIncrease=YES
End If

请问老师，如何判断硬盘存在，比如判断D盘、E盘是否存在？如何写代码？就是程序如何检查D盘、E盘是否存在？