File txt

[francy_eb]

Ciao Ragazzi,
il mio problema è il seguente, ho un file di txt strutturato nel seguente modo:
------------------
categoria1>SottoCategoria1>>Prodotto1
categoria1>SottoCategoria1>>Prodotto2
categoria1>SottoCategoria1>>Prodotto3
categoria1>SottoCategoria1>>Prodotto4
categoria1>SottoCategoria1>>Prodotto5
Categoria2>SottoCategoria2>>Prodotto1
Categoria2>SottoCategoria2>>Prodotto2
Categoria2>SottoCategoria2>>Prodotto3
Categoria2>SottoCategoria2>>Prodotto4
Categoria2>SottoCategoria2>>Prodotto5
Categoria3>SottoCategoria3>>Prodotto1
Categoria3>SottoCategoria3>>Prodotto2
Categoria3>SottoCategoria3>>Prodotto3
Categoria3>SottoCategoria3>>Prodotto4
Categoria3>SottoCategoria3>>Prodotto5
------------------
Il dovrei leggere la categoria che è quella che risiede prima del carattere ">" e stamparla e far si che non vi siano duplicati.
Come posso fare?
Grazie

[Corwin]

Set Fso = Server.CreateObject("FileSystemObject")
Set f = Fso.OpenTextFile(Server.MapPath("file.txt"),1)
old = ""
While not f.AtEndOfStream
s = f.ReadLine
s = Left(s,Instr(s,">")-1)
If s <> Old Then 
Response.Write s & "
"
End if
old = s
Wend

O qualcosa di simile.

[francy_eb]

Perfetto!!!
Ma se volessi recuperarmi tutte le sottocategorie e relativi prodotti appartenenti ad una determinata categoria, come posso fare?
Se hai notato non sono molto ferrata con i file txt!
Grazie

[fiber81]

secondo me fai prima ad usare un database, che tra l'altro èmolto più semplice

[Corwin]

Originariamente inviato da fiber81
secondo me fai prima ad usare un database, che tra l'altro èmolto più semplice

In effetti, se coi database te la cavi meglio, forse vale la pena considerare l'idea di usare il driver per aprire i file di testo come fossero tabelle di database...

[francy_eb]

Purtroppo non posso usare un db, il cliente vuole un file di testo.
Se puoi darmi 2 dritte ben venga
saluti

[Corwin]

Originariamente inviato da francy_eb
Purtroppo non posso usare un db, il cliente vuole un file di testo.
Se puoi darmi 2 dritte ben venga
saluti

Partendo dal presupposto che il file si chiami db.txt :
1) Devi creare un file di testo (usa blocco note) che si chiama schema.ini e caricarlo sul server .Deve essere scritto così:

[db.txt]
Format=Delimited(>)
ColNameHeader=False
Col1=categoria text
Col2=sottocagetoria text
Col3=vuota text
Col4=prodotto text

2) a questo punto la pagina asp che recupera le categorie diventa:

<%
strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & ";Extended Properties=""text;"""
set conn = server.createobject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")
conn.open strProvider
sql = "SELECT DISTINCT CATEGORIA FROM DB.TXT"
rs.open sql, conn
While not rs.eof
Response.Write rs("CATEGORIA") & "
"
rs.Movenext
Wend
%>

3) Per recuperare le sottocategorie corrispondenti a una categoria:

<%
categoria = "categoria_da_cercare"
strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & ";Extended Properties=""text;"""
set conn = server.createobject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")
conn.open strProvider
sql = "SELECT DISTINCT SOTTOCATEGORIA FROM DB.TXT WHERE CATEGORIA='" & categoria & "'"
rs.open sql, conn
While not rs.eof
Response.Write rs("SOTTOCATEGORIA") & "
"
rs.Movenext
Wend
%>

[NB]
Nel file schema.ini alla riga
Format=Delimited(>)
Compare uno spazio tra > e ) che non ci vuole... misteri del forum. :master:

[francy_eb]

Purtroppo non posso usare un db, il cliente vuole un file di testo.
Se puoi darmi 2 dritte ben venga
saluti

[francy_eb]

Mi da questo errore
Opzione Col1 non valida nella specifica del file di testo 'AUTO.TXT'.
/auto/categorie.asp, line 24

[Corwin]

Originariamente inviato da francy_eb
Purtroppo non posso usare un db, il cliente vuole un file di testo.
Se puoi darmi 2 dritte ben venga
saluti

ho come una sensazione di déjà-vu... :master: