un petit plus sur les chaines - VB/VBA/VBS - Programmation
Marsh Posté le 09-04-2003 à 16:02:27
Toun a écrit : Encore une petite question (decidement, je suis chiant!!!): |
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
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!
Marsh Posté le 09-04-2003 à 16:15:34
Toun a écrit : |
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
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.