Oppure

Loading
06/11/06 12:07
antoniol
Praticamente sto cercando di fare un programma che mi trovi in una text "<a>" e mi resituisca il testo fino a quando nn trova "<\a>... C'è qualche funzione? Per questo mio problema escludendo indexof?

Ciao a tutti e grazie per l'aiuto
aaa
07/11/06 10:58
Il Totem
Postato originariamente da antoniol:

Praticamente sto cercando di fare un programma che mi trovi in una text "<a>" e mi resituisca il testo fino a quando nn trova "<\a>... C'è qualche funzione? Per questo mio problema escludendo indexof?

Ciao a tutti e grazie per l'aiuto


Perchè non vuoi usare indexof?
Dim Start As UInt32 = Str.IndexOf("<a>") + 3
Dim _End As UInt32 = Str.IndexOf("</a>") - 1
Dim Result As String = Str.SubString(Start, _End)
MsgBox(Result)


Se fossi più preciso, potrei anche suggerirti di usare l'htmlElementCollection, ma non so se stai usando un controlo webbrowser o roba del genere: se me lo dici, ti posso consigliare meglio.

P.S.: usando un po' di fantasia puoi trovare tutte le istanze di <a> e </a> nel testo anzichè solo la prima :k:
aaa
08/11/06 13:08
antoniol
Io avevo fatto +o- nello stesso modo......
Lo dovevo postare oggi:
Dim str = "<a> ciao </a>"
MsgBox(str.SubString(str.IndexOf("<a>";) + 3, str.IndexOf("</a>";))).....

Tu come proproni di fare per trovare tutte le istanze di <a> e </a> nel testo anzichè solo la prima?? Io ho fatto una specie di ciclo ma se hai un idea migliore posta...

Devo ricercare il codice html.... In una pagina web mi basta ottenere l'html di una pagina. In che modo? Come vuoi tu..
aaa
08/11/06 16:25
Il Totem
Postato originariamente da antoniol:

Io avevo fatto +o- nello stesso modo......
Lo dovevo postare oggi:
Dim str = "<a> ciao </a>"
MsgBox(str.SubString(str.IndexOf("<a>";) + 3, str.IndexOf("</a>";))).....

Tu come proproni di fare per trovare tutte le istanze di <a> e </a> nel testo anzichè solo la prima?? Io ho fatto una specie di ciclo ma se hai un idea migliore posta...

Devo ricercare il codice html.... In una pagina web mi basta ottenere l'html di una pagina. In che modo? Come vuoi tu..


A questo proprosito ho scritto un altro capitolo della mia guida, che puoi consultare da qui: pierotofy.it/pages/guide/Guida_al_Visual_Basic_dotNET/Manipolare_elementi_HTML/.
Buon divertimento :k:
aaa
09/11/06 17:24
antoniol
Cmq la funzione substring nn è quella adatta.......

Io nn so la lunghezza del testo....

infatti substring(posizione di inzio, lunghezza)

Io nn so la lunghezza..... A me serve una funzione che faccia.....

Funzione(posizione di inizio, posizione di fine)

La lunghezza varia e io nn la so....

Mi sono spiegato?? nn so se sono stato chiaro...

si può fare cosi testo.lenght(-inizio)
aaa
09/11/06 19:57
Il Totem
Postato originariamente da antoniol:

Cmq la funzione substring nn è quella adatta.......

Io nn so la lunghezza del testo....

infatti substring(posizione di inzio, lunghezza)

Io nn so la lunghezza..... A me serve una funzione che faccia.....

Funzione(posizione di inizio, posizione di fine)

La lunghezza varia e io nn la so....

Mi sono spiegato?? nn so se sono stato chiaro...

si può fare cosi testo.lenght(-inizio)


Scusa, ma hai letto il capitolo? Quello che hai detto non c'entra niente con quello che c'è scritto lì dentro...
aaa
11/11/06 17:53
cyber
Vabe senza litigare.. ;)

Servirebbe anche me la funzione che serve ad antoniol.......... In particolare:

usando un po' di fantasia puoi trovare tutte le istanze di <a> e </a> nel testo anzichè solo la prima..... Mi potete postare come si fa???

Grazie.....

siamo qui per imparare
aaa
12/11/06 18:01
Il Totem
Postato originariamente da cyber:

Vabe senza litigare.. ;)

Servirebbe anche me la funzione che serve ad antoniol.......... In particolare:

usando un po' di fantasia puoi trovare tutte le istanze di <a> e </a> nel testo anzichè solo la prima..... Mi potete postare come si fa???

Grazie.....

siamo qui per imparare


SI può fare in due modi:
Public WithEvents WB as WebBrowser
Private Cmd_Click(...) Handles Cmd.Click
  'Alla pressione di un pulsante carica la pagina
  WB.Navigate(New Uri(<url>)
End SUb
Private Sub WB_Comp(...) Handles WB.DocumentCompleted
  'trova tutte le <a> nel testo, modo 1
  Dim Links as HtmlCollection = WB.Document.Links
  For Each HTML As HtmlElement In Links
    If HTML.Tagname = "A" Then
      '...
    End If
  Next

  'Modo 2
  Dim SearchText As String = WB.DocumentText
  Dim Index As UInt64
  Dim CharDeleted As UInt64
  Dim Temp As String
  
  while SearchText.Length > 0
    'CharDeleted + Index è l'indice di un'istanza di <a> nel testo
    Index = SearchText.IndexOf("<a>")
    Temp = SearchText.Substring(Index + 3)
    CharDeleted += SearchText.Length - Temp.Length
    SearchText = Temp
  End While
aaa