fso.Writeline(\"tekst her\") - LINIE 37

Du er nødt til at læse de første 36 linier, erstatte #37 og læse resten og derefter skrive det hele til filen igen.

Æv...
det var ikke det svar jeg havde håbet på,
mere et a.writeline.37(\"afhgshg\") eller lign...

;-(

>>
Jeg er ved at udvide mit sdministrations modul så det skriver direkte i mine .css filer når der bliver opdateret, i stedet for i en db, som skal hentes hver gang siden loades...

Hmm .. og så agter du at tage dine point igen ? Jeg har svaret korrekt .. at det ikke var det du havde ønsket, altså metoden det er jo ikke min skyld!

Du kan da lave en WriteLine funktion ..

>> tDaugaard >>

o.k.,
hvordan får man den så til at huske de 36 linier som den skal skrive ind igen ??..

har du et lille eks. på en 5 læs&skriv linier
hvor linie 1, 2, 3 & 5 forbliver som de er og linie 4 skifter ud med noget nyt
??..

(skal vel lave lidt for føden **GG**)

* MoRoax...

moroax:> *er i gang hvis du staver tdaugaard som tdaugaard og ik tDaugaard *S**
Du indlæser dem i et Array... kan gøres på to måder, enten læser du hele filen og splitter den ad ved vbCrLf eller også læser du filen linie for linie ..

There ya go .. er ovenikøbet testet :-)

<%
    Function WriteLine(strFile, intLine, strLine)
        Set fso = CreateObject(\"Scripting.FileSystemObject\")
        Set file = fso.OpenTextFile(strFile, 1)
            strContent = file.ReadAll()
            arrContent = Split(strContent, vbCrLf)
        Set file = Nothing

        If intLine - 1  > UBound(arrContent) Then
            WriteLine = False
        Else
            arrContent(intLine - 1) = strLine
            WriteLine = True
        End If

        strContent = Join(arrContent, vbCrLf)
        Set file = fso.CreateTextFile(strFile, True)

        file.WriteLine strContent
        file.Close: Set file = Nothing
    End Function

    WriteLine Server.MapPath(\"you_might_be_a_geek_if.txt\"),6,\"TEEEEEEEEEEEEEEEEEEST\"
%>

Du kan også skrive:

retval = WriteLine(Server.MapPath(\"you_might_be_a_geek_if.txt\"), 6, \"TEEEEEEEEEEEEEEEEEEST\")

hvis retval = false så indeholder filen færrer linier end det linie nummer du har specificeret, hvis True så er den god nok :-)

>> * tdaugaard * >>
hvOrFor mÅ JeG IkKe skrIve meD bLandEt BogsTaver ;-(

den første * i \"* MoRoax...\" er fordi jeg bliver her og at jeg ER

^ MoRoax...

fordi Tdaugaard, tDaugaard, TDaugaard eller tdaugaarD for den sags skyld ser dumt ud ;o) Det er en sammetrækning af mit for- og efternavn (Thomas Daugaard .. *wee*) sååe .. *S* og fordi alle navne herinde er i lowercase ;o)

mit for- og efternavn (Thomas Daugaard .. *wee*)
???...
T(med stort \"T\")homas D(med stort \"D\")augaard ??..

- Det lyder som om du har samme motto som jeg:
\"Heller DDOOBBBBEELLTT moral end ingen moral\"
*LoOoOoOoL*

\" og NEJ vi skal ikke til at tage den med NickNamez op igen *GGG* - vel tdaugaard !!..

- eller skal vi være personlige og bruge fornavne ??.. - Thomas !!..

hilsen René

René, ja, Thomas Daugaard er med stort T & D, meen jeg har nu valgt at bruge \"tdaugaard\" ligesom du har valgt at bruge MoRoax (her er forskellen bare at eksperten følger mit valg, men de laver dit navn lowercase) ;o) Og nej, den krig skal vi ikke ud i igen :o)

>> Thomas >>

Har du givet op, eller strikker du stadig ??..

>> Hov havde ikke set dit svar midt i det hele
sorry..

Men Øhhh... den fejl her:
\"
Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a0414\'

Der kan ikke bruges parenteser ved kald af en Sub

/fso/test/test.asp, line 31

WriteLine(Server.MapPath(\"you_might_be_a_geek_if.txt\"), 6, \"TEEEEEEEEEEEEEEEEEEST\")
-----------------------------------------------------------------------------------^

\"
Hmmm...
er det min IIS opsætning der fucker ??..
- Skifter sq snart til PWS igen,

Hmm...

Jeg kender et program hvor man kan læse de fejl her (800a0414),
Skal lige høre dig om \"noget\" hvad var det din mail var ??..

MoRoax:> for alt i verden skift ikke til PWS hvis du bruger IIS!
Hvis du læste det hele så ville du se at i det første kode jeg postede der brugte jeg IKKE (), men en Sub !? Hvad snakker du om .. det er en Function jeg har lavet ...

e@tdaugaard.dk og jo, det vil jeg gerne høre noget om *S*

oOOoh Yes baby....

now it rulez....

Point 4 you

Snakkes...

*S* fiino :-) Hygge ...