recherche chaine de caractéreRésolu

Question

Salut voila plusieurs jours voire semaine que je me galére !
J'aurai voulu savoir comment faire pour récupérer ce qu'il y a entre "$" et "|"
En faite j'éssai de faire un client ou le serveur lui envoie des info sous cette forme :

$Lock Oi@83KdZiAhi>nIAtoP@0N^S]i;_?_UXGQKjMkiOqsP^K Pk=PTOKAXJC=7qxbnyU4a:2x7|$HubName FRENCH CONNEXION|<FC-Sécurité> Ce hub utilise PtokaX DC Hub 0.3.2.6 TestDrive 4  (UpTime: 0 hours, 0 minutes)|$GetPass|$Hello Clad|

Ces infos arrive pas une connection Winsock, j'arive a traiter facilement le premier couple $ | mais ensuite si il ne traite pa ce qu'il y a entre les $ | qui sont a la suite !

Si le serveur les envoi non collé :
$Hello Clad|
J'arive a récupérer Hello Clad  mais a partir du moment il en envoi deux de collé :
$Hello Clad|$HubName French Connecion|
je narive po a récupérer HubName French Connexion

J'éspére que ma question était compréhensible ! Merci de votre aide !
(Pour ceux qui connaice c'est pour un Client Direct connect qui reçoi les infons des Hubs)

Clad

Gobillot · Accepted Answer

Dim i As Long

    Dim j As Long

    Dim b As Boolean

    Dim s As String

    

 s = "$Lock Oi@83KdZiAhi>nIAtoP@0N^S]i;_?_UXGQKjMkiOqsP^K
Pk=PTOKAXJC=7qxbnyU4a:2x7|$HubName FRENCH CONNEXION|<FC-S&#233;curit&#233;>
Ce hub utilise PtokaX DC Hub 0.3.2.6 TestDrive 4  (UpTime: 0
hours, 0 minutes)|$GetPass|$Hello Clad|"

    

    

    j = 1

    While b = False

          b = True

          i = InStr(j, s, "$")

          If i > 0 Then

             i = i + 1

             j = InStr(i, s, "|")

             If j > 0 Then

                MsgBox Mid$(s, i, j - i)

                j = j + 1

                b = False

                End If

             End If

          Wend


Daniel

jpleroisse · Answer

Bonjour,

Je ne sais pas si ceci pourra t'aider.

Private Sub Command1_Click()

Dim Mavar

Mavar = "$Hello Clad|$HubName French Connecion|"

Text1 = Mid(Mavar, 2, 10) & " " & Mid(Mavar, 14, 24)

End Sub



jpleroisse

Clad49 · Answer

Je vous remerci ! Jesp&#233;re que cela va m'aid&#233; dans mon projet


Clad

cs_Jack · Answer

-1- Une autre solution
Dim Mavar As String
Dim Tableau() As String
Mavar = "$Hello Clad|$HubName French Connecion|"
Tableau = Split(MaVar, "|")  ' fait des paquets avec les donn&#233;es comprises entre les |
Tableau(0) donnera "$Hello Clad"
Tableau(1) donnera "$HubName French Connecion"
...
-2- Faux ami
En fran&#231;ais, connexion s'&#233;crit avec un X. C'est en anglais qu'il faut l'&#233;crire Connection (--> French Connection)

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

Clad49 · Answer

Merci Jack

il y a eu faute de copy regarde mon premier poste ! C t bien marqu&#233;
French Connexion ! Et cela et fait expr&#233;t ! C'&#233;tait le nom de mon
serveur sur Direct Connect avant que je le ferme !
Merci les ga
Clad

Recherche chaine de caractére

5 réponses

Discussions similaires