Scripting.FileSystemObject

Jag håller på lite med administration av asp/html filer online just nu :e

Jag får inte bara till det riktigt.
Hur gör jag när jag ska loop ut koden mellan en fast referens, rad nummer till textens slut som avslutas med '#&#'?

hur ser din kod ut nu?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

Dim ed, Path, Open

Set Ed = Server.CreateObject("Scripting.FileSystemObject")
Path = Edit.BuildPath(folder, dokVar)
Set Open = Edit.OpenTextFile(Path)

Do Until Open.Line = 5
Open.SkipLine
Loop

Just nu hämtar den raden 5. Men jag vill att den hämtar raderna ifrån rad5 till det kommer upp '#&#' längre ner i texten.

(otestat)

byt

Do Until Open.Line = 5
Open.SkipLine
Loop

till

for i = 1 to 4
Open.SkipLine
next
do while not Open.atendofstream
strLine = Open.readline
if strLine = "#&#" then
exit do
else
response.write strLine & "<br>"
end if
loop

som sagt, otestat. det får du göra liksom. :)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

Tackar :e

Testade inte så mycket, men det verkade att funka..=)