VB中如何读取txt文件的数据
来源:互联网 发布:物流app软件 编辑:程序博客网 时间:2024/05/09 19:11
Dim A, S As String
Dim FreeNum As Integer
FreeNum = FreeFile
'Freenum表示一个空闲的文件号
open "D:/date.txt" for input as #FreeNum
'这步是打开“date.txt”,for input表示以输入方式(即读取文件)打开。如果要写入文件则应该用output或append。
Do Until eof(FreeNum) '循环,直到文件结尾。Eof函数用来判断文件是否读完
Line Input #FreeNum, A
S = S + vbNewLine + A 'S用来保存整个文件
If A满足某个条件 And Not Eof(FreeNum) Then
Line Input #FreeNum, A '读取下一行的内容
Exit do '退出循环
End if
Loop
Close FreeNum
至于将一个新值写进第N行,则可以
Dim A, S, S1 As String
Dim FreeNum As Integer
FreeNum = FreeFile
'Freenum表示一个空闲的文件号
open "D:/date.txt" for input as #FreeNum
'这步是打开“date.txt”,for input表示以输入方式(即读取文件)打开。如果要写入文件则应该用output或append。
Do Until eof(FreeNum) '循环,直到文件结尾。Eof函数用来判断文件是否读完
Line Input #FreeNum, A
S1 = S1 + vbNewLine + A 'S用来保存1到n-1行的内容,S1用来表示n行以后的内容
If A满足新写一行的条件 Then
S = S1
S1 = ""
End if
Loop
Close FreeNum
Open "D:/date.txt" For Output As FreeNum
'关闭文件之后重新以Output的模式打开。
Print #FreeNum, S
Print #FreeNum, 新插入一行的内容
Print #FreeNum, S1
Close FreeNum
即可
Dim FreeNum As Integer
FreeNum = FreeFile
'Freenum表示一个空闲的文件号
open "D:/date.txt" for input as #FreeNum
'这步是打开“date.txt”,for input表示以输入方式(即读取文件)打开。如果要写入文件则应该用output或append。
Do Until eof(FreeNum) '循环,直到文件结尾。Eof函数用来判断文件是否读完
Line Input #FreeNum, A
S = S + vbNewLine + A 'S用来保存整个文件
If A满足某个条件 And Not Eof(FreeNum) Then
Line Input #FreeNum, A '读取下一行的内容
Exit do '退出循环
End if
Loop
Close FreeNum
至于将一个新值写进第N行,则可以
Dim A, S, S1 As String
Dim FreeNum As Integer
FreeNum = FreeFile
'Freenum表示一个空闲的文件号
open "D:/date.txt" for input as #FreeNum
'这步是打开“date.txt”,for input表示以输入方式(即读取文件)打开。如果要写入文件则应该用output或append。
Do Until eof(FreeNum) '循环,直到文件结尾。Eof函数用来判断文件是否读完
Line Input #FreeNum, A
S1 = S1 + vbNewLine + A 'S用来保存1到n-1行的内容,S1用来表示n行以后的内容
If A满足新写一行的条件 Then
S = S1
S1 = ""
End if
Loop
Close FreeNum
Open "D:/date.txt" For Output As FreeNum
'关闭文件之后重新以Output的模式打开。
Print #FreeNum, S
Print #FreeNum, 新插入一行的内容
Print #FreeNum, S1
Close FreeNum
即可
- VB中如何读取txt文件的数据
- 在Matalb中如何读取TXT文件中的数据
- VB.NET 读取INI,TXT文件 写入数据
- MATLAB中批量从txt文件中读取指定行的数据保存为txt文件
- vb读取保存txt文件
- 在j2me中读取txt文件数据
- 在j2me中读取txt文件数据
- 在j2me中读取txt文件数据
- vc++从txt文件中读取数据
- VTK从TXT文件中读取数据
- c++从txt文件中读取数据
- 如何在VB 中读取 UTF-8 格式的文件?
- JAVA编程中中如何读取TXT文件数据并计算
- 【转】C#如何读取txt文件中每一行每一个数据
- JAva中读取TXT文件的方法。
- 读取TXT文件中数据,数据间空格分割
- 简洁的从txt文件中读取数据并且修改数据重新存入
- c语言如何从txt文件读取数据
- Windows软件防火墙实现技术简述
- symbian 的ini文件类
- viPlugin的破解方法
- 正确对待自己
- javascript在 Asp.Net上的应用
- VB中如何读取txt文件的数据
- 《狼》
- stl简介
- Basic good knowledge
- 你是做硬件的就看看!
- 小问题
- 针对 .NET 框架的安全编码指南
- response.write后文本框变小的解决方法
- 在.net安装程序中部署oracle客户端全攻略---环境变量的设置