VB怎么读取和修改TXT文本文件的内容
VB 怎么读取和修改TXT文本文件的内容？
提问者： leefuhui - 二级最佳答案1.读取某个指定字节
Private Sub Command1_Click()
Dim a() As Byte, b As Byte, i As Integer, j, S As String
'S = App.Path & "\1.txt" '请修改为实际文件名
S = "C:\Documents and Settings\Administrator\桌面\1.txt"
ReDim a(FileLen(S))
Open S For Binary As #1 '打开文件
'下面演示指针的移动
Seek #1, 10 '指针移到第10个字节
Get #1, , b
vb所有代码MsgBox "第10个字节:" & b
Seek #1, 23 '指针移到第23个字节
Get #1, , b
MsgBox "第23个字节:" & b
'下面演示始一个一个地读出文件
Seek #1, 1 '指针返回到文件首
For i = 1 To FileLen(S)
Get #1, , b '读取1个字节
a(i - 1) = b '存入数组
Next
Close #1 '关闭文件
S = StrConv(a, vbUnicode)
MsgBox S
End Sub
2读取某行
Function lines(txtpath As String, ByVal startline As Integer, linenum As Integer) As String '显示 txtpath 文件的从startline 行开始的 linenum 行的内容
lines = ""
Dim filetxt As String, x As Variant, i As Integer
filetxt = String(FileLen(txtpath), " ")
Open txtpath For Binary As 1
Get #1, , filetxt
Close 1
x = Split(filetxt, vbCrLf)
msgbox ubound(x)+1 '行数
If startline > UBound(x) Then MsgBox "行溢出", 64, "err!": Exit Function
If startline <= UBound(x) Then
If startline + linenum <= UBound(x) Then
For i = startline To startline + linenum - 1
lines = lines & x(i) & " "
Next
Else
For i = startline To UBound(x)
lines = lines & x(i) & " "
Next
End If: End If
End Function
.
网上的代码,这类型的很多,
不外乎就是
设定读取路径再
Open S For Binary As #1开(注意OPEN的参数有几种类型)
再GET
0回答者： dxmqj1983 - 二级 2009-9-7 13:59
我来评论>> 相关内容
VB－－ 把文本文件中指定的内容读取到文本框中 5 2007-1-15
VB6.0 读取文本文件（*.txt）的问题 2008-7-20
如何用vb同时打开几个txt文本文件，并读取其中的数据 1 2007-6-5
VB,怎么把一个文本文件中所有的内容读到文本框中，请写出详细的代码． 1 2007-1-15
用VB生成.TXT的文本文件时，里面的内容都用""括起来了，怎么解决？ 1 2009-5-11
更多相关问题>>
查看同主题问题： txt 文本文件 内容
其他回答 共 3 条
读取：
Open "我的文件.txt" For Input As #1
'用Input #1,变量表 来输入变量的值
'也可以用Line Input #1,temp输入一行到temp中
'文件
不存在或者拒绝访问的时候会产生错误
Close #1
写入（覆盖性）：
Open "我的文件.txt" For Output As #1
'用Print #1,参量表 来输出
'文件不存在的时候自动创建，拒绝访问的时候会产生错误
Close #1
追加：
Open "我的文件.txt" For Append As #1
'用Print #1,参量表 来输出到文件末尾
'文件不存在的时候自动创建，拒绝访问的时候会产生错误
Close #1
二进制改写：
Open "我的文件.txt" For Binary As #1
'用Get #1, k, temp 读取第k字节的数值到temp，注意：1<=k<=文件长度
'用Put #1, k, temp 保存第k字节的数值为temp，注意：1<=k<=文件长度
'另外，这样定义temp： Dim temp As Byte
'有的时候会产生错误（例如:拒绝访问）
Close #1
回答者： LuoJi_1995 - 六级 2009-9-7 14:09
Private Type aatype
a As String * 2
b As String * 2
c As String * 2
d As String * 2
End Type
Dim aa As aatype
Dim bb As Integer
Private Sub Command1_Click()
On Error Resume Next ' Resume重新开始; (经打断后)再继续
bb = InputBox("输入记录号", "插入数据")
If bb = 0 Then Exit Sub
Open "d:\aa.txt" For Random As #1 Len = Len(aa)

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。