connaitre la position de départ de fin d'une chaine dans une autre ??? :-s

Question

bonjour &#224; tous,

je poss&#232;de 2 renseignements : 
 1&#176;) une chaine repr&#233;sentant en r&#233;alit&#233; une date (maChaine = "20050415")
2&#176;) une deuxi&#232;me chaine qui sp&#233;cifie sous quel fomat se pr&#233;sente la premi&#232;re
      (format="YYYYMMDD")

Je souhaiterais convertir cette chaine en une date valide. Le probl&#232;me est que cette chaine ne repr&#233;sente pas un format date reconnus par visualBasic et qu'il est donc impossible d'utiliser directement le fonction CDate("20050415").

- je pense donc spliter cette premi&#232;re chaine de mani&#232;re &#224; r&#233;cup&#233;rer s&#233;par&#233;ment je jour,le mois et l'ann&#233;e:  

j=15
m=04
a=2005

- et ensuite la convertir grace &#224; CDate en faisant : 

     *  CDate(j & "-" & m & "-" & a) 
(ceci marche a condition de connaitre dans quel ordre passez j,m,a  mais pour cela j'ai ma petite id&#233;e...)

MON PROBLEME EST COMMENT REUSSIR A SPLITER MA  PREMIERE CHAINE SUR BASE DE LA DEUXIEME????   
exemple:
  * pour le jour, le caractere 'D' se trouve en 7 et 8 eme position, je devrais donc extraire le 7 et le 8eme caractere de maChaine (15) et les stocker dans ma variable j

  * pour le mois, le caract&#232;re 'M' se trouve en 5 et 6eme position, je devrais donc extraire le 5 et 6 eme caractere de maChaine (04) et les stocker dans ma variable m etc...

connaissez vous un moyen simple de faire cela? 
une methode permettant de connaitre le position de d&#233;but et de fin d'une chaine &#224; l'int&#233;rieur d'une autre chaine?

merci d'avance pour votre attention, et &#224; tres bientot j'espere

cordialement,

                                                                        mika

zippro4012 · Answer

La fonction Instr

econs · Answer

Private Type ElementFormat start As Long length As Long End Type Private Sub Command1_Click() ExtractData "20050415", "YYYYMMJJ" ExtractData "2005Avril15", "YYYYMMMMMJJ" End Sub Private Sub ExtractData(sDonnee As String, sFormat As String) Dim tablo(10) As ElementFormat Dim indice As Long Dim sCurrent As String indice = 0 sCurrent = Mid$(sFormat, 1, 1) tablo(indice).start = 1 For i = 2 To Len(sFormat) If Mid$(sFormat, i, 1) <> sCurrent Then sCurrent = Mid$(sFormat, i, 1) 'ReDim Preserve tablo(indice + 1) tablo(indice).length = i - tablo(indice).start indice = indice + 1 tablo(indice).start = i End If Next i tablo(indice).length = Len(sFormat) - tablo(indice).start + 1 ' Exemple : ' sFormat = "YYYYMMJJ" ' tablo contient donc ceci : ' tablo(0).start = 1 ' tablo(0).length = 4 ' tablo(1).start = 5 ' tablo(1).length = 2 ' tablo(2).start = 7 ' tablo(2).length = 2 For i = 0 To UBound(tablo) If tablo(i).start <> 0 Then MsgBox Mid$(sDonnee, tablo(i).start, tablo(i).length) End If Next i End Sub Manu ------------------------------------------- Une question bien posée, c'est une chance de réponse bien adaptée.

econs · Answer

fonctionne quel que soit le format utilis&#233;.

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

youkizouki · Answer

superbe,

merci Econs c'est vraiment sympa ! je regarde &#224; ca tout de suite...

merci, d'avoir lu ma question "enti&#232;rement", de l'avoir compris et surtout de me retourner une 
r&#233;ponse &#224; la hauteur de ma question... je craignais ne pas me faire suffisament comprendre 

merci a toi aussi zippro mais ce n'est pas tout a fait ce que je cherchais... 

a tres bientot j'espere, bon week-end !

                                                                 mika

Connaitre la position de départ de fin d'une chaine dans une autre ??? :-s

4 réponses

Discussions similaires