Discussion :

[racacax]

Bonjour,
Je suis encore novice en VBNET (en en PHP aussi d'ailleurs). Dans VBNET, j'ai besoin d'une fonction (ou deux) qui me permettent de délimiter une chaine de caractère. En PHP, j'utilise explode et strstr.
Je m'explique :
On a par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<source src='http://example.com/video.mp4' type='video/mp4' data-res='480p'  lang='French' idLang='0'/>

Je veux récupérer http://example.com/video.mp4
En PHP, je ferai donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$link = explode("<source src=", $variable)[1];
$link = explode("'", $link)[1];

ou sinon (dans le cas où il n'y aurait pas de délimiteur commun)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$link = explode("<source src='", $variable)[1];
$link = strstr($link, "'", true);

En VBNET, je ne sais pas comment faire.

Peut-on me dire comment ?

Merci

[Jean-Philippe André]

Salut,

tu peux passer par des combinaisons de instr()+Mid().

code VBA que tu devrais pouvoir adapter en VB.Net :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim x As String, result as String
dim Deb as Integer
dim Fin as Integer
x = "<source src='http://example.com/video.mp4' type='video/mp4' data-res='480p'  lang='French' idLang='0'/>"
Deb = instr(1,x,"source src=")+Len("source src=")
Fin = instr(1,x,"type=")
result = Trim(mid(x,Deb,Fin-Deb)))

[racacax]

Merci, je vais tester

[racacax]

Il n'y avait pas grand chose à convertir. Ca fonctionne parfaitement. Merci beaucoup

[clementmarcotte]

Bonjour,

Voici une fonction VB.net, ou disons très .net, qui fait ce qu'il te faut. Tu dois utiliser une sub pour l'appeler. Mais, c'est à adapter pour une ligne différente du modèle dont tu nous as parlé:

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  Public Function ExtraireLAdresseWeb(LaPhrase As String) As String
        Dim LExtrait As String = String.Empty
        Try
            'trouver le début de l'adresse
            Dim Début As Integer = LaPhrase.IndexOf("http")
            'Trouver le mot type
            Dim Fin As Integer = LaPhrase.IndexOf("type")
            'Extraire le texte
            LExtrait = LaPhrase.Substring(Début, Fin - Début)
            'Enlever les espaces
            LExtrait = LExtrait.Trim
            'Enlever l'apostrophe de la fin
            LExtrait = LExtrait.Substring(0, LExtrait.Length - 1)
        Catch ex As Exception
            LExtrait = ex.Message
        End Try
        Return LExtrait
    End Function

P.S. Un truc universel pour VB6, VBA, VB.net:

Un clic sur un mot-clef et

P.P.S. Ne vous fiez pas trop aux couleurs du code. J'utilise une extension de VS pour faire la mise en forme de mon code, et cela semble entrer en conflit avec la mise en forme du forum.

[racacax]

Merci, ça fonctionne aussi