vb.net ---- 学生考试成绩统计生成系统.txt

学生成绩考核 统计系统

vb.net

输入 学生 考号：姓名：班级：成绩：插入到文本存储库中 读取文本中的信息

搜索固定信息 显示

 

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xh, bj, sname As String
        Dim mark As Double
        FileOpen(1, "d:\data.txt", OpenMode.Append)
        xh = TextBox1.Text
        sname = TextBox2.Text
        bj = TextBox3.Text
        mark = TextBox4.Text
        WriteLine(1, xh, sname, bj, mark)
        MsgBox("写入成功")
        FileClose()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label5.Visible = True
        TextBox5.Visible = True
        Dim data As String
        FileOpen(1, "D:\data.txt", OpenMode.Input)

        While Not EOF(1)
            data = LineInput(1)
            'Chr(13)表示空格 Chr(10)表示换行
            TextBox5.Text = TextBox5.Text & data & Chr(13) & Chr(10)
        End While
        FileClose(1)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox5.Text = ""
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim data As String
        FileOpen(1, "D:\data.txt", OpenMode.Input)
        While Not EOF(1)
            data = LineInput(1)
            'Chr(13)表示空格 Chr(10)表示换行
            If InStr(data, TextBox6.Text) Then
                TextBox5.Text = Replace(data, "", "") & Chr(13) & Chr(10)
            End If
        End While
        FileClose(1)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim data As String
        FileOpen(1, "D:\data.txt", OpenMode.Output)
        While Not EOF(1)
            data = LineInput(1)
            'Chr(13)表示空格 Chr(10)表示换行
            If InStr(data, TextBox6.Text) Then
                PrintLine(Replace(data, "", "", ))
            End If
        End While
        FileClose(1)
    End Sub
End Class

 

显示效果：