Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Catturare una variabile di una pagina web
Forum - Visual Basic 6 - Catturare una variabile di una pagina web

Avatar
Pasca (Normal User)
Newbie


Messaggi: 1
Iscritto: 24/07/2022

Segnala al moderatore
Postato alle 18:40
Domenica, 24/07/2022
Un saluto a tutti.

Con vb6 sono riuscito a interagire con pagine web mediante WebBrowser. Mi è rimasta un ultima cosa da fare.Mi spiego:
In questa riga di una pagina web
<strong class="h4 ng-binding">0,09</strong>

vorrei catturare in una variabile (x) il valore tra i due tag <0,09>
Come fare?

Infine vorrei ringraziare Pietro per il valido aiuto fornit da questo forum vb6.

Grazie per eventuali consigli.


PM Quote
Avatar
Carlo (Member)
Guru


Messaggi: 1081
Iscritto: 29/01/2018

Segnala al moderatore
Postato alle 14:41
Martedì, 02/08/2022
in una variabile avrai il documento.
con il codice seguente trovi la posizione della stringa che ti interessa caricata in cerca con l'istruzione InStr, la posizione finisce in pos1.
poi trovi pos2, cercando nel documento la stringa di chiusura "</strong>", però partendo con la ricerca da pos1
ora con le due posizioni sei in grado usando Mid di estrarre il dato che ti interessa.
Codice sorgente - presumibilmente VB.NET

  1. Dim documento As String ' fittizio che contiene la tua stringa
  2. Dim cerca As String ' la tua stringa da cercare nel documento
  3. Dim pos1 As Integer ' posizione di fine stringa ricerca
  4. Dim pos2 As Integer ' posizione di inizio stringa di chiusura
  5. Dim risultato As String ' valore di interesse
  6.  
  7. ' per scrivere le virgolette in una variabile, doppie virgolette
  8. documento = "Testo a caso solo per riempire di caratteri inutili prima della tua stringa <strong class=""h4 ng-binding"">0,09</strong> altro testo a caso dopo il tag di chiusura"
  9.  
  10. ' per scrivere le virgolette in una variabile, doppie virgolette
  11. cerca = "<strong class=""h4 ng-binding"">"
  12.  
  13. pos1 = InStr(1, documento, cerca) + Len(cerca)
  14. pos2 = InStr(pos1, documento, "</strong>")
  15.  
  16. risultato = Mid(documento, pos1, pos2 - pos1)


Ultima modifica effettuata da Carlo il 03/08/2022 alle 21:37


in programmazione tutto è permesso
PM Quote