confronto

[logan78]

dovrei confrontare dei codici tra un file di testo e un db

Qualcuno sa darmi una dritta GRAZIE

[burruchaga]

dei codici?
dipende da qualche fattore.
che tipo di codici sono?
che tipo di confronto devi fare?
com'è strutturato il file di testo?
e il database?

tu praticamente devi leggere un intero file di testo e confrontare con il contenuto di un campo? spiegati

[logan78]

hai ragione scusami.
Allora il file di teso è così strutturato:

P1;C0003301;4PF02TTSV019524 ;6;;;
P1;C0003301;4PF02TTSV019512;9;;;
P1;C0003301;4PF02TTSV0195D2;7;;;
P1;C0003301;4PF02TTSV019512;9;;;
P1;C0003301;4PF02TTBR019722;15;;
P1;C0003301;4PF02TTBR0197 ;15;;
P1;C0003301;4PF02TTQU019612;17;;
P1;C0003301;4PF02TTQU019612;15;;
P1;C0003301;1IMCAM2765ZZ004;33;;
P1;C0003301;4PF02PAZA999021;11;;
P1;C0003301;4PF02MTBA005233;9;;;

Il codice che devo vedere se esiste nel datbase è quello evidenziato

Il campo del db a solo questo codice

Spero di essere stato chiaro

[burruchaga]

quindi diciamo che leggi il tuo file di testo e salvi il suo contenuto intero in una variabile
ad esempio
contenuto_txt=filetesto.readall()

ora spezzi il tutto: righe e colone

righe=split(contenuto_txt,vbCrLf)

for i = 0 to ubound(righe)
   colonne=split(righe(i),";")
   'quì fai il confronto con quello che hai nel tuo record
   if colonne(2)=tuorecord("tuocampo") then
      'fai quello che ti pare
   end if
next

[logan78]

Grazie provo e ti faccio sapere

[logan78]

<%
Dim rst_articoli
Dim rst_articoli_numRows

Set rst_articoli = Server.CreateObject("ADODB.Recordset")
rst_articoli.ActiveConnection = MM_gdm_STRING
rst_articoli.Source = "SELECT * FROM tblProdotti, tblProdotti_Cat"
rst_articoli.CursorType = 0
rst_articoli.CursorLocation = 2
rst_articoli.LockType = 1
rst_articoli.Open()

rst_articoli_numRows = 0
%>
<%

Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")

'LEGGO IL FILE
Set InStream=FileObject.OpenTextFile(Server.MapPath("c ategorie.txt"),1,False,False)
linee=Instream.ReadAll()
InStream.Close

contenuto_txt=linee

righe=split(contenuto_txt,vbCrLf)

for i = 0 to ubound(righe)
colonne=split(righe(i),";")
'quì fai il confronto con quello che hai nel tuo record
if colonne(2)=(rst_articoli.Fields.Item("CodiceArtico lo").Value) then
'fai quello che ti pare
Response.Write("L' articolo c'e'")
Else
Response.Write("manca
")
end if
next
Set InStream=Nothing

'MOSTRO A VIDEO IL CONTENUTO DEL FILE
'Response.write "<pre>" & linee & "</pre>"

Set FileObject=Nothing
%>
<%
rst_articoli.Close()
Set rst_articoli = Nothing
%>

il risultato lo ho ottenuto con un errore:

manca
manca
manca
manca
manca
manca
manca
manca
manca

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 2]'

/lettura.asp, line 35

dove sbaglio?