webForumDet fria alternativet

Läs av rad 2 i default.asp

ASP

11 svar · 290 visningar · startad av voigtann1

Medlem sedan juni 20019 519 inlägg
Frågan#1

Om vi har en sida och har en mapp som heter
<script>
i denna mapp så har vi några mappar och alla mappar innehåller en default.asp fil. Kan man göra ett script som gör så att den läser av exempel:
<script>\<ny>\default.asp
<script>\<ny2>\default.asp

rad 2?
och få ut information?

Medlem sedan juni 200032 967 inlägg
#2

Ja, det kan man. ;)

Men du kan inte ha mappnamn med < eller > i.

Medlem sedan juni 20019 519 inlägg
#3

nej... utan att "simulera" så att ni ska se vad jag menar... men inga <> ;)

Medlem sedan juni 200032 967 inlägg
#4

Då får vi se på koden du har då? :)

Medlem sedan juni 20019 519 inlägg
#5

.... ja du ser den... har ingen direkt... visste inte ens om detta var möjligt... kan anar om man har 20 mappar kan detta ta lång tid att ladda? Jag kastar ut bollar just nu för att få lite hum om detta :e

Medlem sedan juni 200032 967 inlägg
#6

Det är inte svårare än att iterera och testa lite med folder- och file-objekten i FSO.

20 mappar är väl inte mycket?

Om du berättar vad du tänkt göra kanske man kan komma på en bättre lösning?

Medlem sedan juni 20019 519 inlägg
#7

.... nej men betydligt mer än 2 eller hur? ;)
Får sätta på mig wF tröjan och gräva lite i böcker ;)

Medlem sedan juni 20019 519 inlägg
#8

Bara kört lite men sitter fast nu:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder(server.mappath("scripts\"))
For each Item in Folder.SubFolders

set Files = item.Files
  For each Item2 In Files
    if lcase(Item2.Name) = "default.asp" then
      response.write Item.name
    end if
  next
next

%>

Jag tycker den se "något" rätt ut... men jag får aldrig att if-satsen stämmer.. vet inte ens om den kör de filer i mappen.. vilket jag inte tror den gör nu behöver jag hjälp @nders ;)

Medlem sedan juni 200032 967 inlägg
#9

Testutskrifter, käre sörlänning. :)
Testutskrifter överallt. Mappnamn, filnamn, namn på gamla officerare, hela klabbet! :)

Medlem sedan juni 20019 519 inlägg
#10

Kolla vad voigt kan!:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
str_dir = server.mappath("scripts\")
Set Folder = FSO.GetFolder(str_dir)

For each Item in Folder.SubFolders

set Files = item.Files

  For each Item2 In Files
    if lcase(Item2.Name) = "default.asp" then
      set objFile = Fso.getFile(str_dir &"/" & item.name &"/default.asp")
      Set textStream = fso.OpenTextFile(str_dir &"/" & item.name &"/default.asp",1, False)
      arrRows = split(textStream.ReadAll , vbCrLf) 
      textStream.close
    end if
  next
next

%>

... fast lite bugg fixar såsom om default.asp är tomt eller inte ens ha en rad 2 :e

Medlem sedan juni 20019 519 inlägg
#11

Hur kollar man om filen har en rad 2? det är ju en array men hur gör man den kontrollen... if isarray(arrRows(3)) ?

Medlem sedan juni 200032 967 inlägg
#12
if ubound(arrRows)>0 then
257 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
124 ms — hämta tråd, inlägg och bilagor (db)
130 ms — ändringar (db)