VB[2008] 从文字档里读取数字及统计结果

Home Home
引用 | 编辑 hongf5581
2010-03-30 18:07
楼主
推文 x0
想请问如何从文字档里读取的数字(数字已呈现 ..

访客只能看到部份内容,免费 加入会员



献花 x0
引用 | 编辑 x09818
2010-04-02 00:26
1楼
  
依据您给我的讯息与说明

将其简化请参考看看~
复制程式
Public Class Form1 
    Dim writer As System.IO.StreamWriter 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Me.OpenFileDialog1.Filter = "文字档案(*.txt)|*.txt" 
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 
            Dim line_array() As Object = Split(My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName), vbNewLine) 
            Dim data_temp As String = "" 
            Dim k As Integer = 0 
            data_temp = Join(line_array, ",") 
            Dim data_array() As Object = Split(data_temp, ",") 
            Dim temp_array(49) As Integer 
            For i = 0 To 49 : temp_array(i) = 0 : Next 
            For i = 0 To UBound(data_array) 
                If (IsNumeric(data_array(i))) Then 
                    If (data_array(i) >= 1 And data_array(i) <= 49) Then 
                        temp_array(Int(data_array(i))) += 1 
                        k += 1 
                    Else 
                        temp_array(0) += 1 
                    End If 
                Else 
                    temp_array(0) += 1 
                End If 
            Next 
            TextBox1.Text = "统计结果:" & vbCrLf 
            For i = 1 To 49 
                TextBox1.Text &= "开出号码为" & i & "的数量是" & temp_array(i) & vbCrLf 
            Next 
            TextBox1.Text &= "总计笔数:" & k & "笔" 
        End If 
    End Sub 
End Class


资料档
复制程式
期别,开奖日期,号码1,号码2,号码3,号码4,号码5,号码6,特别号码 请依照本格式填入(只有01~49的数字会统计)
990001,99/01/01,01,02,03,04,05,06,07
990002,99/01/03,11,12,13,14,15,16,17
990003,99/01/05,01,02,03,04,05,06,07
990004,99/01/07,01,02,03,04,05,06,07
990005,99/01/10,01,02,03,04,05,06,07
990006,99/01/11,01,02,03,04,05,06,07
990007,99/01/13,01,02,03,04,05,06,07
990008,99/01/22,01,02,03,04,05,06,07

执行档与资料档于附件中~

本帖包含附件
档名: zip Statistics.rar   (2022-06-09 14:14 / 10 KB)  
执行档与资料档
下载次数:22


献花 x1