Kom ihåg mig?
Home Menu

Menu


Skriva ut alla filer som bara slutar med .jpg ?

Ämnesverktyg Visningsalternativ
Oläst 2006-05-12, 15:01 #1
Milad Milad är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Nov 2004
Inlägg: 505
Milad Milad är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Nov 2004
Inlägg: 505
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?
Milad är inte uppkopplad   Svara med citatSvara med citat
Oläst 2006-05-12, 15:17 #2
Max Max är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Jul 2003
Inlägg: 721
Max Max är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Jul 2003
Inlägg: 721
Vilket språk pratar vi om? Jag skulle använda right$ eller möjligtvis instr.
Max är inte uppkopplad   Svara med citatSvara med citat
Oläst 2006-05-12, 15:30 #3
Jens Jens är inte uppkopplad
Administratör
 
Reg.datum: Jan 2003
Inlägg: 874
Jens Jens är inte uppkopplad
Administratör
 
Reg.datum: Jan 2003
Inlägg: 874
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);
}
?>
Men du verkar använda asp vid närmare efterforskning.
Jens är inte uppkopplad   Svara med citatSvara med citat
Oläst 2006-05-12, 15:37 #4
Westmans avatar
Westman Westman är inte uppkopplad
Klarade millennium-buggen
 
Reg.datum: Jun 2004
Inlägg: 4 021
Westman Westman är inte uppkopplad
Klarade millennium-buggen
Westmans avatar
 
Reg.datum: Jun 2004
Inlägg: 4 021
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
Westman är inte uppkopplad   Svara med citatSvara med citat
Oläst 2006-05-12, 16:42 #5
Lindahl Lindahl är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Dec 2004
Inlägg: 854
Lindahl Lindahl är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Dec 2004
Inlägg: 854
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
Lindahl är inte uppkopplad   Svara med citatSvara med citat
Svara


Aktiva användare som för närvarande tittar på det här ämnet: 1 (0 medlemmar och 1 gäster)
 

Regler för att posta
Du får inte posta nya ämnen
Du får inte posta svar
Du får inte posta bifogade filer
Du får inte redigera dina inlägg

BB-kod är
Smilies är
[IMG]-kod är
HTML-kod är av

Forumhopp


Alla tider är GMT +2. Klockan är nu 21:34.

Programvara från: vBulletin® Version 3.8.2
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Svensk översättning av: Anders Pettersson
 
Copyright © 2017