Ret/tilføje midt i txt fil

Du er nødt til at læse originalfilen 1 linie ad gangen og skrive det til en ny fil. På det sted, hvor en linie skal tilføjes, skal du lige skrive den også.

hmmm hvis jeg læser filen ind 1 linie ad gangen hvordan får jeg den så til at skrive en ny linie ind et bestemt sted?

Jeg tror at det der menes er: først Nej til dit spørgsmål og så Ja.
Det man gør er at læse hele filen ind, retter den til og skriver den igen med rettelser.
God jul

skriv hele din tekstfil ud en variabel, og split den ved VbCrLf så du får et array med dine linjer... så bliver det lidt nemmere at arbejde med.
Så kan du gøre noget i den her retning

' Variablen til at indeholde den nye tekstfil
dim NyTekstTilFil

' Her smider vi de første to linjer fra den gamle fil ind i variablen
For i = 0 to 1
  NyTekstTilFil = NyTekstTilFil + arrLinjer(i) + VbCrLf
Next

' Så tilføjer vi den nye linjer
NyTekstTilFil = NyTekstTilFil + "Dette er den nye linje" + VbCrLf

' Og til sidst resten af linjerne fra den gamle fil
For i = 2 to UBound(arrLinjer)
  NyTekstTilFil = NyTekstTilFil + arrLinjer(i) + VbCrLf
Next

Så skal du bare skriver NyTekstTilFil ind i din tekstfil...

Hvis nu den originale fil har 4 linier, og du skal tilføje en linie efter linie 2, skal du gøre følgende:

Læs linie 1 af originalfilen
Skriv denne linie til den nye fil
Læs linie 2 af originalfilen
Skriv denne linie til den nye fil
Skriv tilføjelseslinien til den nye fil
Læs linie 3 af originalfilen
Skriv denne linie til den nye fil
Læs linie 4 af originalfilen
Skriv denne linie til den nye fil

jespernaur>> ææh... det var så lige det jeg gjorde i min kode

cyberfessor>> ææh... det var så lige også det jeg beskrev i mit oprindelige svar

ja, men her på eksperten er det ikke nok at komme med et løsningsforslag... ;)

jacand wrote: hmmm hvis jeg læser filen ind 1 linie ad gangen hvordan får jeg den så til at skrive en ny linie ind et bestemt sted?

og derfor kom jeg med en komplet kode til hvordan det kunne gøres, og 15 senere skriver du nøjagtig det samme som jeg

cyberfessor>> kan du ikke lige skrive et svar så du kan få nogle point.
Jeg må sige at det var dit svar jeg fik mest ud af, da jeg ikke lige kunne få koden til at spille, så det hjalp en del at få et svar med den kode jeg skulle bruge tak!

Hvad gør jeg forkert?

<%
const forreading = 1, forwriting = 2, forappending = 8
const tristateusedefault = -2
const tristatetrue = -1
const tristatefalse = 0
dim objfs, objtexts
set objfs=server.createobject("scripting.filesystemobject")
set objtexts = objfs.opentextfile(server.mappath("../../database/db.asp"),forReading, false, tristatefalse)

' Her smider vi de første to linjer fra den gamle fil ind i variablen
For i = 0 to 1
  objtexts = objtexts + arrLinjer(i) + VbCrLf
Next

' Så tilføjer vi den nye linjer
objtexts = objtexts + "Dette er den nye linje" + VbCrLf

' Og til sidst resten af linjerne fra den gamle fil
For i = 2 to UBound(arrLinjer)
  objtexts = objtexts + arrLinjer(i) + VbCrLf
Next

set objWrite = objfs.opentextfile(server.mappath("../../database/db.asp"),forWriting, false, tristatefalse)
objWrite.Write strText
objtexts.close %>

giver:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'arrLinjer'

/opret/test.asp, line 17

hvad er linje 17?

objtexts = objtexts + arrLinjer(i) + VbCrLf

erm... du har måske aldrig lavet dit array?

nej det har jeg nok ikke :-)
jeg er rimelig grøn i scripting.filesystemobject
hvad skal array være?

jeg må nok også sige at du er rimelig kritik-løs når du copy-paster kode... tænk hvis den nu sendte en email med alt indholdet af din harddisk.

alle +'erne skal være &'er (det er for længe siden at jeg har kodet vb)

du laver dit array på denne måde: arrLinjer = Split("dintekst",VbCrLF)

og hvor får du strText fra i denne linje? objWrite.Write strText