Find text?

Følgende kode læser sig frem til tags, og indsætter kun det der ligger imellem de to tags.

----------------------------------------
Private Sub ReadFile()

Dim FSO As Object, fsoText As Object, currentLine As String

Set FSO = CreateObject("scripting.filesystemobject")
Set fsoText = FSO.opentextfile("fil1.txt") 'Fuld sti kræves

Do While Not fsoText.atendofstream
    currentLine = fsoText.readline
    If currentLine = "<!-- Find mig -->" Then
        Do While Not currentLine = "<!-- Stop med at finde mig -->"
            currentLine = fsoText.readline
            If currentLine <> "<!-- Stop med at finde mig -->" Then
                text1.Text = text1.Text & vbCrLf & currentLine
            End If
        Loop
    End If
Loop

fsoText.Close
Set fsoText = Nothing
Set FSO = Nothing

End Sub

Det virker squ..  men hvordan skal jeg kunne gemme det der står i text boxen? hvilken kommando skal jeg kalde?

men tak.

Jamen, hvis det er gemt i filen, så er det jo gemt! Men du vil gemme det til en ny fil, eller hvad?

Ja, men det skal ikke gemmes i en ny film, men i samme fil. sådan så det der står mellem tags'ne kan redigeres.

Så bliver det noget i denne stil (du bliver nu nødt til at benytte dig af en midlertidig kopi):

-----------------------------------------------
Private Sub SaveToFile()

Dim FSO As Object, fsoText As Object, fsoTextCopy As Object, currentLine As String
Dim LineArray As Variant, i As Integer

Set FSO = CreateObject("scripting.filesystemobject")
Set fsoText = FSO.opentextfile("fil1.txt") 'Fuld sti kræves
Set fsoTextCopy = FSO.createtextfile("filcopy.txt")

Do While Not fsoText.atendofstream
    currentLine = fsoText.readline
    If currentLine = "<!-- Find mig -->" Then
        fsoTextCopy.writeline currentLine
        LineArray = Split(text1.Text, vbCrLf)
        For i = 0 To UBound(LineArray)
            fsoTextCopy.writeline LineArray(i)
        Next i
        fsoTextCopy.writeline "<!-- Stop med at finde mig -->"
        Do Until currentLine = "<!-- Stop med at finde mig -->"
            currentLine = fsoText.readline
        Loop
    Else
        fsoTextCopy.writeline currentLine
    End If
Loop

fsoText.Close
fsoTextCopy.Close
Set fsoText = Nothing
Set fsoTextCopy = Nothing

FSO.deletefile "fil1.txt"
FSO.movefile "filcopy.txt", "fil1.txt"
Set FSO = Nothing

End Sub

Tak skal du have..!

Det var så lidt. Det virkede altså? Jeg havde ikke mulighed for at debugge...