Sélectionner un fichier par expression régulière

Bonjour,

après recherche je n'arrive pas à me débloquer sur un script.
Je veux faire un sql = "LOAD DATA INFILE MonFichier INTO ..."

Ce script sera automatisé pour faire un import chaque matin après réception du fichier, et le nom du fichier sera toujours VAD_yyyymmddhhmmss.csv

J'ai testé plusieurs méthode :
1) En regexp

Code:

---

1 2 3

Set Regex = CreateObject("vbscript.regexp") regex.Pattern = "^VAD_[0-9]{14}\.csv$"

---

Ca fonctionne mais je ne sais pas comment appeler ça dans mon LOAD DATA

Quelque chose comme

Code:

---

sql = "LOAD DATA INFILE c:\"&regex&"" INTO TABLE ....

---

Bon je sais que ça n'est pas ça mais c'est pour que vous compreniez ce que j'essaie de faire.

2)
Récupérer la date du jour dans une variable

Code:

---

currentDate = Year(now)&""&Month(now)&""&Day(now)

---

Mais là je bloque car je ne peux pas savoir l'heure à la seconde près où le fichier sera généré. Donc il me refaudrait une expression régulière pour l'heure, et du coup retour au point de départ.

Quelqu'un pourrait-il me venir en aide ? Je sèche complétement.
Merci d'avance.

j'ai également tenté la regexp directement dans le XML

Code:

---

LOAD DATA INFILE 'C:/*.csv' REGEXP 'C:/VAD_[0-9]{14}\.csv$ INTO TABLE ...'

---

Mais il me retourne une erreur de syntaxe.
A vrai dire je ne suis même pas sûr qu'on puisse utiliser une regexp sur un LOAD. Je trouve principalement des exemples sur SELECT

Voici ce que je te propose.

On créer la bonne regexp en forcant le mois et jour sur 2 caractères.
On cherche dans un dossier, et on trouve le premier fichier qui correspond à cette regexp.
J'ai mis cela dans la fonction "FindMyFile", si elle retourne vide "", c'est qu'aucun fichier n'est trouvé ou que le dossier n'existe pas.

PS : Le chemin absolu du fichier est retourné par la fonction.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

MyFile = FindMyFile("C:\MonDossier") msgbox MyFile wscript.quit   Function FindMyFile(PathFolder) FindMyFile = "" Set fso = CreateObject("Scripting.FileSystemObject") If (not fso.FolderExists(PathFolder)) Then Exit Function   Set Regex = CreateObject("vbscript.regexp") regex.Pattern = "^VAD_" & Year(now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "[0-9]{6}\.csv$" regex.IgnoreCase = False For Each objFile in fso.GetFolder(PathFolder).Files If (regex.Test(objFile.Name)) Then FindMyFile = objFile.Path Exit Function End If Next End Function

---

Bonjour,

merci beaucoup pour le coup de main. Me reste un petit problème.
J'ai mis le bon chemin. La boîte de msgbox me l'affiche correctement.

Seulement je me prends derrière une erreur où il me dit c:/wamp/bin/mysql5.6.12/data/ suivi du chemin de mon fichier, et donc ne trouve pas le fichier en question.

Je regarde de où celà peut provenir.

Bon comme je n'ai pas réussi à forcer le chemin, j'ai modifié la boucle

Code:

---

1 2 3 4 5 6

For Each objFile in fso.GetFolder(PathFolder).Files If (regex.Test(objFile.Name)) Then FindMyFile = objFile.Path Exit Function End If Next

---

par

Code:

---

1 2 3 4 5 6

For Each objFile in fso.GetFolder(PathFolder).Files If (regex.Test(objFile.Name)) Then FindMyFile = objFile.Name Exit Function End If Next

---

Du coup j'ai passé le chemin absolu dans mon LOAD DATA INFILE en concaténant avec le nom du fichier, et ça fonctionne.

Encore merci pour l'aide.
Bonne journée.