Opdatere en Txt fil

1) Skal det være præcist i midten, dvs antal linier?
2) Er det en værdi, der skal opdateres? (har værdien et navn?)

Nej det er ikke i midten, og nej det er ikke en værdi som skal opdateres, jeg skal opdatere en hel linje samt tilføje en linje bagefter, den ændrede linje

Giv et eksempel.

Her er filen som jeg vil skrive til, det er kun et uddrag af den!

//link ==> [text,url,target,text_color,background_color,text_color_onmouseover,background_color_onmouseover]
//link with items ==> [text,url,target,text_color,background_color,text_color_onmouseover,background_color_onmouseover,[items]]
var link =[

['Om os',null,'main','white','#009933','green','lightgreen',
['Åbningstider','AAbningstider.asp','main','white','darkgreen','green','lightgreen'],
['Ring til os','ringos.asp','main','white','darkgreen','green','lightgreen'],
['Index','home1.htm','main','white','darkgreen','green','lightgreen']
]],

Jeg ønsker at indsætte en fil efter:
var link =[
      var Test = []
Samt ændre
var link =[  -> var link =[ test

Næste gang
er det så en linje efter
var Test = []
    var NyTest = []
Samt ændre
var Test = [] -> var Test = [Test]

Jeg forstår ikke eksemplet..

Det er ligemeget, jeg har selv fundet ud af, hvordan jeg gjorde!

Eksemplet nedenunder viser hvad jeg har gjort

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("items.js")

Set f = fso.OpenTextFile(filespec,1)

dim counter
counter = 0
Do While not f.AtEndOfStream
    if counter = int(i) then
        f.SkipLine
        strTmp = strTmp + str + vbCrLf
        strTmp = strTmp + strm + vbCrLf    
        counter = counter + 1
    else
        strTmp = strTmp + f.ReadLine + vbCrLf
        counter = counter + 1
    end if
Loop

f.Close
   
filespec = Server.Mappath("items.js")
Set f = fso.OpenTextFile(filespec,2)
f.WriteLine strTmp
f.Close