Newsgroup: it.comp.lang.visual-basic
Titolo: Porzioni stringa

Tramite il controllo Inet mi scarico la mia paginetta Internet
salvandola come file di testo (.txt). Ora:
si tratta di una pagina contenente dei dati fissi e delle variabili.
per i dati fissi non cè problema, con la funzione InStr		 trovo
ciò che mi serve ma per le variabili?
Spiego (esempio):
dato fisso:    Andrea
dato variab.:  50
fatto un certo aggiornamento
dato fisso:    Andrea
dato variab.:  70
etc.
come riconosco e estraggo questo dato?
Grazie.
Andrea.
 

 ciò che mi serve ma per le variabili?
devi sapere dove sono :-)
di solito io estraggo dalla pagina html solo le parti di testo visualizzato
(che sono le parti non comprese tra "<" e ">") poi però devo sapere a che
riga si trova il dato che mi interessa, e magari dopo quale carattere (ad
esempio: la terza riga dopo il secondo ":") e poi si va di instr e mid
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

esempio: la terza riga dopo il secondo ":") e poi si va di instr e mid
Innanzitutto grazie del consiglio. Se ho capito potrei intervenire
cosě:
1- con un contatore vedo quando sono alla riga interessata (anche 500
righe!) e vado di MId, Right,etc
2-trovo il dato fisso e da lě calcolo, nel mio caso, 4 righe.
Solo che con questo motivo il file mi riparte da capo. 
ecco il codice:
---------------
Private Sub Command2_Click()
Dim SearchString, SearchChar As String
Dim MyPos As Integer
 
    Open "C:\Pagelle\pagelle.txt" For Input As #2
        Do Until EOF(2)
            Line Input #2, testo
            SearchString = testo  ' String to search in.
            SearchChar = Andrea  
            If SearchString <> "" Then
             MyPos = InStr(SearchString, SearchChar)   
             If MyPos = 1 Then
                'MsgBox "Trovato"
                Do    <--- qui che mi impasto
                  Line Input #2, testo
                  cont = con + 1
                  If cont = 4 Then
                       stringa = Right(testo, 3)
                  End If
                Loop Until cont = 4
 
             End If
             'MyPos = InStr(1, SearchString, "W")   ' Returns 0.
            End If
        Loop
    Close #2
    MsgBox "Fine lettura"
-------------------

 Solo che con questo motivo il file mi riparte da capo.
quella č una delle alternative.
un'altra potrebbe essere, nel caso in cui la distanza tra il fisso ed il
variabile sia sempre la stessa, di farti un vettore a due dimensioni,
contenente tutti i valori "fissi" da trovare. confronti la riga con ciascun
valore da trovare, se lo trovi cerchi il valore variabile e lo metti nel
vettore nell'altra colonna (sě, lo so, i vettori non hanno "colonne", ma
credo di essermi spiegato lo stesso :-) )
In un solo giro del file dovresti trovare tutti i tuoi valori.
nota a margine: nella mia esperienza, questo tipo di operazioni (l'analisi
di un html per ricavare dati) si č sempre risolto in un codice brutto e
macchinoso nella migliore delle ipotesi, inaffidabile nella peggiore...


per rispondere... togli il group dall'indirizzo
Ti ringrazio.
Andrea.

(che sono le parti non comprese tra "<" e ">") poi però devo sapere a che
Sto cercando una funzioncina che faccia una cosa simile perchè le
strade da me imboccate si sono rivelate troppo complicate. Qualche
link che mi risollevi il morale?
Ti ringrazio.
Andrea.

 ha scritto nel messaggio
news:3f8aadd0...@powernews.libero.it...

se usi l'api getcursorpos ottieni dov'è il mouse sullo schermo....
a quel punto lo confronti con la label ed il gioco è fatto