如何得到TXT文件中的行数，以及得到（覆盖）指定行的内容！

moleboy 2004-01-16 09:56:27

如何得到TXT文件中的行数，以及得到（覆盖）指定行的内容！

首先得到txt文件的总行数，然后读取指定行的内容
并把123456字符串覆盖到该行！

...全文

219 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2004-01-17

打赏
举报

呵呵，是PUT，写错了

Private Sub Command1_Click()
writeline "c:\error.txt", 3, "123456"
End Sub
Sub writeline(txtpath As String, linenum As Integer, mystr As String) '修改指定行内容为MYSTR
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)
If linenum > UBound(x) Then MsgBox "行溢出", 64, "err!": Exit Sub
If linenum <= UBound(x) Then x(linenum - 1) = mystr
Open txtpath For Binary As 1
Put #1, , Join(x, vbCrLf)
Close 1
Set x = Nothing
End Sub

lepeng 2004-01-17

打赏
举报

可以这样：

将该文本读入一个字符串，然后用函数统计该字符串中的换行号即可。

moleboy 2004-01-16

打赏
举报

位置：
Print #1, , Join(x, vbCrLf)

moleboy 2004-01-16

打赏
举报

提示文件模式错误！

错误54！

northwolves 2004-01-16

打赏
举报

Function readline(txtpath As String, linenum As Integer) As String '读取指定行
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 linenum > UBound(x) Then MsgBox "行溢出", 64, "err!": Exit Function
If linenum <= UBound(x) Then readline = x(linenum - 1)
Set x = Nothing
End Function

Sub writeline(txtpath As String, linenum As Integer, mystr As String) '修改指定行内容为MYSTR
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)
If linenum > UBound(x) Then MsgBox "行溢出", 64, "err!": Exit Sub
If linenum <= UBound(x) Then x(linenum - 1) = mystr
Open txtpath For Binary As 1
Print #1, , Join(x, vbCrLf)
Close 1
Set x = Nothing
End Sub

Private Sub Command1_Click()
MsgBox readline("C:\XXX.TXT", 120) '第120行内容
writeline "C:\XXX.TXT", 120, "123456" '修改该行内容为"123456"
End Sub