Non ho capito il doppio loop ( non è un salto di pattinaggio!!!!!)
).
Ti ricordo che ogni volta che chiami readline legge la successiva-->
Il codice è semplice.
1)Recuperi il dato per la ricerca dal form..sessione...queelo che vuoi
2)apri il file della graduatoria e lo leggi fino al carattere di EOF
3)leggi la prima riga e valorizzi una variabile di testo dalla quale estrai le prime n lettere che conpongono il tuo codice confronti con il dato per la ricerca:
4) se uguale stampi tutta la stringa
codice:
Ipotesi i campi nel file di testo sono separati da |
<%
session("controllo_classifica") = request.form("controllo_classifica")
'procedura di controllo se patente inserita
'è presente nella graduatoria finale
Dim FileObject
dim stringa,codice
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
nomefile = "classifica.txt"
Set controllo = FileObject.OpenTextFile(Server.MapPath(nomefile),1,False,0)
Session("counter") = 0
Do While controllo.AtEndOfStream <> True
Session("counter") = Session("counter") + 1
stringa=controllo.ReadLine
codice=left(stringa,(instr(stringa,"|") - 1))
if codice=session("controllo_classifica") then
response.write (stringa & "<br>")
end if
stringa=""
codice=""
Loop
controllo.close
Set controllo = nothing
Set FileObject = Nothing
%>
Comunque l'xml va molto molto molto meglio (
puoi fare le query in linguaggio SQL
) e in fatto di sicurezza...........non capisco la differenza con un file di testo
Modificato da guidocaser il 28 marzo 2006 12.49 -
