Удаление строк из файла

[Ramzes]

Знаю с чего начинаеться строка например

моя строка

как мне ее удалить из файла

[A.A.Z.]

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

Dim S$, Arr$(), I&
Open "C:\MyFile.txt" For Input As #1
S = Input(LOF(1), 1)
Close #1
Arr = Split(S, vbCrLf)
For I = LBound(Arr) To UBound(Arr)
If Left(Arr(I), Len("моя строка")) = "моя строка" Then Arr(I) = ""
Next
S = ""
For I = LBound(Arr) To UBound(Arr)
If Arr(I) <> "" Then S = S & Arr(I) & vbCrLf
Next
S = Left(S, Len(S) - 1)
Open "C:\MyFile.txt" For Output As #1
Print #1, S
Close #1

[RayShade]

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

[tyomitch]

RayShade, ты неправ. Код AAZ работает корректно.

[Ramzes]

2 A.A.Z. Спасибо, ты как всегда в точку.

А вот мой код

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

Dim myArr() As String
Dim arVal As Integer
Private Sub Form_Load()
arVal = 0
Open "c:\1.txt" For Input As #1
    Do Until EOF(1)
    Line Input #1, t
    tt = tt + t & vbCrLf
    arVal = arVal + 1
    Loop
Close #1

ReDim myArr(0 To arVal)
    arVal = 0
    Open "c:\1.txt" For Input As #1
        Do Until EOF(1)
        Line Input #1, w
        myArr(arVal) = w
        arVal = arVal + 1
    Loop
For e = 0 To arVal
    If myArr(e) = "Text1" Then
        myArr(e) = "FuckIt"
    End If
Next
   
    For q = 0 To arVal
        Text1.Text = Text1.Text & myArr(q) & vbCrLf
    Next
End Sub


Дурной конечно, но код!

[alibek]

Ну вы, блин, даете... (c).
А не лучше ли по другому?

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

Dim FN1 As Integer, FN2 As Integer, S As String
FN1 = FreeFile
Open "file1.txt" For Input As #FN1
FN2 = FreeFile
Open "~file" For Output As #FN2
While Not EOF(FN1)
  Line Input #FN1, S
  Select Case S
    Case "Tag String"
    Case Else
      Print #FN2, S
  End Select
Wend
Close #FN1, #FN2
Kill "file1.txt"
Name "~file" As "file1.txt"


И быстрее, и памяти меньше кушает.

[Ramzes]

Да моему приложению пофигу на память оно маленько и много не съест