filesystemobject e title

flasini

filesystemobject e title

salve
ho un codice che tramite il file system object legge i nomi dei files contenuti in una cartella e li riporta in formato elenco nella pagina
nel caso specifico sono tutti file html

invece di stampare l'elenco dei nomi dei files, vorrei stampare i title
è possibile farlo?

madai

Devi leggere il testo contenuto in ogni singolo file ed andare a cercare la stringa che si trova tra <title> e </title>

flasini

il codice è questo


     <% Dim fso, f, f1, fc, s
        Set fso = CreateObject("Scripting.FileSystemObject")
               Set f = fso.GetFolder(server.mappath("cartellafile"))
        
        Set fc = f.Files
        
        For Each f1 in fc
      
        s = f1.name       
        Response.Write "<li><a href='cartellafile/"& s &"' class='type' target='_blank'>" & s & "</a></li>"%><br>     
     
     <%Next%>

come posso prelevare il title di questi html posti nella cartella "cartellafile" e non il nome?

madai

Prova ad utilizzare il metodo OpenTextFile per inserire il testo del file in una variabile. Poi splittane il contenuto in base ai tag <title> e </title> in maniera tale da ricavare la stringa tra essi contenuta.

flasini

@madai said:

Prova ad utilizzare il metodo OpenTextFile per inserire il testo del file in una variabile. Poi splittane il contenuto in base ai tag <title> e </title> in maniera tale da ricavare la stringa tra essi contenuta.

in italiano ho capito ehhehe

in codice come sarebbe?
mi sapresti dare cortesemente uno spunto ?

mi disp non sono così bravo nel programmare
so fare cose base

madai

Prova così:

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Server.MapPath("cartellafile"))

Set fc = f.Files

For Each f1 in fc

    s = f1.Name
    Set objTextFile = fso.OpenTextFile(Server.MapPath("cartellafile/" & s), 1)
    html = objTextFile.ReadAll
    
    If InStr(html,"<title>") > 0 and InStr(html,"</title>") > 0 then
        title = Split(html,"<title>")(1)
        title = Split(title,"</title>")(0)
    Else
        title = "Titolo non disponibile per <i>" & s & "</i>"
    End if
    
    Response.Write("<li><a href='cartellafile/"& s &"' class='type' target='_blank'>" & title & "</a></li><br>")
    
    objTextFile.Close
    
Next
%>

flasini

funziona..

sei troppo forte
per me è arabo quello che hai scritto eheheh

mi mette un ">" prima del titolo

ultima cosa

se volessi usare prendere il testo contenuto nel meta content al posto del title (per altre cose), vale lo stesso discorso?

grazie

madai

Per la descrizione prova così... in grassetto le "aggiunte" che ho apportato:

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Server.MapPath("cartellafile"))

Set fc = f.Files

For Each f1 in fc

    s = f1.Name
    Set objTextFile = fso.OpenTextFile(Server.MapPath("cartellafile/" & s), 1)
    html = objTextFile.ReadAll
    
    If InStr(html,"<title>") > 0 and InStr(html,"</title>") > 0 then
        title = Split(html,"<title>")(1)
        title = Split(title,"</title>")(0)
    Else
        title = "Titolo non disponibile per <i>" & s & "</i>"
    End if

**     If InStr(html,"<meta name=""description"" content=""") > 0 then
        descr = Split(html,"<meta name=""description"" content=""")(1)
        descr = Split(title,"""")(0)
    Else
        descr = "Descrizione non disponibile per <i>" & s & "</i>"
    End if**

    Response.Write("<li><a href='cartellafile/"& s &"' class='type' target='_blank'>" & title & "</a><br>**<i>"&descr&"</i>**</li><br>")
    
    objTextFile.Close
    
Next
%>

Per quell' ">" a prima vista non trovo l'errore... almeno questo scovalo tu

Ciao

artcava

Okkio!

il punto

descr = Split(title,"""")(0)

Dovrebbe essere ```
**descr = Split(descr,"""")(0)**

Per l'">" non lo trovo neanch'io...