VB中用OPEN语句修改文本文件

Private Sub Form_Load()
Dim content As String
Dim temp As String

Open "D:\1.txt" For Input As #1
Do Until EOF(1)
Input #1, temp
If temp = "ccc" Then 'CCC可以改成那行的内容
temp = ""
Else
temp = temp & vbCrLf
End If
content = content & temp
Loop
Close #1

Open "D:\1.txt" For Output As #1
Print #1, content
Close #1

End Sub

----------------
如果要指定要删除第几行的话可以定义一个常数，每读一行+1....

Private Sub Command1_Click()
Dim a$, b$

Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
If Trim(a) <> "ccc" Then b = b & a & vbCrLf
Loop
Close #1

Open "c:\1.txt" For Output As #1
Print #1, b
Close #1

MsgBox "搞定!"