如何删除文本文件的指定行？

[cloud_soft]

[cloud_soft]

哪个操作文件的函数有次功能？

[shuyi]

读取文本文件到string中，然后判断vbcrlf个数，就是回车符。就能判定是第几行

[cloud_soft]

如何删除得到的这一行呢？而且不能留下空行！

[小牛]

Public Function DeleteLine(fName As String, LineNumber As Long) _
As Boolean
'功能: 从指定的文本文件删除指定的行

'参数: fName = 完整的文本文件路径名+文件名
' LineNumber = 要删除的行数(数字)

'返回: True 为正确执行, false 其它失败错误

'需要: 引用-- Microsoft Scripting Runtime

'Example: DeleteLine("C:\Myfile.txt", 3)
' 从 Myfile.txt 删除第三行的内容
'______________________________________________________________


Dim oFSO As New FileSystemObject
Dim oFSTR As Scripting.TextStream
Dim ret As Long
Dim lCtr As Long
Dim sTemp As String, sLine As String
Dim bLineFound As Boolean

On Error GoTo ErrorHandler
If oFSO.FileExists(fName) Then
Set oFSTR = oFSO.OpenTextFile(fName)
lCtr = 1
Do While Not oFSTR.AtEndOfStream
sLine = oFSTR.ReadLine
If lCtr <> LineNumber Then
sTemp = sTemp & sLine & vbCrLf
Else
bLineFound = True

End If
lCtr = lCtr + 1
Loop

oFSTR.Close
Set oFSTR = oFSO.CreateTextFile(fName, True)
oFSTR.Write sTemp

DeleteLine = bLineFound
End If


ErrorHandler:
On Error Resume Next
oFSTR.Close
Set oFSTR = Nothing
Set oFSO = Nothing

End Function

Private Sub Command1_Click()
Call DeleteLine("C:\aa.txt", 2)
'通用
End Sub

[不记得]

来晚一步
上面的代码已经删除了指定的行

[honey]

用MEMO控件不是很简单吗？