file extentions - GameCreators Forum

Author

Message

Bogboy2000

21

Years of Service

User Offline

Joined: 8th Nov 2002

Location: United Kingdom

Posted: 11th Jan 2003 20:53

Link

i'm trying to write a function which saves into an array what the file extention is of ever file within a folder

+ Code Snippet

dim File_Extention(checklist quantity(),3)
for File = 1 to checklist quantity()
	CS$ = checklist string$(File)
	if mid$(CS$,len(CS$)-3) = "."
		Extention = 3
	else
		if mid$(CS$,len(CS$)-2) = "."
			Extention = 2
		else
			if mid$(CS$,len(CS$)-1) = "."
				Extention = 1
			else
				Extention = 0
			endif
		endif
	endif
	File_Extention(File,Extention) = val(CS$)
next F

Extention = 0 being a folder
Extention = 1 being .*
Extention = 2 being .**
Extention = 3 being .***

but the above code doesn't work, it always comes up with 0 for everything

if anyone can help it would be much apriciated

Back to top

Profile PM

Easily Confused

21

Years of Service

User Offline

Joined: 22nd Oct 2002

Location: U.K. Earth. (turn right at Venus)

Posted: 11th Jan 2003 21:29

Link

Not sure if this function will help you.
This will either return the extension name if present, or if not then it will return an empty string.

+ Code Snippet

function GetExtension(f$)
  pos = len(f$)
  repeat : pos = pos - 1 : until mid$(f$,pos)="." or pos <= 0
  if pos > 0 then f$ = right$(f$,len(f$)-pos) else f$= ""
endfunction f$

...then (if I'm interpreting your snippet correctly) you might try this:

ext$ = GetExtension(checklist string$(File))
extension = len(ext$)

Programming anything is an art, and you can't rush art.
Unless your name is Bob Ross, then you can do it in thirty minutes.

Back to top

Profile PM

Easily Confused

21

Years of Service

User Offline

Joined: 22nd Oct 2002

Location: U.K. Earth. (turn right at Venus)

Posted: 11th Jan 2003 21:31

Link

...remember though, extension names can be more than 3 characters in length, *.html files for example.

Programming anything is an art, and you can't rush art.
Unless your name is Bob Ross, then you can do it in thirty minutes.

Back to top

Profile PM

Bogboy2000

21

Years of Service

User Offline

Joined: 8th Nov 2002

Location: United Kingdom

Posted: 12th Jan 2003 13:56

Link

no dice.

the function you gave me didn't work but problem solved!!

+ Code Snippet

dim File_Extention(checklist quantity())

for File = 1 to checklist quantity()
   CS$ = checklist string$(File)
   if mid$(CS$,len(CS$)-4) = "."
      Extention = 4
   else
      if mid$(CS$,len(CS$)-3) = "."
         Extention = 3
      else
         if mid$(CS$,len(CS$)-2) = "."
            Extention = 2
         else
            if mid$(CS$,len(CS$)-1) = "."
               Extention = 1
            else
               Extention = 0
            endif
         endif
      endif
   endif
   File_Extention(File) = Extention
next F

thanks for the help and for reminding me about how long file extentions can be

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / file extentions