Ændring i mange filer på en gang

Hvis dine filer er navngivet på en måde der kan tælles op til med en for-next løkke, kunne det være løsningen.  Du bestemmer vel selv hvorledes de navngives?

Sværere bliver det at finde /html og indsætte noget FØR dette sted.  Der findes en funktion der kan tælle baglæns i en fil, tegn for tegn, men måske kommer der en smart løsning fra en 'ekspert'.

M.v.h.  Jørn

strFilename=Dir("c:\ditbibliotek\*.htm")

While strFilename<>""

'gør det du skal gøre ved din fil

  strFilename=Dir()
Wend

/Jennemaan

Denne kode vil indsætte en streng umiddelbart FØR </body>:

Dim sFile As String
    Dim sString As String, lPlace As Long
    Dim sPutString

    sFile = App.Path & "/test.html"

    Open sFile For Input As #1
        sString = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
   
    lPlace = InStr(1, sString, "</body>", vbTextCompare) - 1
    sPutString = "<h2>Dette er en test.</h2>" & vbCrLf
    sString = Left(sString, lPlace) & sPutString & Right(sString, Len(sString) - lPlace)

    Open sFile For Output As #1
        Print #1, sString
    Close #1

Dette kunne du så kombinere med jennemaans forslag, og erstatte sFile med strFilename. Du kunne også erstatte sPutString med en tekstbox.
Du kan også ændre linien : lPlace = InStr(1, sString, "</body>", vbTextCompare) - 1, og indsætte et andet kriterium end "</body>, men det SKAL være en unik streng i teksten (kildekoden).

/tjacob

Jeg har selv fundet løsningen.

Jeg har indsat en drev, bibliotek og filboks. og oprettet en liste. når jeg vælger filer fra min filboks overføres den fulde path til listen.

Herefter bruger åbner jeg filerne og indsætter dem i en richtekstbox som har metoden richtekstbox.find("Søgekriterium")

Har testet programmet og det virker - har også udviklet funktion "Søg og erastat alle forekomster." Regner med at lægge prog på nettet når det er helt køreklart...

/Leon

Jeg takker for hjælpen, dog har jeg ikke kunnet bruget Jennemaan's ide, da filerne er temmelig forskelligt navngivet.

Jeg havde lavet prog færdig inden Jacob kom med kommentaren, men du har tydeligvis brugt en del tid. derfor lidt point... Tak for hjælpen