Visual Basic 6 - Select delimited string!

Forum - Visual Basic 6 - Select delimited string!

aSeptik (Normal User)
Newbie

Messaggi: 8
Iscritto: 27/11/2006

Postato alle 17:08
Sabato, 06/01/2007

Ciao ragaSsSi! :P

Avrei un quesito da porvi! ;D

Supponendo di avere una TextBox piena zeppa di parole e codici HTML come posso estrarre la stringa ke mi serve posta tra questo preciso TAG:

<td width="324" valign="top"> STRINGA KE MI SERVE </td>

cioè come posso fare per usare questo preciso TAG come se fosse un "Delimiter"!?

sono sicuro ke qualcuno ha la risposta, pls show me the way!

e grazie tante!!

Ultima modifica effettuata da aSeptik il 06/01/2007 alle 17:09

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 23:29
Sabato, 06/01/2007

<td width="324" valign="top"> è di 28 lettere giusto?
</td> è di 5

con mid fai una "scansione" e togli quelli prima e quelli dopo a un mid(text1.text,x,28)=..
e a uno con 5

sotto un codice (se vuoi).

Codice sorgente - presumibilmente VB.NET

Option Explicit
Dim x As Integer
Dim y As Integer
Dim stringa As String
 
Private Sub Command1_Click()
For x = 1 To (Len(Text1.Text))
If Mid(Text1.Text, x, 28) = "<td width=" & Chr(34) & "324" & Chr(34) & "valign=" & Chr(34) & "top" & Chr(34) & ">" Then
stringa = Mid(Text1.Text, x + 28, Len(Text1.Text))
End If
Next x
For y = 1 To (Len(stringa))
If Mid(stringa, y, 5) = "</td>" Then
stringa = Mid(stringa, 1, y - 1)
Exit For
End If
Next y
Text1.Text = stringa
End Sub