4 svar · 192 visningar · startad av fredrik99
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>