traitement de chaîne de caractères pour tri

Question

lorsque je fait 'fichier.Name', j'obtiens 'nomdufichier.doc' (il s'agit de doc word).
j'aimerais enlever ce '.doc', comment dois-je faire??

par ailleurs, j'aimerais choisir parmi ces fichiers ('WPtruc-51', 'WPtruc-52', 'WP-truc53') celui qui a le plus grand chiffre de fin... comment acc&#233;der &#224; ces chiffre.
je suis novice en VB et j'ai un peu de mal...

merci de votre aide!

  Daydayerement V&#244;tre

econs · Answer

pour enlever le .doc :



chaine = "toto.doc"

ma_nouvelle_chaine = Left(chaine,Len(chaine)-4)


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

Pour le reste de la question ...



dans le nom de tes fichiers :

WPtruc-51.doc

WPtruc-52.doc



Le tiret est-il toujours pr&#233;sent ?

Le nombre est-il toujours entour&#233; par un tiret et le point du ".doc" ?






Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Daydayer · Answer

merci pour la 1&#232;re partie!
oui, les chiffre sont toujours entour&#233;s de .doc et d'un tiret (mais il se peut que par la suite, il n'y ait plus le .doc)

  Daydayerement V&#244;tre

cs_ifix · Answer

if faut tester tous tes noms de fichiers avec :

chaine = "Wptruc51.doc"
ma_nouvelle_chaine = Left(chaine,Len(chaine)-4)
for x= 1 to len(ma_nouvelle_chaine)
     If right(ma_nouvelle_chaine,x)="-" then 
      ' il faut absolument que tu es le symbole "-" dans ton nom de fichier         
      numero_fichier=mid(ma_nouvelle_chaine,x)
     end if
next
msgbox numero_fichier

Pour enumerer tes noms de fichiers , tout depend s 'ils sont dans un repertoire , une listbox ou une feuille de calcul

Ifix

econs · Answer

Dim Chiffre As Long

Dim PremierIndice As Long

Dim SecondIndice As Long





Machaine = "WPtruc-51.doc"

PremierIndice = Instr(1,MaChaine,"-",vbTextCompare)+1

SecondIndice = Len(MaChaine)-4



Chiffre = Val(Mid(MaChaine,PremierIndice,SecondIndice-PremierIndice+1))

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_ifix · Answer

une petite remarque pour Econs:

si il y a un autre "-" dans le nom du fichier, ton code ne marchera pas

cqui789 · Answer

juste pour en rajouter et parceque tu n'est pas sure que le point doc soit la,



Dim Chiffre As Long

Dim PremierIndice As Long

Dim SecondIndice As Long

' Dim machaine As String



' machaine = "WPtruc-51.doc"

PremierIndice = InStr(1, machaine, "-", vbTextCompare) + 1

SecondIndice = InStr(1, machaine, ".", vbTextCompare) + 1

If SecondIndice 0 Then SecondIndice Len(machaine)



Chiffre = Val(Mid(machaine, PremierIndice, SecondIndice - PremierIndice + 1))



si tu est sure que le nombre n'a que deux chiffres, tu peut faire encore plus simple...

econs · Answer

ifix > Je sais bien que plusieurs tirets font planter mon code, mais il ne donne pas de pr&#233;cision de ce c&#244;t&#233;.



cqui789 > Plusieurs points dans le nom font aussi planter ton code.



Ce qu'il faut avant tout, c'est une description pr&#233;cise du type de
chaine qu'on aura &#224; traiter. Ensuite, on pourra sortir un algo correct.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Daydayer · Answer

bon alors,pour &#234;tre plus pr&#233;cise sur le type de chaine &#224; traiter, et bien elle aura cette tete : 

WP17-descriptionNumero.doc

 en fait, 'description' sera coll&#233;e &#224; 'Numero', celui-ci &#233;tant un vrai num&#233;ro.ce sera un num&#233;ro &#224; deux chiffres exactement ,pas plus (ou peut etre &#224; un chiffre).c'est par rapport &#224; ce numero que j'aurai &#224; choisir : je devrai prendre le nom qui a ce num&#233;ro le plus grand.

merci de votre patience!
&#231;a fait du bien de sentir aid&#233;e.
  Daydayerement V&#244;tre

cqui789 · Answer

si tu connait le nombre de chiffres, tu n'as plus besoins du tirret

si description peut finir par un chiffre et que numero n'en a qu'un, tu est dans le c...



machaine = "WP17-description1.doc"

Indice = InStr(1, machaine, ".", vbTextCompare)

If IsNumeric(Mid(machaine, Indice - 2, 2)) Then

Chiffre = Val(Mid(machaine, Indice - 2, 2))

Else

Chiffre = Val(Mid(machaine, Indice - 1, 1))

End If

cqui789 · Answer

Je suis bete, en tapant ajouter, je me suis rapeller, tes chiffres sont toujour a la fin moins 4 positions!



machaine = "WP17-description51.doc"

Indice = Len(machaine) - 4        
              
              '
longueur du nom -4

If IsNumeric(Mid(machaine, Indice - 1, 2)) Then       ' on prend 2 caracteres est si c'est numerique

Chiffre = Val(Mid(machaine, Indice - 1, 2))                ' c'est bon

Else

Chiffre = Val(Mid(machaine, Indice , 1))     
            ' si non, on n'en
prend qu'un

End If


entre nous, si avec les propositions que tu avait tu n'avait pas trouve
quelque chose qui marche, il faudrais etre plus avantureux(se)

Daydayer · Answer

c'est gentil de vous &#234;tre occup&#233; de mon cas!
je vais essayer ce que vous me conseiller... et sans doute que j'aurais bient&#244;t de nouveau besoin de vous!

encore merci (je le dis &#224; chaque fois mais on le dit jamais assez!)

  Daydayerement V&#244;tre

Traitement de chaîne de caractères pour tri

12 réponses

Discussions similaires