当前位置：首页 > 问答 > 正文

用VB写程序怎么把txt当数据库连起来搞一搞，具体步骤啥样啊

颜泰平
问答
2026-01-13 15:07:15
4

行，那咱们就直接开整，用VB（我说的是Visual Basic 6.0或者VBA都行）把一个普通的txt文本文件当成数据库来“搞一搞”，这事儿听起来有点土法炼钢，但在一些简单需求下，比如快速处理个数据、做个不用装数据库软件的小工具，还真挺实用的，核心思路就是：把txt文件的每一行当成一条记录，每一行的内容按照某种固定的分隔符（比如逗号、空格、竖线）分开，每个分开的部分就是一个字段。

下面我就给你掰开揉碎了讲具体怎么搞,保证不用那些让人头疼的专业词儿。

第一步：先把你那个txt文件给规划好

你想啊，数据库得有表，表得有字段对吧？你的txt文件就是那张“表”，你得先定好规矩，比如说，你要存员工信息，有姓名、工号、部门，那你得决定用什么把这三个信息分开，最常用的就是逗号,这就是所谓的CSV文件。

举个例子，你的data.txt应该长这样：

张三,001,技术部
李四,002,销售部
王五,003,人事部

这里，逗号就是分隔符，每行就是一条完整的员工记录。注意： 如果你的数据里本身就有逗号，那可就乱套了，所以最好选一个数据里肯定不会出现的字符,比如竖线或者制表符。

第二步：在VB里怎么读写这个txt文件

VB里有几个现成的家伙事儿能帮你处理文本文件，主要是下面这两种方法,根据你的VB版本和喜好选一个就行：

用老的“文件号”方法（Open语句）： 这是VB经典的老方法，现在依然好用，就像给文件发了个门牌号,然后通过这个门牌号来操作。

读文件：

Dim FileNumber As Integer
Dim OneLine As String
Dim EmployeeName As String
Dim EmployeeID As String
Dim Department As String
Dim DataArray() As String ' 用来存放分割后字段的数组

' 获取一个空闲的文件号 FileNumber = FreeFile

' 打开文件，For Input表示用于读取 Open "C:\你的路径\data.txt" For Input As #FileNumber

' 循环读取，直到文件结尾 Do While Not EOF(FileNumber) ' 读一整行到变量OneLine里 Line Input #FileNumber, OneLine

用VB写程序怎么把txt当数据库连起来搞一搞，具体步骤啥样啊

' 关键一步：把这一行字符串，用逗号分割，结果放进DataArray数组里
DataArray = Split(OneLine, ",")
' 数组的下标从0开始，DataArray(0)就是姓名，DataArray(1)是工号，DataArray(2)是部门
EmployeeName = DataArray(0)
EmployeeID = DataArray(1)
Department = DataArray(2)
' 到这里，你就可以用这三个变量了，比如显示在列表框List1里
List1.AddItem EmployeeName & " - " & EmployeeID & " - " & Department
' 或者干点别的，比如判断一下是不是你要找的人
If EmployeeName = "张三" Then
    MsgBox "找到张三了，他在" & Department & "部门"
End If

Loop

' 千万别忘了关门！（关闭文件） Close #FileNumber


*   **写文件（追加新记录）：**
```vb
FileNumber = FreeFile
' 用For Append，意思是追加，如果文件不存在，它会自己创建。
Open "C:\你的路径\data.txt" For Append As #FileNumber
' 把三个字段用逗号连起来，然后写进去
Print #FileNumber, "赵六,004,财务部"
Close #FileNumber

用FileSystemObject对象（FSO）： 这个方法更现代一点，功能也强一些，但需要先引用一个库（在VBA里是Microsoft Scripting Runtime）。
- 读文件：
```
' 先创建FSO对象
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim OneLine As String
Dim DataArray() As String
```
' 打开文件 Set ts = fso.OpenTextFile("C:\你的路径\data.txt", ForReading)

' 循环读 Do While Not ts.AtEndOfStream OneLine = ts.ReadLine DataArray = Split(OneLine, ",") ' ... 后面处理和上面一样 Loop

ts.Close
```
*   **写文件：**
```vb
Dim fso As New FileSystemObject
Dim ts As TextStream
' 第二个参数为ForAppending, True表示如果文件不存在就创建
Set ts = fso.OpenTextFile("C:\你的路径\data.txt", ForAppending, True)
ts.WriteLine "赵六,004,财务部"
ts.Close
```

第三步：实现一些类似数据库的“高级”操作

光会读和写还不行，怎么才能像数据库一样查、改、删呢？

查询（Search）： 这个最简单，就像上面代码里那个If语句一样，你读每一行的时候,去判断某个字段是不是等于你要找的值就行了。
修改（Update）： 这个稍微麻烦点，你不能直接改文件中的某一行,你得这么做：
1. 打开原文件读。
2. 同时创建一个新的临时文件。
3. 一行一行地从原文件读，如果这行不是你要改的那行，就直接原样写到临时文件里；如果是你要改的那行,就把修改后的新内容写到临时文件里。
4. 读完写完以后,关闭两个文件。
5. 删除原来的文件，再把临时文件改名成原来的文件名。这就完成了“修改”，听起来绕,但代码写起来就是个流程。
删除（Delete）： 和修改的思路一模一样！只不过在第三步，遇到你要删的那一行时，不把它写到临时文件里就行了，相当于把它“跳过”,这样最后生成的新文件里就没有这一行了。

给你个实在的建议：

如果你的数据量不大（比如几百几千行），用这种方法非常轻快，不用依赖任何数据库软件，但要是数据量大了，或者经常要进行复杂的查找和计算，那速度就会慢下来，这时候还是用真正的数据库（比如Access、SQLite）更靠谱。

整个过程就像是在手动管理一个卡片箱，txt文件就是你的卡片箱，每行是一张卡片，你要找卡片，就得把箱子里的卡片一张张翻看（循环读取）；要改卡片，就得把整箱卡片倒出来，把要改的那张重新写一遍，再把所有卡片按顺序放回去（创建临时文件替换），虽然笨了点，但胜在简单直接，啥环境都能用，希望这个解释能让你彻底搞明白该怎么“搞一搞”。