Gruppering af filer via FSO

Hvad med at knalde dem ind i et stort dobbeltsidet array?

Når du har hentet alle dine filer ind, løber du dem igennem, og fjerner "type".
Herefter kan du lave en split på resten så du har dine koordinater.

Fx. støder du ind type1-1, vil det blive til (1,1) i dit array.

Hvis ikke du kender længen eller bredden af dit array, må du gemme max værdierne mens du kører dem igennem, og først indsætte dem bagefter. Dvs. du knalder først alle værdierne (modfificeret) ind i et tempArray (enkeltsidet).

Når du har fyldt dit array ud, kan du loope det igennem og så har du din tabelopbygning.

Hmmm kan du lave et eksempel som virker så er pointene dine :)

Hehe, det vil tage tid at lave et eksempel, det ser ud  som om du sagtens kan skrive VB-Script, og man lærer bedst af at skrive det selv.

jeg bidrager med ideen, der var det du manglede. Du skal være velkommen til at fyre koden ind i dette spg. så skal jeg gerne hjælpe dig med problemer undervejs.

Jeg er ret sikker på det vil virke!

argh orker ikke at skulle til at sidde og rode med det ;-) Men okay.. jeg giver det et skud

Hmm ikke sikker jeg helt forstår... nu har jeg lavet nedenstående som hiver det ind i et array men hvordan gruppere jeg dem... forstår ikke helt hvordan jeg får det i en dbl. sidet arry ?

Dim fso, f, files, folderspec
    folderspec = Server.Mappath("../template/")
   
    ' Start File System Objectet...
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set rootFolder = fso.GetFolder(folderspec)
    Set files = rootFolder.Files
   
    For Each file in files
        extension = fso.GetExtensionName(file)
       
        if extension = "asp" then
            fileToCheck = replace(file.name,"type","")
            fileToCheck = replace(fileToCheck,".asp","")
           
            ' Ligger filnavne ind i et dbl. array
            tempArry = fileToCheck & "," & tempArry
           
        end if
    next
   
    tempArry = split(tempArry,",")
   
    for each objItem in tempArry
       
        response.Write(objItem & "<br>")
    next

Du skal have et midlertidigt array til at opbevare dine modificerede fil navne, eftersom du først er nødt til at tjekke hvor stort du skal dimensionere dit dobbeltsidet array og oprette det før du kan sætte værdierne derind.

Inden du kører værdierne i et temparray, skal du lige lave en split og tjekke om værdierne er højere end dem du starter med. Det er dem du skal bruge til at oprette dit dobbelt sidet array med.

Et dobbeltsidet array (3*3 Array), Oprettelse:
        Dim aryMenu(3)
   
    Dim aryMenu1(3)
   
    aryMenu(0) = aryMenu1
    aryMenu(1) = aryMenu1
    aryMenu(2) = aryMenu1
   
    aryMenu(0)(0)

Eftersom du ikke kender længden på dit array, skal du naturligvis sætte nogle værdier ind. Og iterere igennem dem.

Jeg har ikke sagt det var nemt...:) Der er bare ingen standard løsning på dit problem.

Du tilgår værdier i dit dobbelt array sådan her, som jeg skrev:
aryMenu(0)(0)

For fanden da, min matematiske hjerne kan slet ikke bryde alt det der ;-)

Er der andre der evt. kan komme med et fuldt virkende eksempel så ville jeg være taknmmelige ;-)

skyggen: Jeg har ikke efterproevet det, men vil der i dit eksempel ikke gaelde at (0)(x) == (1)(x) == (2)(x) ??

BTW, et to-dimentionelt array kan ogsaa skrives med Dim aryMenu(3, 3)

Du må da også kunne lave det i et hug med
redim preserve arr(n, m)
if n_1 > n then
  redim preserve arr(n_1, m)
end if

Tænkte nok der var en bedre måde at oprette et dobbelt array, men kunne i lige komme i tanke om det:) Nice by the way!

mortendahl2003 >> Mener du med oprettelsen af arrayet eller hur?
Jeg har heller ikke efterprøvet det, men det funker inde i mit hovede, altså hele ideen:) Det jeg tilføjede var blot en mulig måde at oprette arrayet på ikke initialisere det.

ras2000 >> Det tror jeg du har fuldstændig ret i.

Så er der ikke langt til mål.

der staar vel ikke noget derinde, som ikke stod der igaar..

doh.. glem den sidste kommentar :D

Ras2000: Hvad står henholdvis n og m for ? i det stup kode du har smidt..

Hvis du opretter et 2-dimensionel array, så står de for antal rækker og kolonner.
F.eks
redim arr(3, 3)
arr(0, 0) = "et eller andet"
arr(0, 1) = "noget nyt"
...
arr(3, 3) = "mere tekst"
...
Nu finder du så ud af at der skal være mere plads.

redim preserve arr(4, 3)
arr(4, 0) = "og så videre"

I dit tilfælde ved du måske ikke hvor mange rækker og kolonner du har brug for. Men du klipper tallene ud af dit filnavn, og stopper navnene ind idit array. Altså
arr(0, 0) = "type0-0"
arr(0, 1) = "type0-1"
osv.
Men for at være sikker på at du ikke går udover grænserne for dit array, skal du redimensionere det, hvis et af tallene bliver for store.

ras2000: nu har jeg siddet og bøvlet med det, er det muligt at du kunne poste noget kode som virkede i forhold til det jeg har skrevet.. ?

Er der nogen der kan hjælpe mig færdig med det her??

<%
    Dim fso, f, files, folderspec
    folderspec = Server.Mappath("../template/")
   
    ' Start File System Objectet...
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set rootFolder = fso.GetFolder(folderspec)
    Set files = rootFolder.Files
   
   
   
    Const rows = 10
    Const cols = 10
   
    ReDim aryCells(rows, cols)

    For row = 0 To rows - 1
        For col = 0 To cols - 1
            aryCells(row, col) = ""
        Next
    Next
   
    For Each file in files
        extension = fso.GetExtensionName(file)
       
        If LCase(extension) = "asp" then
            filename = file.name
            fileToCheck = replace(filename, "type", "")
            fileToCheck = replace(fileToCheck, ".asp", "")
            aryNums = Split(fileToCheck, "-")
           
            If CInt(aryNums(0)) > rows Or CInt(aryNums(1)) > cols Then
                Response.Write("WTF! ERROR!" & aryNums(0) & " - " & aryNums(1))
                Response.End
            End If
           
            aryCells(aryNums(0) - 1, aryNums(1) - 1) = filename
        End If
    Next
   
    %><table border=0 cellpadding="0" cellspacing="4"><%
   
    For row = 0 To rows - 1
        %><tr><%
        For col = 0 To cols - 1
            %><td><%
            If aryCells(row, col) <> "" Then
                image = replace(aryCells(row, col),".asp",".gif")
                Response.Write("<input type=""radio"" name=""TemplateId"" value=""" & aryCells(row, col) & """><img src=""../template/" & image & """>")
            End If
            %></td>
           
        <%
        Next
        %></tr>
       
        <tr><td colspan="10" bgcolor="#000000"></td></tr>
    <%
    Next
   
    %></table><%   
   
   

   
    set fso = nothing
    set f = nothing
    set files = nothing
    set folderSpec = nothing
   
%>