Find og erstat tekst

med vb kan du bruge filesystem object og så inStr() var det noget?

Private Sub UdførCmd_Click()
Dim Linie() As Variant
I = 1
Open FilTxt.Text For Input As #1
Do
ReDim Preserve Linie(I)
Input #1, Linie(I)
Linie(I) = Replace(Linie(I), FindTxt.Text, ErstatTxt.Text, , , vbTextCompare)
I = I + 1
Loop Until EOF(1)
Close
Open FilTxt.Text For Output As #1
For I = 1 To UBound(Linie)
Print #1, Linie(I)
Next
Close
End Sub

i en form
Lav 3 tekstbokse og en commandoknap
Boksen FilTxt.Text indeholder filnavnet
FindTxt.Text indeholder teksten der skal findes
ErstatTxt.Text inderholder teksten der skal erstatte det fundne

Du mangler
  Dim I as Long
:o)

alle kan fejle ;-))

>>> kabbak

Hvis jeg putter dit script ind i en vbs-fil kommer den med en masse fejl.
Ugyldigt tegn, linje 1, tegn 16

Slut på sætning var ventet, linje 2, tegn 13 & linje 4, tegn 18

Jeg ved ikke om der er flere.

Jeg har ikke så meget styr på VisualBasic scripting.

Jeg havde bare håbet på, at der var en nem måde at finde og erstatte :/

det jeg har laver er i VB6, du kan også bruge det i Excel VBA i en form

jeg kan ikke få det til at virke ..

men tak for hjælpen!

ingen videre svar .. jeg lukker