查找文本文件中的固定记录，并加以删除，50分求解

Question

有个文本文件，里面都是用户记录，以及用户的地址，例如
A公司   杭州
B公司   上海
C公司   宁波
D公司   杭州等等，我想用一个函数删除所有地址在杭州的记录，由于不是数据库，所以一下子不会啊，呵呵，50分求教

Answer 1

参考如下：
Option Explicit
'引用Microsoft Scripting Runtime
Private Sub Form_Load()
Dim oFSO As FileSystemObject
Dim oTextStream As TextStream
Dim oFirstLine As String
Dim i, LineNum As Integer
Set oFSO = CreateObject("scripting.filesystemobject")
'以下为删除相关行
oTextStream.Close
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForReading, False, TristateFalse)
Dim str As String        '存内容
dim TempStr as string
str = oTextStream.ReadLine '读第一行
Do While oTextStream.AtEndOfLine <> True
    TempStr= oTextStream.ReadLine
    if instr(tempstr,"杭州") <0 then  
      str = str & vbcrlf & oTextStream.ReadLine
    end if
Loop
LineNum = i
oTextStream.Close
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForWriting, False, TristateFalse)
oTextStream.Write str  '重写文件
oTextStream.Close
Set oFSO = Nothing
End Sub