-----------------------------------

TheXploder

Sat Feb 07, 2004 11:02 am


File Type Finder

-----------------------------------

I made a program that reads files in a folder and puts them into an array...:


var streamNumber : int
var size, attribute, fileTime : int
var fullFileName, fileLength : string := ""
var Semicolon : int := 0
var fileNum := 1

var Folder : string := "New Folder"

proc LoadFile
    fileLength := ""
    streamNumber := Dir.Open (Folder)

    assert streamNumber > 0

    loop
        Dir.GetLong (streamNumber, fullFileName, size, attribute, fileTime)
        exit when fullFileName = ""
        fileLength := fileLength + fullFileName + ";"
    end loop

    Dir.Close (streamNumber)
end LoadFile

LoadFile

for i : 1 .. length (fileLength)
    if fileLength (i) = ";" and fileLength (i + 1) not= chr (46) then
        fullFileName := fileLength (i + 1 .. *)
        exit
    end if
end for

for i : 1 .. length (fileLength)
    if i < length (fileLength) then
        if fileLength (i) = ";" and fileLength (i + 1) not= chr (46) then
            Semicolon := Semicolon + 1
        end if
    end if
end for

put "Files Found: ", Semicolon
put "-------------------------"

var fileNames : array 1 .. Semicolon of string
var fileName : array 1 .. Semicolon of string

for i : 1 .. Semicolon
    fileNames (i) := ""
    fileName (i) := ""
end for

for a : 1 .. length (fullFileName)
    if fullFileName (a) = ";" then           % Next File
        fileNum += 1
    else
        fileName (fileNum) += fullFileName (a)
    end if
end for

for i : 1 .. Semicolon
    put fileName (i)
end for


anyway I could make that shorter?


-----------------------------------

TheXploder

Sat Feb 07, 2004 12:24 pm



-----------------------------------

Here is an update, this finds .exe files... you could change that to any other file types of course if your going to make a paint program that allows to only view one file type... It's very useful..
Just make the a folder called "New Folder" in the same folder that you save this.. and make a bunch of file types.. and some .exe files, when you run it he'll read all the file names and add them into an array, from that array it reads all the file names and picks out .exe files...


var streamNumber : int
var size, attribute, fileTime : int
var fullFileName, fileLength : string := ""
var Semicolon : int := 0
var fileNum := 1
var exeFound := 0

var Folder : string := "New Folder"

proc LoadFile
    fileLength := ""
    streamNumber := Dir.Open (Folder)

    assert streamNumber > 0

    loop
        Dir.GetLong (streamNumber, fullFileName, size, attribute, fileTime)
        exit when fullFileName = ""
        fileLength := fileLength + fullFileName + ";"
    end loop

    Dir.Close (streamNumber)
end LoadFile

LoadFile

for i : 1 .. length (fileLength)
    if fileLength (i) = ";" and fileLength (i + 1) not= chr (46) then
        fullFileName := fileLength (i + 1 .. *)
        exit
    end if
end for

for i : 1 .. length (fileLength)
    if i < length (fileLength) then
        if fileLength (i) = ";" and fileLength (i + 1) not= chr (46) then
            Semicolon := Semicolon + 1
        end if
    end if
end for

put "Files Found: ", Semicolon
put "-------------------------"

var fileName : array 1 .. Semicolon of string
var fileType : array 1 .. Semicolon of string

for i : 1 .. Semicolon
    fileName (i) := ""
end for

for i : 1 .. Semicolon
    fileType (i) := ""
end for


for a : 1 .. length (fullFileName)
    if fullFileName (a) = ";" then           % Next File
        fileNum += 1
    else
        fileName (fileNum) += fullFileName (a)
    end if
end for

put Semicolon

for b : 1 .. Semicolon
    for a : 1 .. length (fileName (b))
        if fileName (b) (a) = "." then    % Next File
            fileType (b) := fileName (b) (a .. *)
        end if
    end for
end for

for i : 1 .. Semicolon
    put fileName (i)
end for
put "-----------"

for i : 1 .. Semicolon
    if fileType (i) = ".exe" then
        exeFound := exeFound + 1
    end if
end for

put ".exe Files Found: ",exeFound


again if you find a way to shorten this please share..


-----------------------------------

Delta

Sat Feb 07, 2004 7:40 pm



-----------------------------------

Ok... I ran it but I got an error...

dynamic array upper bound is less than lower bound

I take it that only happens if no files are found right?... well you should really fix that


ummm... this is a little shorter.... but its only part of it... paste it over everything from put "Files Found:",Semicolon to the end


put "Files Found: ", Semicolon 
put "-------------------------" 

var fileName, fileType : array 1 .. Semicolon of string 
 

for i : 1 .. Semicolon 
    fileName (i) := "" 
    fileType (i) := "" 
end for 


for a : 1 .. length (fullFileName) 
    if fullFileName (a) = ";" then           % Next File 
        fileNum += 1 
    else 
        fileName (fileNum) += fullFileName (a) 
    end if 
end for 

put Semicolon 

for b : 1 .. Semicolon 
    for a : 1 .. length (fileName (b)) 
        if fileName (b) (a) = "." then    % Next File 
            fileType (b) := fileName (b) (a .. *) 
        end if 
    end for 
    put fileName (b)
        if fileType (b) = ".exe" then 
        exeFound := exeFound + 1 
    end if 

end for 
put "-----------" 
put ".exe Files Found: ",exeFound 


-----------------------------------

GUI.GetScrollBarWidth : i

Fri Feb 13, 2004 6:19 pm



-----------------------------------

good prog, u deserve some bits. but i can't give up any of my presoius, so i guess u get none for now


-----------------------------------

Andy

Sat Feb 14, 2004 5:33 pm



-----------------------------------

OMG... GUI.GetScrollBarWidth :i, you are a moron... dont spam in GD!!! if only i had my bit powers back...