--- title: "söka i filer i olika kataloger" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/41307-söka-i-filer-i-olika-kataloger" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "pellsäter" published: "2002-04-10T17:09:08.000Z" updated: "2002-04-12T14:02:08.000Z" replies: 15 views: 489 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/41307-söka-i-filer-i-olika-kataloger" --- # söka i filer i olika kataloger ## #1 — pellsäter, 2002-04-10T17:09Z vill kunna söka i de olika sidorna i vår site inkluderat alla undermappar. Hur skirever jag denna sträng så att det funkar? Som det är nu så säker den bar på filer som ligger direkt i katalogen "amts" FolderToCheck = server.mappath("\\") &"/" & amts & "/" Kan förresten kolla detta också. Jag har skrivit i funktionen att den ska leta efter .html .htm och .asp filer. Men nu har jag filer som slutar med .asp?något Hur gör jag då Permalänk: https://www.webforum.nu/p/41307 ## #2 — pellsäter, 2002-04-10T19:41Z Är det någon som nån idé!!! Permalänk: https://www.webforum.nu/p/641054 ## #3 — erka, 2002-04-11T07:49Z posta övrig kod så vi kan se hur det är uppbyggt. Permalänk: https://www.webforum.nu/p/641227 ## #4 — pellsäter, 2002-04-11T07:56Z Ok!! Sitter på jobbet nu utan tillgång till filerna ska se om jag sticker hom på lunch sen Permalänk: https://www.webforum.nu/p/641228 ## #5 — erka, 2002-04-11T07:58Z Du söker väll igenom filerna och filerna heter ju inte whatever.asp?Querystring=BALALAL&Querystring2=KEFFOLAFFE Permalänk: https://www.webforum.nu/p/641229 ## #6 — pellsäter, 2002-04-11T08:25Z En del filer heter tex. lankar.asp?kat=musikal och söker jag på tex Hair så vet jag att jag har det ordet med i den kategorin men den hittar inte det Permalänk: https://www.webforum.nu/p/641239 ## #7 — erka, 2002-04-11T08:53Z Själva filerna heter ju inte lankar.asp?kat=musikal utan filen heter lankar.asp, querystringen får du ju inte med försn du har kört sidan på servern Permalänk: https://www.webforum.nu/p/641258 ## #8 — pellsäter, 2002-04-11T08:54Z men varför hittar den då inte den sidan?? Permalänk: https://www.webforum.nu/p/641261 ## #9 — erka, 2002-04-11T09:17Z Eftersom han inte söker igenom själva sidorna utan bara filstrukturen, filen i filstrukturen heter lankar.asp det är först när sidan executas på servern (när någon besöker den) som querystringen kommer med. Permalänk: https://www.webforum.nu/p/641270 ## #10 — pellsäter, 2002-04-11T09:20Z hmmm knepigt!! jag vill ju att han ska söka på ordet Hair och visa en länk till den sidan där ordet finns med!! vad han gör nu är att ahan visar en länk till lankar.asp Jag vill att han ska visa till lankar.asp?kar=musikal går inte det menar du? Permalänk: https://www.webforum.nu/p/641272 ## #11 — erka, 2002-04-11T09:33Z Jo det går men det är lite krångligt. Man kan lösa det på ett flertal sätt. Skicka med en sökparameter från sökscriptet som plockas upp av sidan lankar.asp och visar rätt querystring är ett sätt. Det beror på hur det övrigt är kodat Permalänk: https://www.webforum.nu/p/641278 ## #12 — pellsäter, 2002-04-11T10:53Z ok det får jag kika lite på då!! Den andra frågan behöver du ha mer kod till... jag får fixa det ikväll... "vill kunna söka i de olika sidorna i vår site inkluderat alla undermappar. Hur skirever jag denna sträng så att det funkar? Som det är nu så säker den bar på filer som ligger direkt i katalogen "amts" FolderToCheck = server.mappath("\\") &"/" & amts & "/" Bengt Permalänk: https://www.webforum.nu/p/641342 ## #13 — pellsäter, 2002-04-11T21:07Z Här är koden för sökfunktionen som jag vill ska söka i alla mappar ingående i siten \<% Sub ShowList() FolderToCheck = server.mappath("\\") &"/" & amts & "/" Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(FolderToCheck) Set fc = f.Files For Each f1 in fc Wfile = f1.name if right(Wfile, 5)=".html" OR right(Wfile, 4)=".htm" OR right(Wfile, 4)=".asp" then Wfile2 = FolderToCheck & Wfile Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(Wfile2) ct = a.ReadAll a.close ct2=lcase(ct) SearchTerm2 = lcase(SearchTerm) if instr(ct2,SearchTerm2)\>0 then if instr(ct,"\")\>0 then longitud=instr(ct,"\") longitud=longitud -1 ct=left(ct,longitud) longitud2=len(ct) longitud=instr(ct,"\") longitud=longitud2 -longitud -6 ct=right(ct,longitud) else if instr(ct,"\")\>0 then longitud=instr(ct,"\") longitud=longitud -1 ct=left(ct,longitud) longitud2=len(ct) longitud=instr(ct,"\") longitud=longitud2 -longitud -6 ct=right(ct,longitud) end if end if SearchResponse= SearchResponse +"\\"+ ct + "" + " \»\\\" longitud=0 ct="" end if end if Next Response.Write ("\\\Sökresultat\\\\") Response.Write ("") Response.Write ("") if SearchResponse\<\>"" then Response.Write SearchResponse else Response.Write ("Tyvärr, så resulterade sökordet inga träffar.\\") end if Response.Write ("") Response.Write ("\ \") Response.Write ("\\\") End Sub %\> Permalänk: https://www.webforum.nu/p/641694 ## #14 — pellsäter, 2002-04-12T13:52Z hej igen!! Är det någon som har nån idé så tar jag tacksamt emot den! Mvh Bengt Permalänk: https://www.webforum.nu/p/641971 ## #15 — @nders, 2002-04-12T13:56Z Spontant känns det som att jag hade gjort så här: 1) Skapat ett filsystemsobjekt och loopat igenom samlingen SubFolders i mappen amts. 2) för varje undermapp, ropat på subben ShowList(), som då måste ta emot mappnamn som argument 3) lyft ut det som bara ska skrivas ut en gång, ur subben, och skriva ut innan resp. efter loopen (enligt punkt 1.). Mvh, Permalänk: https://www.webforum.nu/p/641974 ## #16 — pellsäter, 2002-04-12T14:02Z ok???? och hur gör man det??? massa frågor \*skrattar\* Permalänk: https://www.webforum.nu/p/641976 --- Tråden på webben: https://www.webforum.nu/amne/asp/41307-söka-i-filer-i-olika-kataloger