motore di ricerca interno...ASP...

[cionci]

Ma che errore ti da ora ?

[SteR9]

Originariamente inviato da cionci
Ma che errore ti da ora ?

è questo il bello!
non mi da nessun errore....continua a rimanere a metà la barra di caricamento della pagina e non la carica...un pò come se fosse in un ciclio infinito che nn gli permette di finire il caricamento della pagina...

[SteR9]

risolto....era colpa del maledetto blocco degli script del norton anti virus!
ciao

[SteR9]

hoprovato a scrivere la pagina per la ricerca in tutti i files...ma non funziona...la pagina è questa

<%
Dim objFSO,objFile,objFolder,strText,Testo
testo = "prova"
set objFSO = server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder("c:\inetpub\wwwroot\")

for each objfile in objfolder.Files
  set ObjOpenFile = objFSO.OpenTextFile(objfile.name, ForReading, True)
  strText = objOpenFile.ReadLine
   if Instr(strtext, testo) <> 0 then 
    response.Write(server.HTMLEncode(strtext))
    response.Write("<BR>")
   end if
next
set objFolder = nothing
set objFSO = nothing
%>

mi da questo errore
Errore di run-time di Microsoft VBScript (0x800A0005)
Chiamata di routine o argomento non validi
su questa riga set ObjOpenFile = objFSO.OpenTextFile(objfile.name, ForReading, True)
dove sbaglio?
grazie

[SteR9]

ho corretto mi ero dimenticato alcune cose...
ora il codice è questo

Dim objFSO,objFile,objFolder,strText,Testo,ObjOpenFile
testo = "prova"
set objFSO = server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder("c:\inetpub\wwwroot\")

for each objfile in objfolder.Files
   set ObjOpenFile = ObjFSO.OpenTextFile(Server.MapPath(objfile.name),1,False,False)
   response.Write(objfile.name & "<BR>")
  strText = objOpenFile.ReadLine
  if Instr(strtext, testo) <> 0 then 
    response.Write(server.HTMLEncode(strtext))
    response.Write("<BR>")
  end if
next
set objFolder = nothing
set objFSO = nothing

ma mi da questo errore
Errore di run-time di Microsoft VBScript (0x800A003E)
Input oltre la fine del file
dove potrebbe essere il problema?

[SteR9]

Originariamente inviato da SteR9
ho corretto mi ero dimenticato alcune cose...
ora il codice è questo

Dim objFSO,objFile,objFolder,strText,Testo,ObjOpenFile
testo = "prova"
set objFSO = server.CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder("c:\inetpub\wwwroot\motore")
strpath = "c:\inetpub\wwwroot\motore\"
for each objfile in objfolder.Files
   set ObjOpenFile = ObjFSO.OpenTextFile(strpath&objfile.name,1,False,False)
   response.Write(strpath&objfile.name & "<BR>") 
   strText = objOpenFile.ReadLine
     response.Write(strText& "<BR>")
  if Instr(strtext, testo) <> 0 then 
    response.Write(server.HTMLEncode(strtext))
    response.Write("<BR>")
  end if
next
set objFolder = nothing
set objFSO = nothing

ora va tutto ma sembra non funzionare readline perchè la var strtext non prende alcun valore...
dove potrebbe essere il problema?

[cionci]

Frvi emttere il controllo sull'endofstream...

[SteR9]

Originariamente inviato da cionci
Frvi emttere il controllo sull'endofstream...

sbagliavo con quell'if...ora funziona tutto...però ho un'altra domanda...
if Instr(strtext, testo) <> 0 then
response.Write("<a href="&objfile.name &">" & "testo</a>" & strtext)
response.Write("<BR>")
end if

ora in questo modo stampo tutte le pagine che contengono la parola cercata...se volessi stampare solo un pezzettino della variabile strText,la parte di testo in cui è contenuta la parola cercata...come dovrei fare?

[SteR9]

ok sono riuscito ad estrarre la parte di testo che mi interessa...però andando a cercare dentro al file mi stampa anche i tag html e ad esempio le animazioni flash...nn c'è un modo per impedirgli di farlo?

[cionci]

Prov così:

Response.Write Server.HTMLEncode( string )

[SteR9]

Originariamente inviato da cionci
Prov così:

Response.Write Server.HTMLEncode( string )

eh ma così mi stampa proprio i tag...invece io vorrei ad esempio una funzione che salti il contenuto dei tag....nn si potrebbe scrivere una funzione del genere? che quando trova <testo html>
lo salta...

[cionci]

Dim OpenTag
OpenTag = 0
Function HTMLStrip(StrToStrip, ByRef OpenedTag)
   Dim gt, ls, tmp;
   ls = 0
   gt = 0
   Do
      If OpenTag = 0 Then
          ls = InStr(gt+1, StrToStrip, "<")
          If ls > 0 Then
              OpenedTag = 1
          End If
      End If
      gt = InStr(ls+1, StrToStrip, ">")
      If OpenTag <> 0 And ls = 0 And gt = 0 Then
          StrToStrip = ""
      ElseIf ls = 0 And gt <> 0 Then
          StrToStrip = Right(StrToStrip, gt)
          gt = 0
      ElseIf ls <> 0 And gt = 0 Then
          StrToStrip = 
          ls = 0
      Else
          StrToStrip = Left(StrToStrip, ls) & Right(StrToStrip, Len(StrToStrip)-gt)
          ls = ls - 1
          gt = ls
      End If
   Loop While ls <> 0 And gt <> 0
End Function

Prova con qualcosa del genere....
Ovviamente OpenTag lo devi ripresentare ad ogni riga che fai controllare...

[SteR9]

l'ho provato ma non mi sono chiare alcune cose

Dim OpenTag
OpenTag = 0
response.Write(HTMLStrip("<strong>ciao mondo!</strong>",0))
Function HTMLStrip(StrToStrip, ByRef OpenedTag)
   Dim gt, ls, tmp
   ls = 0
   gt = 0
   Do
      If OpenTag = 0 Then
          ls = InStr(gt+1, StrToStrip, "<")
          If ls > 0 Then
              OpenedTag = 1
          End If
      End If
      gt = InStr(ls+1, StrToStrip, ">")
      If OpenTag <> 0 And ls = 0 And gt = 0 Then
          StrToStrip = ""
      ElseIf ls = 0 And gt <> 0 Then
          StrToStrip = Right(StrToStrip, gt)
          gt = 0
      ElseIf ls <> 0 And gt = 0 Then
          'StrToStrip = 
          ls = 0
      Else
          StrToStrip = Left(StrToStrip, ls) & Right(StrToStrip, Len(StrToStrip)-gt)
          ls = ls - 1
          gt = ls
      End If
   Loop While ls <> 0 And gt <> 0
End Function

allora qua
ElseIf ls <> 0 And gt = 0 Then
StrToStrip =
ls = 0
manca l'assegnamento a strToStrip.

poi non capisco cosa sono opentag e OpenedTag...
grazie mille!

[cionci]

Sono la stessa cosa, chiamali OpenedTag.... Indica (e il valore riotrna anche al chiamante) che c'è un tag rimasto aperto da unachiamata precedente (visto che un tago potrebbe venire chiuso anche nella riga successiva)...

Non l'ho provata... è per quello che ci sono tanti errori

Dim OpenedTag
OpenedTag = 0
response.Write(HTMLStrip("<strong>ciao mondo!</strong>",OpenedTag))
Function HTMLStrip(StrToStrip, ByRef OpenedTag)
   Dim gt, ls, tmp
   ls = 0
   gt = 0
   Do
      If OpenTag = 0 Then
          ls = InStr(gt+1, StrToStrip, "<")
          If ls > 0 Then
              OpenedTag = 1
          End If
      End If
      gt = InStr(ls+1, StrToStrip, ">")
      If gt > 0 Then
          OpenedTag = 0
      End If
      If OpenedTag <> 0 And ls = 0 And gt = 0 Then
          StrToStrip = ""
      ElseIf OpenedTag <> 0 And ls = 0 And gt <> 0 Then
          StrToStrip = Right(StrToStrip, gt)
          gt = 0
      ElseIf ls <> 0 And gt = 0 Then
          StrToStrip = Left(StrToStrip, ls)
          ls = 0
      Else
          StrToStrip = Left(StrToStrip, ls) & Right(StrToStrip, Len(StrToStrip)-gt)
          ls = ls - 1
          gt = ls
      End If
   Loop While ls <> 0 And gt <> 0
End Function

[SteR9]

non stampa niente ho provato a stampare ogni StrToStrip
dentro a ogni else ma sembra che vengano cancellati... boh

sembra nn funzionare questo
StrToStrip = Left(StrToStrip, ls) & Right(StrToStrip, Len(StrToStrip)-gt)

[SteR9]

cionci mi hai abbandonato??
ho provato a fare un pò di prove ma nn funziona qua
StrToStrip = Left(StrToStrip, ls) & Right(StrToStrip, Len(StrToStrip)-gt)

però non riesco a trovare un'altro modo per farlo

[cionci]

Sto lavorando...ora non ho tempo

[SteR9]

Originariamente inviato da cionci
Sto lavorando...ora non ho tempo

ok,non ti preoccupare...quando hai un pò di tempo se puoi darci un'occhiata! grazie ancora!