救命了！如何删除一个文件中的一行

Question

奶奶的！气晕了，不给分的王八蛋！
http://www.csdn.net/expert/topic/466/466126.shtm

Answer 1

最笨的方法，再生成一个文件，从Line1复制，一直到Line3这行不复制了，再由下面的到最后，然后用新文件替换原文件。

Answer 2

    Dim i As Long
    Dim MyStr As String
    
    i = 0
    Open "YOUFILE" For Input As #1
        Open "OUTFILE" For Append As #2
            Do While Not EOF(1)
                Input #1, MyStr
                i = i + 1
                If i <> 3 Then Print #2, MyStr
            Loop
        Close #2
    Close #1

Answer 3

to hydra1101:那是Dephli的to songyangk:
我也最早是想这个办法，但是太麻烦了:(

Answer 4

怎么大家都是出这主意啊？hehe用    Open "k:\1.txt" For Binary As #FileNumber
这样再来 put ,但是put什么字符可以去掉这一行？有没有来着？

Answer 5

 to ：　gump2000(阿甘)　你的要求总会涉及到文件的读取和写入，我想也就只有这个办法了。  

Answer 6

比如说文件内容如下：Line-1
Line-2    Put #FileNumber, 1, "asdasdasasdsggggd"这样一下，两行都不见了，但是多了"asd...."
:(

Answer 7

to ：　gump2000(阿甘)　用你的“Open "k:\1.txt" For Binary As #FileNumber”的方法，不知你如何得到第3行的位置？
  

Answer 8

to ：　gump2000(阿甘)　另外，不论你“put什么字符”，出来的结果都不会符合你的要求，因为无论如何你都写了东西进去了！        所以有些东西可以想些简化的办法，有些却不一定行！  

Answer 9

回复人：　uguess(uguess)　(2002-1-15 17:38:08)  得0分 to ：　gump2000(阿甘)　用你的“Open "k:\1.txt" For Binary As #FileNumber”的方法，不知你如何得到第3行的位置？ 
我觉得应该有办法，文本换行是有换行符的找到第2个换行符和第3个换行符，去掉其中的内容，再去掉一个换行符也许就可以了

Answer 10

这样，读到一个MEMO里面，然后删除行，然后再保存，怎么样？

Answer 11

Open "k:\1.txt" For Input As #FileNumber
Str=InputB( LOF(#FileNumber),#FileNumber)
strarr=split(str,vbcrlf)
close #FileNumber1
Strarr(0)="" '删除第一行,同理可修改或添加其它行
NewStr=join(Strarr,vbcrlf)
NewStr=replace(newstr,vbcrlf & vbcrlf ,vbcrlf)
Open "k:\1.txt1" For Input As #FileNumber1
print #FileNumber1,newstr
close #FileNumber1
filecopy "k:\1.txt1", "k:\1.txt"
kill "k:\1.txt1"

Answer 12

信手写成
未调试
第一高手dbcontrols未见到
我在此多事！

Answer 13

to bardo:文件太大，效率不高的，不要全部读入最好

Answer 14

to lily0000000: 详细一点？