[VB.NET] Extraire infos string

salut tout le monde :)

Voila j'ai un petit probleme qui doit etre facile a resoudre mais la je ne voit pas comment, mon programme recupere des infos sur les regles d'un serveurs,je recupere comme string ceci:

Citation:

---

mp_teamplay0mp_fraglimit0mp_falldamage1mp_weaponstay0mp_forcerespawn1mp_footsteps1mp_flashlight0

---

Il faut que je separe les regles, je n'ais pas trop d'idée pour le faire ^^.Merci @+

si en fin de compte tu souhaites obtenir la liste suivante:

Citation:

---

teamplay0
fraglimit0
falldamage1
weaponstay0
forcerespawn1
footsteps1
flashlight0

---

Il te suffit d'utiliser la fonction Split de l'espace de nomsMicrosoft.VisualBasic
Par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit On Option Strict On   Imports Microsoft.VisualBasic Imports System   '... Private Function ExtractInfos(ByVal msgInfos As String) As String() return Split(msgInfos, "mp_") End Sub Private Sub DisplayInfos() Dim infos() As String infos = ExtractInfos("mp_teamplay0mp_fraglimit0mp_falldamage1mp_weaponstay0mp_forcerespawn1mp_footsteps1mp_flashlight0") Dim info As String For Each info In infos Console.WriteLine(info) Next Console.Read() End Sub

---

merci beaucoup mais le probleme avec split c'est :
1er probleme : j'aimerais garder le mp_
2eme probleme : il n'y a pas que des mp_ mais aussi des sv_ dans la meme string

Sinon mon probleme vient peut-etre de plus haut en faite je recois un tableau de byte() et apres je le convertit en tableau de char():

Code:

---

1 2 3 4 5 6 7

'On recoie la reponse ReceiveData = Sck.Receive(RemoteEndPoint) 'On Ferme le socket Sck.Close() 'DEBUG ReDim result(ReceiveData.Length) result = Decoder.GetString(ReceiveData, 0, ReceiveData.Length)

---

Si au lieu de mettre dans un tableau de char je met dans une string je n'ai que 4caractere bizarre,surment un probleme d'encodage.Donc voila je suis entrain de chercher,si tu veux que je tenvoie la source complete dit le:wink:

il faudrait surtout que je sache le resultat final que tu veux obtenir :wink:

Ben sa serait un tableau de string contenant toutes les regles du style:

tableau(0) = mp_teamplay0
tableau(1) = mp_fraglimit0

Ps:Normalement dans le tableau de byte() que je recois les valeurs sont separer par le char(0).

Quelque infos:

Citation:

---

Reply format
The rules response has two sections, the initial header:

Type byte Should be equal to 'E' (0x45)
Num Rules short The number of rules reported in this response


Then for each rule the following fields are sent:

Rule Name string The name of the rule
Rule Value string The rule's value

---

Il me semble que tu pourrais peut être faire l'equivalent d'un split mais directement à partir du tableau de chars en decoupant sur le char(0) :?: :idea:

Le tableau de char n'a pas de proprieter split :?

C'est bon je croit avoir reussi je te tient au courant dans 10min

Edit: Voila je viens de reussir avec :

Code:

---

Resultat = Decoder.GetString(ReceiveData, 7, ReceiveData.Length - 8).Split(ChrW(0))

---

Mais j'ai un deuieme probleme,enfaite sa me retourne un tableau comme ceci:

tableau(0) = mp_flashlight <-- le nom de la regle
tableau(1) = 0 <-- sa valeur

J'aimerais que le nom et la valeur soit dans la meme string comme ceci par exemple:

tableau(0) = mp_flashlight0


merci en tout cas de ton aide precieuse :)

Essayes ceci , j'ai pas eu le temps de tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Function GetInfos(ByVal ReceiveData() As Byte) As String() Dim isValue As Boolean = False Dim index As Integer = 0 Dim result() As String Dim s As String Dim temp() As String   temp = Decoder.GetString(ReceiveData, 7, ReceiveData.Length - 8).Split(ChrW(0)) result = New String((Ctype(temp.Length/2, Integer)) - 1){}   For Each s In temp If isValue Then result(index) &= s index += 1 Else : result(index) = s End If isValue = Not isValue Next   Return result End Function

---

Marche super bien :D
Tu es un genie :hola:

Par contre je n'ai pas compris comment marchait le boleen isValue


En tout cas merci beaucoup de ton aide encore une fois et je te souhaite une bonne soirée.

Ps: Je risque d'avoir encore besoin de toi bientot lool.


Bye

j'avais juste besoin d'un 'interrupteur' qui me permette quand c'est un champ d'ajouter une valeur au tableau result sans incrementer l'index, et quand c'est une valeur de l'ajouter à la ligne en cours puis d'incrementer l'index.
donc j'alterne false-true-false-..... champ-valeur-champ-...etc...
ok tu piges :?:

Ok c'est bon j'ai compri ^^

:wink: