Discussion :

[Pingva]

Bonjour, j'essaye d'extraire une date des noms de fichiers reçus.
Jusqu'à là tout fonctionnait bien, puisque je recevais un format simple (Ex. 2017-12-09.pdf)
ce petit code me suffisait -->

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PROCEDURE verif_LibDocument()
resultat,  strDate, libFichier  sont des  chaînes
 
POUR TOUTE CHAÎNE UnFichier DE ResListeFichier SEPAREE PAR RC
    Multitâche(50)
    nomfic=fExtraitChemin(UnFichier,fFichier)
    nomext=fExtraitChemin(UnFichier,fExtension)
 
    strDate=Milieu(nomfic,0,10)
 
    strDate = Remplace(strDate,"-","")
    strDate = Remplace(strDate,"_","")
 
    SI PAS (DateValide(strDate)) ALORS
        resultat = resultat+nomfic +nomext +RC
    FIN
 
FIN

Maintenant je découvre que le format est susceptible de changer, je peux avoir plusieurs caractères avant / après la date, mais pas toujours ...
par exemple
AA-2017-12-09.pdf
BBB-2017-12-09.pdf
BBB-2017-12-09-XXXXX.pdf
2017-12-09.pdf (ou l'ancien format est aussi présent)

Le format de date reste le même, mais le nombre de caractères autour varient...

J'ai pensé à une expression régulière, mais je ne les maitrise pas trop... J'ai fait quelques essais mais pas trop concluants

Votre aide sur cette expression régulière me serait bien utile.
Merci !

[Voroltinquo]

Bonjour,
La fonction ExtraitChaine() peut éventuellement convenir à ton problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sAnnée, sJour, sMois sont chaines
sRes est chaine
 
sRes=ExtraitChaine(NomFic,1,"-")
SI Val(sRes)=0 ALORS //La chaine extraite est alphabétique
     sAnnée=ExtraitChaine(NomFic,2,"-")
     sJour=ExtraitChaine(NomFic,3,"-")
     sMois=ExtraitChaine(NomFic,4,"-")
SINON
    sAnnée=sRes
    sJour=ExtraitChaine(NomFic,2,"-")
    sMois=ExtraitChaine(NomFic,3,"-")
FIN

[Invité]

Bonjour,

Mon idée : remplacer la ligne de code :

Code :

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

strDate=Milieu(nomfic,0,10)

par :

Code :

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

1
2
3
4
5
6
POUR TOUTE CHAÎNE loop_ch DE nomfic SEPAREE PAR "-"
	SI Val(loop_ch)>2000 ALORS
		strDate=Milieu(l_ch,Position(nomfic,loop_ch),10)
		SORTIR
	FIN
FIN

[niuniuk36]

BOnjour,

si tu veux essayer avec les expréssions régulières tu peux essayer ce code.

Bon dev

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
 
PROCEDURE verif_LibDocument()
resultat,  strDate, libFichier  sont des  chaînes
bvalide est un booléen
 
 
POUR TOUTE CHAÎNE UnFichier DE reslistefichier SEPAREE PAR RC
	Multitâche(50)
	nomfic=fExtraitChemin(UnFichier,fFichier)
	nomext=fExtraitChemin(UnFichier,fExtension)
 
	strDate = nomfic  //Cas nom de fichier égal à  2017-12-09
	SI PAS VérifieExpressionRégulière(strDate , "[0-9]{4}[-][0-9]{2}[-][0-9]{2}") ALORS 
		bvalide = Faux
		strDate = nomfic[[Position(nomfic,"-",1,DepuisDébut)+1 A Taille(nomfic)]] //Cas nom de fichier égal à  AAAA-2017-12-09
		SI PAS VérifieExpressionRégulière(strDate , "[0-9]{4}[-][0-9]{2}[-][0-9]{2}") ALORS 
			bvalide = Faux
			strDate = nomfic[[1 A Position(nomfic,"-",0,DepuisFin)-1]] //Cas nom de fichier égal à  2017-12-09-BBBBB
			SI PAS VérifieExpressionRégulière(strDate , "[0-9]{4}[-][0-9]{2}[-][0-9]{2}") ALORS 
				bvalide = Faux
				strDate = nomfic[[Position(nomfic,"-",1,DepuisDébut)+1 A Position(nomfic,"-",0,DepuisFin)-1]] //Cas nom de fichier égal à  AAAAA-2017-12-09-BBBBB
				SI PAS VérifieExpressionRégulière(strDate , "[0-9]{4}[-][0-9]{2}[-][0-9]{2}") ALORS 
					bvalide = Faux
				SINON
					bvalide = Vrai
				FIN
			SINON
				bvalide = Vrai
			FIN
		SINON
			bvalide = Vrai
		FIN
	SINON
		bvalide = Vrai
	FIN	
 
	SI bvalide ALORS
		strDate = Remplace(strDate,"-","")
		strDate = Remplace(strDate,"_","")
 
		SI PAS (DateValide(strDate)) ALORS
			resultat = resultat+nomfic +nomext +RC
		FIN
	SINON
		Erreur ("Format inconnu")
	FIN
 
FIN

[Pingva]

Voroltinquo, romulus001, niuniuk36

Merci beaucoup pour vos réponses, je vais toutes les tester

[Pingva]

romulus001, très bonne l'idée ! Elle est simple, et l'air de bien fonctionner

Je vais choisir cette solution

Et merci encore à tous de répondre à mon problème
Bonne journée !