Equivalent explode strstr PHP en VBNET

Version imprimable

07/08/2016, 19h59
racacax

Equivalent explode strstr PHP en VBNET
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:

<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:

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:

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

Salut,

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

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

Code:

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)))

08/08/2016, 13h24
racacax

Merci, je vais tester :)
08/08/2016, 13h26
racacax

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

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:

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 :f1:

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.

10/08/2016, 19h27
racacax

Merci, ça fonctionne aussi