[prob php] recherche à partir d'un bout de ti
sebalab
-
phil232 Messages postés 610 Statut Membre -
phil232 Messages postés 610 Statut Membre -
Bonjour,
je me heurte à un gros probleme, j'ai des photos nomé comme dynamique dans la forme 5636_7896589_a1.jpg , 5636_7896589_b1.jpg , etc .....
et dans une base de donné 7896589 corespond à une reference client a, b, c , et c.... corespond à chaque fois à une nouvelle image.
j'aimerai pouvoir faire un script qui me permetrai de chercher parmis les photos presente dans un dossier les photos ayant dans leur nom 7896589, et le a1, b1 etc..... decliné a chaque fois s'il y en a.
ceci dans le but de retravaillé sur ces photos pour les redimentionner avant des inscrire definitivement dans mon site.
je cherche en vain, et ne trouve rien, quelqu'un peut-il m'aider.
je me heurte à un gros probleme, j'ai des photos nomé comme dynamique dans la forme 5636_7896589_a1.jpg , 5636_7896589_b1.jpg , etc .....
et dans une base de donné 7896589 corespond à une reference client a, b, c , et c.... corespond à chaque fois à une nouvelle image.
j'aimerai pouvoir faire un script qui me permetrai de chercher parmis les photos presente dans un dossier les photos ayant dans leur nom 7896589, et le a1, b1 etc..... decliné a chaque fois s'il y en a.
ceci dans le but de retravaillé sur ces photos pour les redimentionner avant des inscrire definitivement dans mon site.
je cherche en vain, et ne trouve rien, quelqu'un peut-il m'aider.
Configuration: Windows XP Internet Explorer 7.0
3 réponses
-
Sub SearchFiles(SearchFolder, SearchName)
Dim fso 'As Scripting.FileSystemObject
Dim f 'As File
Dim fld 'As Folder
Dim fi
Dim SearchFolder
Dim SearchName
SearchFolder = "C:\UserTemp"
SearchName = "rg"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(SearchFolder)
Set fi = fso.OpenTextFile("c:\UserTemp\testfile.txt", 2, True) 'ForWriting
For Each f In fld.Files
If InStr(UCase(f.Name), UCase(SearchName)) > 0 Then
fi.WriteLine f.Name
End If
Next
fi.Close
Set fso = Nothing
Set fld = Nothing
Set fi = Nothing
Set f = Nothing
End Sub -
Merci , mais c'est du php ca ???
ca y resemble pas trop.
parce que la j'y comprend rien du tout, si tu peut commenter !
merci a+ -
oups, j'ai pas fait attention. c'est du VBScript. mais peut-etre l'algorithme peut t'aider. sinon tu peut toujours sauver ça dans un fichier *.vbs et après qq modifs tu aurais un script externe (sous Windows bien sur).
sry