学生成绩考核 统计系统
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
显示效果: