Visual Basic 6 - Catturare una variabile di una pagina web

Forum - Visual Basic 6 - Catturare una variabile di una pagina web

Pasca (Normal User)
Newbie

Messaggi: 1
Iscritto: 24/07/2022

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.

Carlo (Member)
Guru

Messaggi: 1344
Iscritto: 29/01/2018

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

Dim documento As String ' fittizio che contiene la tua stringa
Dim cerca As String ' la tua stringa da cercare nel documento
Dim pos1 As Integer ' posizione di fine stringa ricerca
Dim pos2 As Integer ' posizione di inizio stringa di chiusura
Dim risultato As String ' valore di interesse
 
' per scrivere le virgolette in una variabile, doppie virgolette
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"
 
' per scrivere le virgolette in una variabile, doppie virgolette
cerca = "<strong class=""h4 ng-binding"">" 
 
pos1 = InStr(1, documento, cerca) + Len(cerca)
pos2 = InStr(pos1, documento, "</strong>")
 
risultato = Mid(documento, pos1, pos2 - pos1)

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

in programmazione tutto è permesso