Discussion :

[sovan]

Bonjour,

J'ai toujours du mal avec Les fonctions de chaînes de caractères en vbs.

en effet je voudrais récupérer la phrase à partir du mot "sur" je dois avoir le phrase "Mon Ordinateur Perso"

Code :

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
Laligne  = "Envoi d'une requˆte 'ping' sur Mon Ordinateur Perso"
 
	Function RetourMot(strIPInfo,i)
	Dim arrIPInfo
	If InStr(strIPInfo, "sur") > 0 Then
		arrIPInfo = Split(strIPInfo, "sur")
		If UBound(arrIPInfo) >= 1 Then
				If i > 1 Then 
					'Msgbox "Erreur code i"
					RetourMot = "Erreur code i"
					Exit Function
				end if
			RetourMot = arrIPInfo(i)
			End If
	        End If
       End if
 
 call RetourMot(Laligne,0)

j'ai re resultat "Envoi d'une requˆte 'ping'"

Je ne trouve pas comment recupérer les mot après le mot " sur " !!

Je vous remercie d'avance !!

[ProgElecT]

Salut

Code :

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

			RetourMot = arrIPInfo(1)

[Miistik]

Bonjour,

En complément de ProgElecT :

Lorsque vous utilisez cette instruction

Code :

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

arrIPInfo = Split(strIPInfo, "sur")

, arrIPInfo devient un tableau de deux cases.
La première contient ce qui se trouve avant le mot "sur" et la seconde ce qui est après.

arrIPInfo(0) contient donc "Envoi d'une requête 'ping'" et arrIPInfo(1) contient ce que vous souhaitez à savoir "Mon Ordinateur Perso".

[sovan]

loool

Merci ProgElecT et Miistik pour les explications !!

[ProgElecT]

Re

En allant plus loin par cette méthode Split arrIPInfo = Split(strIPInfo, "sur") arrIPInfo(1) te renvoi aussi un espace comme premier caractère.
Il faudrait passer par _________________ arrIPInfo = Split(strIPInfo, "sur ") ou en conservant ta version, RetourMot = LTrim(arrIPInfo(1)).