Traiter une variable STRINGRésolu

Question

Bonjour,

Je suis sous visual basic 6.0.

J'ai besoin d'enlever les premiers caracteres contenus dans une variable de type string.
J'ai cherch&#233; sur google, dans MSDN, mais les "solutions" trouv&#233;es ne marchaient pas (&#233;rreurs, comme si la comande n'existait pas !!)

J'ai trouv&#233; la methode Remove :  http://msdn.microsoft.com/library/fre/default.asp?url=/library/FRE/vblr7/html/vamthremove.asp

Mais sa ne marche pas, visual basic ne reconait pas " Public Overloads Sub Remove(ByVal { Key As String | Index As Integer }) "

J'ai aussi trouv&#233; d'autres moyens, mais qui ne marchent que avec VB.NET...

Je m'en remet &#224; vous...
J'espere que vous trouverez une solution!!
Merci

jrivet · Accepted Answer

Salut,

Tu as deux possibilites:

Dim Reception As String
Dim TypeMessage As String
Dim Donnee As String
Dim Param() As String
Param =   Split(Reception, " ", 1)
TypeMessage = Param(0)
Donnee = Param(1)

Ca c est dans le cas ou tu puisse avoir des type de message du style %MMMM

Sinon si il y a toujours %+1Lettre alors Tu peux utiliser la Fonction Mid

MSDN Dit:

Renvoie une valeur de type  Variant  (String) contenant un nombre indiqu&#233; de caract&#232;res extraits d'une cha&#238;ne de caract&#232;res.


Syntaxe


Mid( string , start[, length])

MyString   = "AbCdEfG"
MyNewString = Mid(MyString, 3, 4)
' Renvoie ""CdEf"

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_casy · Answer

Et as-tu simplement regarder la fonction Right ?

jrivet · Answer

Salut,

- En compl&#233;ment j'ajouterai simplement (enfin La MSDN ajouterait)
Right Renvoie une valeur de type Variant (String) contenant le nombre indiqu&#233; de caract&#232;res d'une cha&#238;ne en partant de la droite

Exemple:
Dim AnyString, MyStr
AnyString =  "Bonjour &#224; tous"   ' D&#233;finit la cha&#238;ne.
MyStr =  Right( AnyString, 1)   ' Renvoie "s".
MyStr  = Right(AnyString, 6)   ' Renvoie "&#224; tous".
MyStr = Right(AnyString, 20)   ' Renvoie "Bonjour &#224; tous".


@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

meuh33 · Answer

Merci pour ces r&#233;ponses rapides, et pour tes exemples pr&#233;cis Jriver :)
Je vais essayer tout de suite, je revien pour valider la r&#233;ponse si ca marche (enfin si j'arrive &#224; le faire marcher ^^) !

meuh33 · Answer

Cette fonction marche, mais elle ne r&#233;pond malheureusement pas &#224; mes besoins, je m'explique:

J'ai fait un serveur et un client avec Winsock.
Pour que le serveur et le client sachent a quoi correspondent les messages qu'ils recoivent, j'ai d&#233;cid&#233; de metre en place un systeme de commandes:

Exemple:  Serveur envoi "%M Salut ca va?" au Client.
               Le Client sait que c'est un message texte car il a reconu la "commande"  %M en d&#233;but de message.
               Le Client va donc retirer %M de la variable, puis l'afficher sous forme de texte.

Le probleme c'est que l'on ne peut pas pr&#233;voir la longueur du message, donc la fonction Right ne convient pas dans ce cas la :(

Merci d'avance !

cs_casy · Answer

La fonction Right convient tout &#224; fait &#224; ton besoin :

message = Right$(commande, len(commande)-3)

Gobillot · Answer

tout comme la fonction Mid$ :



message = Mid$(commande, 3)

Daniel

meuh33 · Answer

Merci Jrivet pour ta rapidit&#233; et ton efficacit&#233; !

J'ai trouv&#233; une autre solution en meme temps que toi:

1. Je reconnais quelle "commande" est utilis&#233;e:   

If message_recu_s Like "%M*" Then 
   Dim vrai_long_ As String
   Dim long_ As String
   Dim long_ As String
   
   long_ = Len(message_recu_s)
   vrai_long_ = long_ - 2                           'Je connais le nombre de caracteres de la "comande" donc je fais une soustraction!
   Text_1 = Right(Text_1, vrai_long_)
   Text1.Text = Text_1
End if

See u

Traiter une variable STRING

8 réponses

Discussions similaires