4 svar · 195 visningar · startad av fredrik99
Jag håller på lite med administration av asp/html filer online just nu 
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?
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. 