vb 删除特定行

来源：百度知道 编辑：UC知道 时间：2024/07/02 05:39:28
请高手帮忙编这样一段程序：
打开c:\1.txt
读取每一行，并删掉第12个字符是a的行

例如c:\1.txt的内容是
abcdabcdabcdacbd
aaaaaaaaaaaaaaaaaa
caresrsedxrs123123
sdas" fg"sdaf

运行程序后会变成
abcdabcdabcdacbd
caresrsedxrs123123

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Dim tempInput, fileStr As String
    Open "c:\1.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, tempInput
        If Mid(tempInput, 12, 1) <> "a" Then fileStr = fileStr & tempInput & vbCrLf
    Loop
    If fileStr <> "" Then fileStr = Left(fileStr, Len(fileStr) - 2)
    Close #1
    
    Open "c:\11.txt" For Output As #1&