VB.NET用文本文件做数据库 vbnet操作txt文本文档

如果记录不多，用一个文本文件来作数据库，速度也可以，管理也方便。

下面我来做一个给大家看看，在窗体上拖一堆控件，从上到下，从左到右，控件分别是：LabelID, Label0, Picture1, Label6, Label1, Label2, Label3, Label4, Label5, NumericUpDown1, ButtonGO, ButtonFirst, Button1, Button2, ButtonEnd

如下图所示

1. 首先 Imports System.IO 然后建立一个模块，用于一行行地读入文本文件并保存到数组，上一篇文章有说明。
2. 有了数组后，就操作数组。文本数据库，其实就是操作数组的数据元素。
3. 界面上最底下5个按钮，其实就是改变数据的ID号，然后把数组的不同显示出来。
4. 专门创建一个模块，Display，用于把数据显示在界面上：根据改变的NowID很容易得到数据的数据元素，这个数据是由题目，答案1，答案2等用~符号连接组成的一行文本，我们用Split()函数将分解。

对了，上一篇文章已经说明，题库文本文件地址在："D:\test\tiku.txt" ，在此目录里有一个BMP目录，已经有一个图片文件，9.png 图片如下：

全部代码如下：

Imports System.IO
Public Class Form1

    Dim SList() As String '先定义一个数组，用来保存题库
    Dim yyy() As String '查到每一条记录再分解成编码，汉字
    Dim nowID As UInteger '目前的记录指针位置

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        NewSJK() ' 读入文本文件，再转为数组，操作文本数据库就是操作这个数组
        NumericUpDown1.Value = 1
        NumericUpDown1.Minimum = 1
        NumericUpDown1.Maximum = UBound(SList) + 1

        nowID = 0
        LabelID.Text = (nowID + 1).ToString
        display()

    End Sub

    Private Sub NewSJK()
        Dim FilePath As String = "D:\test\tiku.txt"
        If Dir(FilePath) = "" Then
            MsgBox("没有找到tiku.txt文件",, “提示”)
            Exit Sub
        End If

        Dim LineN As Integer = File.ReadAllLines(FilePath).Length ' 得到文本文件的总行数
        ReDim SList(LineN - 1) '定义数组大小，大小就根据文本文件的总行数来确定

        Dim I As Integer
        Dim Str1 As String '读出一行的文本

        I = -1 '初始值 

        FileOpen(1, FilePath, OpenMode.Input)

        Do While Not EOF(1)
            Str1 = LineInput(1)   ' 读一行
            I = I + 1
            SList(I) = Str1 '把读出的一行加入到数组里
        Loop

        FileClose(1)

    End Sub

    Private Sub ButtonFirst_Click(sender As Object, e As EventArgs) Handles ButtonFirst.Click
        '到第1条记录
        nowID = 0 '这个指针是指数组的序号，显示的序号必须要加1
        display()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '上一条记录
        If nowID = 0 Then
            MsgBox("已经是第1条记录了",, “提示”)
        Else
            nowID = nowID - 1
            display()
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '下一条记录
        If nowID = UBound(SList) Then
            MsgBox("已经是最后记录了",, “提示”)
        Else
            nowID = nowID + 1
            display()
        End If
    End Sub

    Private Sub ButtonEnd_Click(sender As Object, e As EventArgs) Handles ButtonEnd.Click
        '到最后记录
        nowID = UBound(SList) '这个指针是指数组的序号，显示的序号必须要加1
        display()
    End Sub

    Private Sub ButtonGO_Click(sender As Object, e As EventArgs) Handles ButtonGO.Click
        '到指定的记录
        nowID = NumericUpDown1.Value - 1
        display()
    End Sub

    Private Sub display()
        '显示模块
        '将数组分解，分解成：ID，题目，答案1，答案2，答案3，答案4，正确答案，图片名，然后在界面上显示每一条记录
        yyy = Split(SList(nowID), "~") '用Split来分解，分解符是~

        LabelID.Text = (nowID + 1).ToString
        Label0.Text = yyy(0) '题目
        Label1.Text = yyy(1)
        Label2.Text = yyy(2)
        Label3.Text = yyy(3)
        Label4.Text = yyy(4)
        Label5.Text = yyy(5) '答案
        LabelBMP.Text = yyy(6) '图片名

        NumericUpDown1.Value = nowID + 1
    End Sub

    Private Sub LabelBMP_TextChanged(sender As Object, e As EventArgs) Handles LabelBMP.TextChanged
        If LabelBMP.Text <> "" Then
            PictureBox1.ImageLocation = "d:\test\bmp\" & LabelBMP.Text
        Else
            '图片为空
            PictureBox1.ImageLocation = ""
        End If
    End Sub
    
End Class

在visual studio 2022 测试成功，运行结果如下：

注意：文件文件需要UTF-8

说明，我用文件做数据库，几万条记录，用二分查询法，查询速度也比较快，有实用价值。