47 messaggi dal 21 luglio 2006
Avrei necessità di leggere una determinata data da una pagina web(vedasi link nel codice), in particolare nella sezione "Archivi Comuni Urbano e terreni" devo leggere la data successiva alla stringa "Ark_ComTer - link alternativo - exe", ho scritto il seguente codice:

URL = "https://www.agenziaentrate.gov.it/portale/web/guest/software-docfa-4005"
Dim Testo As String =
           System.Text.RegularExpressions.Regex.Replace(
           Scarica(URL), "<[^>]*>", "")
        If Testo <> "False" Then
            Dim posizT As Integer = Testo.LastIndexOf("Ark_ComTer - link alternativo - exe")
            Dim StringaRicercaData As String = Testo.Substring(posizT + 39, 100)
            Dim PosizData As Integer = StringaRicercaData.IndexOf("/")
            Dim PosizPunto As Integer = StringaRicercaData.IndexOf(".")
            Dim dataultcomuni As String = StringaRicercaData.Substring(PosizData - 2, 10)
            dataAggComuni = Date.ParseExact(dataultcomuni, "dd/MM/yyyy", New CultureInfo("it-IT", True), DateTimeStyles.None) 

Public Function Scarica(strURL As String) As String
            Using client As New WebClient()
                Return client.DownloadString(strURL)
            End Using
        End Function

Purtroppo la pagina web suddetta è suddivisa in sezioni tipo "Combox" e pertanto non riesco ad aprire tale sezione per poter leggere la data.
Spero di essere stato chiaro; qualche suggerimento?

Giorgio
11.868 messaggi dal 09 febbraio 2002
Contributi
Ciao,


Purtroppo la pagina web suddetta è suddivisa in sezioni tipo "Combox" e pertanto non riesco ad aprire tale sezione per poter leggere la data.

È un accordion ma la presentazione grafica non è importante in questo caso perché la data si trova già nel sorgente HTML della pagina. Il tuo codice quindi dovrebbe funzionare.

Che errore ottieni?

ciao,
Moreno

Enjoy learning and just keep making
47 messaggi dal 21 luglio 2006
Grazie Moreno,
si, in effetti ora funziona, non capisco perché prima non individuava la stringa "Ark_ComTer - link alternativo - exe". Approfitto per chiederti se è possibile rendere il risultato della variabile "Testo" pulito senza quella serie di codici "vblf & vblf & ?"
Ciao,
Giorgio

Giorgio
11.868 messaggi dal 09 febbraio 2002
Contributi
Ciao Giorgio,
secondo me l'espressione regolare non serve. Prova semplicemente così:

URL = "https://www.agenziaentrate.gov.it/portale/web/guest/software-docfa-4005"
Dim Testo As String = Scarica(URL)

If Not String.IsNullOrEmpty(Testo) Then
  Dim posizT As Integer = Testo.LastIndexOf("Ark_ComTer - link alternativo - exe")
  Dim StringaRicercaData As String = Testo.Substring(posizT + 39, 100)
  Dim PosizData As Integer = StringaRicercaData.IndexOf("/")
  Dim PosizPunto As Integer = StringaRicercaData.IndexOf(".")
  Dim dataultcomuni As String = StringaRicercaData.Substring(PosizData - 2, 10)
  dataAggComuni = Date.ParseExact(dataultcomuni, "dd/MM/yyyy", New CultureInfo("it-IT", True), DateTimeStyles.None) 
End If



ciao,
Moreno

Enjoy learning and just keep making
47 messaggi dal 21 luglio 2006
Perfetto,
grazie

Giorgio

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.