Oppure

Loading
24/07/22 16:40
Pasca
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.

02/08/22 12:41
Carlo
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.
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 03/08/22 19:37
in programmazione tutto è permesso