Læs fra en linie til en anden

Hvordan står det?

balbaf
<-LOG->
udskriv dettte
<!LOG!>
blalbla

eller:
balbaf<-LOG->udskriv dettte<!LOG!>blalbla

Hvis det ser ud som :

balbaf
<-LOG->
udskriv dettte
<!LOG!>
blalbla

Så er her din føste function.:

function udskrivfraFil ()
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set file = fso.OpenTextFile("c:\fil.log")
 
  udskriv = false
  do while not file.AtEndOfStream
    lineStr = file.ReadLine
   
    if udskriv = true then Response.Write lineStr & "<br>"
   
    if inStr(1,lineStr, "<-LOG->") then udskriv = true
    if inStr(1,lineStr, "<!LOG!>") then udskriv = false
  loop
end function

"Teksten skal ind mellem <-LOG-> og <!LOG!>."

Skal der laves nogle nye <-LOG-> og <!LOG!> når du skriver noget nyt eller skal det ind lige føre <!LOG!> ?

Her er så den som gemmer i filen. Da man skal skrive midt i filen er det nødvendigt at lave en temp fil da man ikke direkte kan skrive midt i filen men kun i enden af filen.:

Den skriver linjen ind i linjen lige inden <!LOG!>:



function skrivtilFil (str)
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.CopyFile "c:\fil.log", "c:\temp.log"

  Set file = fso.OpenTextFile("c:\fil.log",2)
  Set temp = fso.OpenTextFile("c:\temp.log")
 
  skrevet = false
  do while not temp.AtEndOfStream
    lineStr = temp.ReadLine
    if inStr(1,lineStr, "<!LOG!>")>0 AND skrevet = false then
      file.writeLine str
      skrevet = true
    end if
    file.writeLine lineStr
  loop
  file.Close
  temp.Close
  Set fso = Nothing
  Set file = Nothing
end function

Du kan kalde dem sådan her:

Call udskrivfraFil

Response.Write "<br>"

Call skrivtilFil("NY LINJE")

Call udskrivfraFil

jamen, det er jo bare kanon og flot.... :D
200 til dig....
thx...