I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
gsprogetti
gsprogetti
il 24 settembre 2019 alle 20:04
59 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
RispondiQuoting
BrightSoul
BrightSoul
il 29 settembre 2019 alle 18:25
11.886 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
RispondiQuoting
gsprogetti
gsprogetti
il 30 settembre 2019 alle 09:47
59 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
RispondiQuoting
BrightSoul
BrightSoul
il 30 settembre 2019 alle 23:24
11.886 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
RispondiQuoting
gsprogetti
gsprogetti
l'1 ottobre 2019 alle 20:41
59 messaggi dal 21 luglio 2006
Perfetto,
grazie
Giorgio
RispondiQuoting

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.