un petit plus sur les chaines

un petit plus sur les chaines - VB/VBA/VBS - Programmation

Marsh Posté le 09-04-2003 à 15:20:34    

Encore une petite question (decidement, je suis chiant!!!):
Si j'ai une chaine "100m" comment je peux decouper cette chaine en deux chaine, l'une "qt" egale a "100" et l'autre "unite" egale a "m".
 
Merci.

Reply

Marsh Posté le 09-04-2003 à 15:20:34   

Reply

Marsh Posté le 09-04-2003 à 16:02:27    

Toun a écrit :

Encore une petite question (decidement, je suis chiant!!!):
Si j'ai une chaine "100m" comment je peux decouper cette chaine en deux chaine, l'une "qt" egale a "100" et l'autre "unite" egale a "m".
 
Merci.  


tt = "100ma"
ch1 = Mid(tt, 1, InStr(1, tt, "m" ) - 1)
ch2 = Right(tt, Len(tt) - InStr(1, tt, "m" ) + 1)
MsgBox (ch1 & "  " & ch2)
 
 
mais ça depend de ta chaine etudie les fcts de chaines c'est pas dur

Reply

Marsh Posté le 09-04-2003 à 16:07:10    


Le probleme, c'est que je ne peux pas faire comme tu me dis, car les unitées ne sont pas toujours des Metres, mais aussi des mm, cm, dm, g, Kg, pc, pcs, N, L,... Donc ce que j'aurais voulu faire, c'est separer la partie integer de la partie string. C'est pour ça que j'en bave!
Si t'a une idée, previens moi!

Reply

Marsh Posté le 09-04-2003 à 16:15:34    

Toun a écrit :


Le probleme, c'est que je ne peux pas faire comme tu me dis, car les unitées ne sont pas toujours des Metres, mais aussi des mm, cm, dm, g, Kg, pc, pcs, N, L,... Donc ce que j'aurais voulu faire, c'est separer la partie integer de la partie string. C'est pour ça que j'en bave!
Si t'a une idée, previens moi!

il faut alors raisonner sur les code ascii avec  
les chiffres compris entre 48 et 57:
 
  for i=1 to len(tachaine)
if (asc(mid(tachaine,i,1)) >47)  and (asc(mid(tachaine,i,1)) <58)  then msgbox(" c'est un chiffre" )
next
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed