» »

ASP in loop problem

ASP in loop problem

rap3r ::

Dim oFilesys, oFolder, oFile
Set oFilesys= CreateObject("Scripting.FileSystemObject")
Set oFolder= oFilesys.GetFolder(Server.MapPath("slike/" & recordset("ID") & ""))
For Each oFile in oFolder.Files

Koda

Next

Set oFolder=Nothing
Set oFilesys=Nothing

Tole kodo uporablam za izpis useh datotek iz določenega folderja. Ta koda mi izpiše vse datoteke, jaz pa bi rad samo prve tri. Zato sem naredil takole, ampak zadeva ne deluja:

Dim oFilesys, oFolder, oFile
Set oFilesys= CreateObject("Scripting.FileSystemObject")
Set oFolder= oFilesys.GetFolder(Server.MapPath("slike/" & recordset("ID") & ""))
For oFile = 0 to 5 in oFolder.Files

Koda

Next

Set oFolder=Nothing
Set oFilesys=Nothing

Ima kdo kakšno idejo kaj telam narobe?

Hvala za odgovore!
Ne droga, ne trava me ne mika, le kakšna promilja alkohola se učasih po krvi mi potika:)

dëych ::

Ja verjetno moras naprej dobit podatek kolk fajlov sploh je tej mapi in pa kako boš fajle razvrščal (po imenu mislm da je po defaultu)..Verjetno boš moral nardit da ti razvrsti po datumu "oFile.DateCreated".

folder = "C:\"

set fso = CreateObject("Scripting.fileSystemObject")
set fold = fso.getFolder(folder)
fileCount = fold.files.count
dim fNames()
redim fNames(fileCount)
cFcount = 0
for each file in fold.files
cFcount = cFcount + 1
fNames(cFcount) = lcase(file.name)
next
for tName = 1 to fileCount
for nName = (tName + 1) to fileCount
if strComp(fNames(tName),fNames(nName),0)=1 then
buffer = fNames(nName)
fNames(nName) = fNames(tName)
fNames(tName) = buffer
end if
next
next

for i = 1 to 3
content = content & fNames(i) & "
"
next
Response.Write content

rap3r ::

Meni je useeno po kakšnem vrstnem redu mi jih spremeni. Tukaj gre da hočem iz folderja prikazati samo 3 slike in ne useh. Na naslednji strani pa potem obiskovalec vidi use slike.

Se pravi jaz bi rad samo, da on loop ne naredi do konca ampak da naredi samo 3 loope in konča. lahko tako?
Ne droga, ne trava me ne mika, le kakšna promilja alkohola se učasih po krvi mi potika:)

dëych ::

for i = 1 to 3
content = fNames(i)
Response.Write ("<img src="&content&">")
next

k je tko težko?

rap3r ::

Je težko ker mi pišeš čisto drugače kot imam jaz.

Dim oFilesys, oFolder, oFile
Set oFilesys= CreateObject("Scripting.FileSystemObject")
Set oFolder= oFilesys.GetFolder(Server.MapPath("slike/" & recordset("ID") & ""))
For oFile = 0 to 3 in oFolder.Files



Next

Set oFolder=Nothing
Set oFilesys=Nothing

Zanima me kaj imam narobe tuki kjer mam boldan?
Ne droga, ne trava me ne mika, le kakšna promilja alkohola se učasih po krvi mi potika:)

rap3r ::

Če je laži bi blo dobr tud če se samo 1x naredi loop in to je to.
Ne droga, ne trava me ne mika, le kakšna promilja alkohola se učasih po krvi mi potika:)

rap3r ::

Evo sm točno tako naredil kot si mi napisal:

Dim fso, fold, fNames, fileCount
Set fso= CreateObject("Scripting.FileSystemObject")
Set fold= fso.GetFolder(Server.MapPath("slike/" & recordset("ID") & ""))
fileCount = fold.files.count
dim fNames()
redim fNames(fileCount)
cFcount = 0
for each file in fold.files
cFcount = cFcount + 1
fNames(cFcount) = lcase(file.name)
next
for tName = 1 to fileCount
for nName = (tName + 1) to fileCount
if strComp(fNames(tName),fNames(nName),0)=1 then
buffer = fNames(nName)
fNames(nName) = fNames(tName)
fNames(tName) = buffer
end if
next
next

for i = 1 to 3
content = content & fNames(i) & ""
next
Response.Write content

Error dobim:

Microsoft VBScript compilation error '800a0411'

Name redefined

line 129

dim fNames()
Ne droga, ne trava me ne mika, le kakšna promilja alkohola se učasih po krvi mi potika:)

dëych ::

Ja dvakrat maš deklarirano spremenljivko.Pa zakaj maš tm notr recordset("id")?


Set fso= CreateObject("Scripting.FileSystemObject")

Set fold = fso.GetFolder(Server.MapPath("slike/"))

fileCount = fold.files.count
dim fNames()
redim fNames(fileCount)
cFcount = 0
for each file in fold.files
cFcount = cFcount + 1
fNames(cFcount) = lcase(file.name)
next
for tName = 1 to fileCount
for nName = (tName + 1) to fileCount
if strComp(fNames(tName),fNames(nName),0)=1 then
buffer = fNames(nName)
fNames(nName) = fNames(tName)
fNames(tName) = buffer
end if
next
next

for i = 1 to fileCount
content = content & fNames(i)
next
Response.Write content

rap3r ::

Tist record set ID imam zato ker iz access baze bere kako je točno ime subfolderja... (tisto deluje)

Zakaj sva spremenila for i = 1 to 3 v for i = 1 to fileCount ? Ali ne pomeni to zdej da izpiše tokrat kukr ji datotek v mapi? Jz bi pa rd da samo 3x. Se prav pustim tkole for i = 1 to 3 da mi bo samo 3x?

Koda je zdej taka:

Dim fso, fold, fileCount, cFcount, file
Set fso= CreateObject("Scripting.FileSystemObject")
Set fold= fso.GetFolder(Server.MapPath("slike/" & recordset("ID") & ""))
fileCount = fold.files.count
dim fNames()
redim fNames(fileCount)
cFcount = 1
for each file in fold.files
cFcount = cFcount + 1
fNames(cFcount) = lcase(file.name)
next
for tName = 1 to fileCount
for nName = (tName + 1) to fileCount
if strComp(fNames(tName),fNames(nName),0)=1 then
buffer = fNames(nName)
fNames(nName) = fNames(tName)
fNames(tName) = buffer
end if
next
next

for i = 1 to 3
content = content & fNames(i)
next
Response.Write content

Error pa dobim tale (v vrstici k sm ti jo odebelil) - fNames(cFcount) = lcase(file.name):
Microsoft VBScript runtime error '800a0009'

Subscript out of range: '8'

line 134
Ne droga, ne trava me ne mika, le kakšna promilja alkohola se učasih po krvi mi potika:)

Zgodovina sprememb…

  • spremenil: rap3r ()

dëych ::

Ja v folderju moras imet vsaj tri fajle ker si mu povedal da naj izpise tri fajle in če jih tolk ne obstaja bo vrgu error nazaj.

rap3r ::

V folderju mam 7 slik pa useen isti error.
Ne droga, ne trava me ne mika, le kakšna promilja alkohola se učasih po krvi mi potika:)


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Replace text with file name - 1000 ×

Oddelek: Pomoč in nasveti
142731 (2353) johanblond
»

Preprosta *.bat skripta

Oddelek: Programiranje
81218 (1000) lopov
»

Unix timestamp

Oddelek: Programiranje
162498 (1985) JeBelaCesta
»

virus problem

Oddelek: Pomoč in nasveti
14963 (850) DrSergioDJ
»

vkljucevanje txt datoteke v ...

Oddelek: Programiranje
131587 (1363) webblod

Več podobnih tem