7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
netbandit 2004-07-11
- 打赏
- 举报
顶
Snoworld 2004-07-11
- 打赏
- 举报
不错
lihonggen0 2004-07-10
- 打赏
- 举报
引用 Microsoft Scripting Runtime
Public Function DeleteLine(fName As String, LineNumber As Long) _
As Boolean
'Purpose: Deletes a Line from a text file
'Parameters: fName = FullPath to File
' LineNumber = LineToDelete
'Returns: True if Successful, false otherwise
'Requires: Reference to Microsoft Scripting Runtime
'Example: DeleteLine("C:\Myfile.txt", 3)
' Deletes third line of 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
Public Function DeleteLine(fName As String, LineNumber As Long) _
As Boolean
'Purpose: Deletes a Line from a text file
'Parameters: fName = FullPath to File
' LineNumber = LineToDelete
'Returns: True if Successful, false otherwise
'Requires: Reference to Microsoft Scripting Runtime
'Example: DeleteLine("C:\Myfile.txt", 3)
' Deletes third line of 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
pigpag 2004-07-10
- 打赏
- 举报
只能重写一遍吧，按照磁盘格式看也是这样的
tercel001 2004-07-10
- 打赏
- 举报
已知该行的一部分内容
如果该行含有特定的字符串
则删除该行
如果该行含有特定的字符串
则删除该行
踏平扶桑 2004-07-10
- 打赏
- 举报
笨点的方法就是先读取内容,然后把要删的那句忽略掉然后重新写入文件(不要追加,直接覆盖写)
laisiwei 2004-07-10
- 打赏
- 举报
删除哪行？
是已知行数，还是已知改行的内容？
是已知行数，还是已知改行的内容？
