FAQ |
Kalender |
![]() |
#1 | ||
|
|||
Mycket flitig postare
|
Hur gör jag om jag vill skriva ut alla filer i en mapp som bara slutar med .jpg och inget annat? Hur ser for lopen ut?
|
||
![]() |
![]() |
![]() |
#2 | ||
|
|||
Mycket flitig postare
|
Vilket språk pratar vi om? Jag skulle använda right$ eller möjligtvis instr.
|
||
![]() |
![]() |
![]() |
#3 | ||
|
|||
Administratör
|
I php skulle det kunna se ut såhär.
Kod:
<?php $directory = "."; // punkten är nuvarande arbetskatalog if ($handle = opendir($directory)) { * while (false !== ($file = readdir($handle))) { * * * if (strpos(strtolower($file),".jpg") ) { * * * * * echo "$file\n"; * * * } * } * closedir($handle); } ?>
__________________
www.hus.se - www.hantverkare.se - www.qualityunlimited.com - www.test.se - www.kampanj.se |
||
![]() |
![]() |
![]() |
#4 | |||
|
||||
Klarade millennium-buggen
|
ASP/VB:
Kod:
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc if right(lcase(f1.name),4) = ".jpg" then response.write(f1.name & "<br>" & vbcrlf) Next |
|||
![]() |
![]() |
![]() |
#5 | ||
|
|||
Mycket flitig postare
|
Westmans funkar bra, men jag skulle vilja modifiera den lite:
Kod:
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set fc = f.Files For Each f1 in fc *if fso.GetExtensionName(f1) = "jpg" then response.write(f1.name & "<br>" & vbcrlf) Next |
||
![]() |
![]() |
Svara |
|
|