Как удалить строку из текстового файла?

[Shurik90]

Как из текстового файла удалить строку в которой сейчас нахожусь?

Код: Выделить всё


    Open "C:\mytext.txt" For Input As #1
   
        Do Until EOF(1)
            Line Input #1, sMyLine
            If IsNumeric(sMyLine) = False Then  Я идиот! Убейте меня, кто-нибудь!??
        Loop

    Close #1



Т.е. оставить строчки с номерами, а остальные стереть.
Ведь я, скорей всего, должен закрыть файл, а затем заново открыть его для записи? А как я тогда узнаю на какой строчке я был?

Знающие люди, помогите!

[pitbull]

ПРоше всего, наверное создать переменную.
В нее ты будешь записывать все, что тебе нужно. А когда ты просканишь файл до конца ты его удалишь. А вместо него создашь файл и запишешь в него переменную.

[Alexanbar]

Открой новый файл для записи. По мере ввода из входного файла в него перезаписывай строки, которые нужны, и пропускай, которые не нужны. По окончании закрой оба файла, переименуй оба и удали входной.

[alibek]

Еще один способ - открываешь файл как Binary, доходишь до нужной строки и перезаписываешь поверх нее следующие строки (только надо перезаписывать блоками длиною не больше, чем перезаписываемая строка). А потом обрезаешь файл API SetEndOfFile. Минусы: неудобно. Плюсы: файл именно изменяется, а не создается заново. Т.е. сохраняются атрибуты файла (дата и время создания, атрибуты, ACL и т.п.)

[Shurik90]

alibek
Kakoй koмандoй перезаписывать ?

[tyomitch]

Код: Выделить всё

Open ... For Binary As ...

[alibek]

Это ж открыть. А перезаписывать Put.

[SHURUP]

Можно вот так:

Код: Выделить всё

Private Sub Form_Load()
Const filename = "C:\mytext.txt"
Dim TempString As String
Dim LineArray() As String

'Считываем за один заход весь файл в переменную TempString
TempString = String(FileLen(filename), " ")
Open filename For Binary As #1
    Get #1, 1, TempString
Close

'Разбиваем строку на масив строк LineArray
LineArray = Split(TempString, vbCrLf)

Open filename For Output As #1
    For i = 0 To UBound(LineArray)
        'перебираем все строчки, нужные записываем в файл
        If IsNumeric(LineArray(i)) Then Print #1, LineArray(i)
    Next
Close
End Sub

[alibek]

А если это текстовый файл объемом 2Гб?

[Konst_One]

используй объект ADODB.Stream, ему и 3гб не почем