Bonjour, j'ai fais un petit prog qui récoltes des infos d'une page web. Mais j'ai un petit souci que je vais vous faire voir avec un exemple :

Dans une textbox, j'obtiens ce texte :

Brutalement écarté par "/finances/contacts/C000000001">Electronic Arts</A> de la série "/pc/jeux/GP000293">Medal of Honor</A>, le studio "/finances/contacts/C000001353">2015</A> s'est lancé dans le développement d'un nouveau jeu à grand spectacle, Men of Valor. etc etc etc

Bon pour virer les </A> je sais comment faire avec la fonctione Replace.

Mais pour supprimer par exemple "/finances/contacts/C000000001"> là je coince... car les chiffres se trouvant aprés le C sont toujours différents. Je pense que le plus simple serai de faire un quelque chose comme Replace "/finances/contacts/C + 11 caractéres suivants. Mais j'ai pas trouvé comment faire..

Donc petit résumé : comment supprimé une chaine de caractéres en connaissant que le début, et que la longeur total.

Si quelqu'un pouvai m'aider ca serai vraiment cool  Je cherche depuis des semaines ^^

Merci à tous, bon week end

Avec les expressions régulières ça doit être possible. Malheureusement je ne les connais pas en Visual Basic

-=[MaX_62]=-

Dim i  As Integer
Dim j  As Integer
Dim x  As Integer
Dim s1 As String
Dim s2 As String

j = 1
s1 = Text1.Text
For i = 1 To Len(s1)
      x = InStr(i, s1, "/finances/contacts/C")
      If x > 0 Then
         s2 = s2 & Mid$(s1, j, x - j)
         j = x + 30
         i = j
      End If
 Next
Text1 = s2 & Mid$(s1, j, i - j)


Daniel

Salut,

Une autre possibilité :

Le """" est là pour simuler le guillemet du début de ta chaîne recherchée.

Dim s As String
Dim i As Integer

'chaîne de base recherchée
s = """" & "/finances/contacts/C"
'effacement de toutes les chaînes de base + les 11 cars suivants
i = InStr(Text1, s)
Do While i > 0
  Text1 = Replace(Text1, s & Mid$(Text1, i + Len(s), 11), "")
  i = InStr(Text1, s)
Loop

A toi de choisir.

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Pour MaX_62, avec VB6 on ne peut utiliser les expressions régulières et c'est bien dommage.
Un bon point de plus pour vb.net qui le permet.

--------------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?