Discussion :

[gomtex]

bonjour,

le résultat d'une de mes requête est 0,313131313131,0000
j'aurai aimé savoir comment il est possible de ne garder que la serie de 31

j'ai tout d'abord essayer replace(txt, "," ,"") mais il restait les zero
apres j'ai fais le même pour les zero sauf que le code etant du hexadecimal il arrive que le resultat soit 0,636F7520636775,0000 et la sans le zero la traduction est impossible.

je voudrais faire en sorte de supprimer ici les deux premiers et les 5 derniers si les virgules sont conservés, maiiiis c quoi la commande svp?

merci a vous

[littledoudou]

bonjour,

tu mets ton résultat dans une variable de type String puis utilise la fonction Split sur cette variable (voir MSDN pour l'utilisation de la fonction).

cdlt,

[gomtex]

ca ne peu pas marcher car la fonction me retourner mes premiers caractères
hors, je dois les supprimer.

l'avantage, je sais que ce seront toujours les deux premiers à ne pas garder
l'inconvénient est que la taille à la fin est variable, si la requete concerne deux adresses max 3 derniers caractère à effacer, 4 adresses 5 caracteres a la fin, 6 adresse 7caractere etc

donc si 0,123456789055,0000
jdois obtenir 123456789055

la chaine à traiter le resultat d'une requête qui lit dans un tag a des adresses spécifiées.

vous n'auriez pas une toute pitite pitite aide pour une gomme?

[DarkVader]

bonjour,

tu mets ton résultat dans une variable de type String puis utilise la fonction Split sur cette variable (voir MSDN pour l'utilisation de la fonction).

cdlt,

ca ne peu pas marcher car la fonction me retourner mes premiers caractères
hors, je dois les supprimer.
.../...

Quand on te fournit une réponse, commence par la comprendre et faire la recherche appropriée
avant d'affirmer ton «Ça ne peut marcher ...»

[gomtex]

ok mais j 'arrive pas a la tourner,

on met split(variable, ",")? parce moi ca me met une erreur, j arrive pas a la tourner comme il faut

[OhMonBato]

Si tu veux une solution toute faite, tu peux faire ça :

Code :

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

1
2
3
4
5
 
Dim Ch
Ch = "0,123456789055,0000"
Ch = Mid(Ch, 3, Len(Ch) - 7)
Debug.Print Ch

Voir l'aide de VB pour Mid, Len, Right, Left, ça peut toujours servir.

[littledoudou]

re...

concernant la solution avec le Split:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim strResultatBrut as String
Dim strResultatTraite as String
 
strResultatBrut = "0,123456789055,0000"
 
'0,123456789055,0000
'<0>,<123456789055>,<0000>
'<index=0>,<index=1>,<index=2>
 
strResultatTraite = Split(strResultatBrut, ",")(1)
'strResultatTraite a pour valeur "123456789055"
'et ce quelque soit la longueur de ta 1ère et 3ème partie

cdlt,

[littledoudou]

ucfoutu, le Val() risque de poser problème avec les valeurs hexa renvoyées par sa fonction...

cdlt,

[gomtex]

ok merci a tous,
ps: oui je suis un débutant en vb6^^
et je risque de devoir passer en vba, c'est la meme chose?

desole pour le derangement

[OhMonBato]

VBA ressemble à VB6 (il y a de nombreux points communs) mais ce n'est pas tout à fait la même chose.
Si tu avais des questions à propos de VBA, merci d'utiliser le forum spécifique à VBA.
En attendant, si la solution donnée te convient, tu peux cliquer sur le tag "Résolu" en bas de page.

[gomtex]

bonjour, ce sujet revient encore une fois et oui!!

j'aurai une seule question, la fonction donnée par littledoudou marche tres bien, jusque la pas de problème. Jusqu'au jour ou mon programme m'indique que j'ai un indice hors de la plage et il m'indique a chaque fois la fonction split
et je l'utilise tout au long de mon programme, ce n'est qu'au bout d'un certain nombre d'utilisations que cela se produit.

Code :

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

1
2
3
4
5
6
7
8
date1 = "RD0052,04" + Chr(13)
    MSComm3.Output = date1
    Sleep 550
    jour1 = MSComm3.Input
==>    Text3.text = Split(jour1, ",")(1)
    Text3.text = HexDeCrypt(Text3.text)
    jour1 = Mid(Text3.text, 1, 2)
    Text3.text = Clear

quelqu'un pourrai me dire pourquoi ceci me fait une erreur?
merci

[ucfoutu]

Bonjour,

ta question met en exerque que tu n'as pas compris que split conduisait à un Array.... !

Je te réponds personnellement en t'invitant à ce petit test :

Code :

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

1
2
3
4
5
6
toto = "aaaa bbbb"
If InStr(toto, ",") Then
  MsgBox Split(toto, ",")(1)
Else
  MsgBox "pas de virgule et donc pas d'index 1 et tu aurais alors eu ton erreur"
End If

Il devrait te faire comprendre certaines choses (j'espère).

EDIT : quant à une solution (toujours simple) à un problème sur la chaîne traitée, elle dépend de ce que tu souhaites extraire (une valeur 0, une chaine vide, une booléenne, un N0 d'erreur, etc...) de la chaîne traitée lorsque virgule absente...