| 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?
|
||
|
|
Svara med citat
|
|
|
#2 | ||
|
|||
|
Mycket flitig postare
|
Vilket språk pratar vi om? Jag skulle använda right$ eller möjligtvis instr.
|
||
|
|
Svara med citat
|
|
|
#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 |
||
|
|
Svara med citat
|
|
|
#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
|
|||
|
|
Svara med citat
|
|
|
#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 med citat
|
| Svara |
| Ämnesverktyg | |
| Visningsalternativ | |
|
|