Cosina su variabili VB ( facile facile )

**Achilleterzo** · 10-06-2002, 11:59

Ipotiziamo che io ho per esempio una variabile chiamata file dove file è = al testo contenuto all'interno di un oggetto inet in Visual Basic.... in pratica

inet.OpenUrl = "http://www.htm.it/"

file = inet.OpenUrl

file = "<html><body>link etc... etc... etc."

ora se io volessi trovare per esempio href, e trasformare in una seconda variabile il contenuto di href come faccio ????

considerando che a me occorre trovare non solo href, ma anche altri tag o parole nella pagina convertendo il contenuto in una nuova variabile...

**amodio** · 10-06-2002, 12:54

non so a cosa potrebbe servirti comunque prova questo..

io per cose cosi' uso la funzione (o right) o left
ma ch è anche la mid se vuoi prendere un pezzo di stringa centrale

la left vuole la stringa e quante lettere voui che prenda..
la ritht il contrario...

**Achilleterzo** · 10-06-2002, 14:55

potresti farmi un esempio pratico ?

in pratica il mio esempio di codice è =

inet.OpenUrl = "http://www.html.it"

file = inet.OpenUrl // "<html><body>link etc... etc... etc."

........ ora voglio che tutto negli " " di href sia inserito nella variabile (stringa)

**vonkranz** · 10-06-2002, 15:04

Prova con:

codice:

A=instr(File,"href")
File2=mid(file,A)

La funzione Instr ti dice dove e' posizionato il primo carattere che devi cercare (href in questo caso), quindi prendi tutti i caratteri a partire da quella posizione (con la funzione Mid() )

Puoi anche prendere n caratteri a partire da quella posizione: p.e.

codice:

A=instr(File,"href")
File2=mid(file,A,3)

in questo caso in File2 ci sara' "hre"

**Achilleterzo** · 10-06-2002, 15:35

grazie per l'aiuto, così intanto ottengo la variabile, ma mi manca una cosa, io non conosco quanto sia lungo il campo da cercare, e soprattutto, non sò come inserire in quella variabile solo il contenuto di href, e non tutto quanto

**vonkranz** · 10-06-2002, 15:48

Puoi cercari il tag /a
A questo punto fai la differenza tra il valore restituito da
A=instr(File,"href")
e
B=instr(File,"/a")

quindi
B meno A hai il numero di caratteri da prendere.

**Achilleterzo** · 10-06-2002, 16:24

allora io ho fatto questo :

Inet1.OpenURL "http://www.g32.it"

file = Inet1.OpenURL

Text1.Text = file

a = InStr(file, "href=")
b = InStr(file, "></a")
c = b - a
res = Mid(file, a, c)

Text2.Text = res

il risultato è quasi giusto, ma trova ancora "href=" dove non dovrebbe comparire in "res"

**vonkranz** · 10-06-2002, 16:31

...allora metti

c = b - (a +4)

**steno12** · 10-06-2002, 16:33

m$ = "http:\\www.g32.it"
c = Len(m$)
b$ = Mid(m$, 8, c)

**Achilleterzo** · 10-06-2002, 16:36

con

res = b - (a + 5)

res = href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','gatto2.jpg' ,1)">[img]gatto.jpg[/img]<img name="Image1" border="0" src="gatto.jpg" width="180" height="223"

Discussione: Cosina su variabili VB ( facile facile )

Strumenti discussione

Ricerca discussione

Visualizza

Cosina su variabili VB ( facile facile )

Permessi di invio