probléme de chaine de caractère

**sasuma** · 10/07/2008, 16h08

Bonjour,

J'ai un pb de chaine de caractère en VB6: voilà le résultat de ma requete SQL

" ) Values (1225,0,'AXE','AXEAP26B101','axe','','AP26B101',0,'AXEAP26B101','AP','001','01 (001)'"

je met ce résultat dans une string que j'appelle tmpch, je veux qu' a la fin de ma chaine tmpch avoir ....,'01'" cela veut dire que je veux enlever tous les caractères après l'espace existant après '01', cad je veux enlever (001). en fait '01' est un code que je dois insérer après dans ma BD.

en résumé j'ai '01 (001)'" à la fin de ma chaine je ne veux avoir que '01'" .

comemnt je peux régler ce pb.

merci d'avance.

**OhMonBato** · 10/07/2008, 16h53

Si tu as une chaine quelconque (que j'appelle Ch dans l'exemple suivant) et que tu veux enlever les x derniers caractères, il suffit de faire :

Code :

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

1
2
 
Ch = Left(Ch, Len(Ch) - x)

**sasuma** · 10/07/2008, 16h58

merci

voilà c ca mais le pb que:

1) je connai pas le X ca varie suivant le code icic c'est 001 mais ca peu changer...
2) je dois enlever les derniers caractères qui suivent le dernier espace (avec l'espace bien sur) ici c'eest ( 001)

merci

**Delbeke** · 10/07/2008, 17h07

Code :

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

1
2
3
4
5
Dim iPosit as Integer
Dim sText as String
sText = "Ma chaine de caractères"
iPosit=InStrRev(sText," ")
Debug.print Left(sText,iPosit-1)

**ucfoutu** · 10/07/2008, 17h12

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
  toto = " ) Values (1225,0,'AXE','AXEAP26B101','axe','','AP26B101',0,'AXEAP26B101','AP','001','01 (001)'"
  titi = Split(toto, ",'")
  toto = titi(UBound(titi))
  MsgBox Mid(toto, 1, InStr(toto, " ") - 1)
End Sub

**sasuma** · 10/07/2008, 17h38

je ne comprend pas trop la dernière ligne ( j'utilise VB6)

Code :

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

Debug.print Left(sText,iPosit-1)

est ce que je pourrai la remplacer par

Code :

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

sText= Left(sText,iPosit-1)

merci

**Delbeke** · 10/07/2008, 17h58

Je pense que tu devrais lire les tutos sur vb de ce site.
L'instruction Debug.Print est une instruction de mise au point des programmes (On parle également de débogage). Elle sert a afficher le résultat sur la "Fenêtre d'exécution" de Vb (Ctrl+G pour l'afficher).