[ASP] Zoeken binnen een txtfile

Pagina: 1
Acties:

  • MankE NeliZ
  • Registratie: Mei 2000
  • Laatst online: 23-07 06:49

MankE NeliZ

Geen matches

Topicstarter
Hallo ik zou graag wat pointers willen in de richting van een methode om via asp een textfile te doorzoeken, zodat de regel in de textfile wordt getoond, met de woorden die in je query voorkomen.

Ik heb al een searchengine die een de file in een directory kan vinden met de woorden die aan je zoektermen voldoen. Het enige wat ik niet precies weet, is hoe je de regel in die texfile op het scherm kan tonen, waar de zoektermen in voorkomen.

Thanx!

In Kazachstan we say a woman with a book...is like a horse...with wings!


  • Crazy D
  • Registratie: Augustus 2000
  • Laatst online: 08:12

Crazy D

I think we should take a look.

Check het filesystemobject in je favoriete reference guide. Die heeft een Readline functie (kan iets anders heten, maar is een functie om uhh een regel in te lezen). Die kun je checken of het woord wat je zoekt erin zit, en zo ja, tonen.

PS dit is meer iets voor [forum=38]

Exact expert nodig?


  • IceStorm
  • Registratie: Februari 2000
  • Laatst online: 16-09 22:16

IceStorm

This place is GoT-like!!!

Deze is voor de mensen van [forum=38] :).

Verwijderd

Op zondag 11 november 2001 11:35 schreef MankE NeliZ het volgende:
Hallo ik zou graag wat pointers willen in de richting van een methode om via asp een textfile te doorzoeken, zodat de regel in de textfile wordt getoond, met de woorden die in je query voorkomen.

Ik heb al een searchengine die een de file in een directory kan vinden met de woorden die aan je zoektermen voldoen. Het enige wat ik niet precies weet, is hoe je de regel in die texfile op het scherm kan tonen, waar de zoektermen in voorkomen.

Thanx!
wel hierbij

<%
Dim fs,f,woord,regel,woorden,searchword

' searchword is het langskomende zoekwoord
search="zoekwoord"

set fs = server.CreateObject("Scripting.fileSystemObject")
set f = fs.OpenTextFile(server.mapPath("mijnbestand"))
while not f.AtEndOfStream
'regel voor regel uitlezen
regel = f.Readline
'nu de regel splitten op bv spaties en in een array plaatsen
woorden = split(trim(regel)," ")

for woord = 0 to ubound(woorden)
If woorden(woord) = searchword Then'zoekwoord gevonden, regel uitschrijven
response.write regel
end if
next
wend
f.close
set f = nothing
set fs=nothing
%>

Ik moest dit :( op mijn website testen omdat mn pc niet reargeerd op het uitlezen/aanmaken van bestanden

zie [topic=316917/1/25]

  • MankE NeliZ
  • Registratie: Mei 2000
  • Laatst online: 23-07 06:49

MankE NeliZ

Geen matches

Topicstarter
Thanx voor de hulp mensen, ik ben er nu eindelijk uit :)

In Kazachstan we say a woman with a book...is like a horse...with wings!