Remove the extension part of a file.

[Kaeru Gaman]

@Wolf
producing uncleanable garbage is no alternative...

[Hroudtwolf]

Maybe you're right. I don't know if the stringmanager notes the memory-lenght of a string or it checks the null termination.
Therefore it could be unsafe.

Regards
Wolf

[zikitrake]

My code:

Code: Select all

Procedure.s noext(tmp$)
	pos.l = FindString(tmp$, ".", 1)
	r$ = tmp$
	Repeat
		posseg = pos
		If pos : r$ = Left(tmp$, pos-1) : EndIf
		pos.l = FindString(tmp$, ".", pos + 1)
		If pos< = posseg : Break : EndIf
	ForEver
	ProcedureReturn r$
EndProcedure

Debug noext("I.have.too.many.points.txt")
Debug noext("I have only one point.txt")
Debug noext("I haven't points")

[helpy]

and how will your procedures handle ".htaccess" ?

[zikitrake]

and how will your procedures handle ".htaccess" ?

Code: Select all

Procedure.s noext(tmp$)
	pos.l = FindString(tmp$, ".", 1)
	r$ = tmp$
	Repeat
		posseg = pos
		If pos > 1 : r$ = Left(tmp$, pos-1) : EndIf
		pos.l = FindString(tmp$, ".", pos + 1)
		If pos< = posseg : Break : EndIf
	ForEver
	ProcedureReturn r$
EndProcedure

Debug noext(".I.have.too.many.points.txt")
Debug noext("I have only one point.txt")
Debug noext(".htaccess")

[Hroudtwolf]

ROFL.
Jetzt hast du uns bei den Eiern. ^^ (german metaphor. I don't know what it is in english.)

Very good objection!

[Joakim Christiansen]

Code: Select all

filename$ = "Review 2009.09.23.doc"
Debug StringField(filename$,1,".")

pwned

Can I get a cookie now?

NOPE!

This is a fun thread

[utopiomania]

Code: Select all

PathRemoveExtension_(@file)

@breez4me, does this leave the file on disc without the extension part?

If so, thanks for the tip

[Kale]

All these procedures are too big. Text manipulation such as this is what regular expressions where invented for.

This is cross-platform:

Code: Select all

Procedure.s RemoveExtension(Filename.s)
	CreateRegularExpression(0, "(?<!\A)\.[\w]+\Z")
	ProcedureReturn ReplaceRegularExpression(0, Filename, "")
EndProcedure


Debug RemoveExtension(".htaccess")
Debug RemoveExtension("Filename.exe")
Debug RemoveExtension("Filename.html")
Debug RemoveExtension("Filename.config")
Debug RemoveExtension("File.Name.jpeg")
Debug RemoveExtension("I have only one point.txt")
Debug RemoveExtension(".I.have.too.many.points.txt")

[Hroudtwolf]

It is just a short memory leak @Kale ^^

My recommendation.

Code: Select all

Procedure.s RemoveExtension(sFilename.s)
   Static idRegEx.i
   
   ; Object recycling.
   If Not (idRegEx)
      idRegEx = CreateRegularExpression(#PB_Any , "(?<!\A)\.[\w]+\Z")
      If Not (idRegEx) 
         ProcedureReturn sFilename
      EndIf
   EndIf
   
   ProcedureReturn ReplaceRegularExpression(idRegEx, sFilename, "")
EndProcedure


Debug RemoveExtension(".htaccess")
Debug RemoveExtension("Filename.exe")
Debug RemoveExtension("Filename.html")
Debug RemoveExtension("Filename.config")
Debug RemoveExtension("File.Name.jpeg")
Debug RemoveExtension("I have only one point.txt")
Debug RemoveExtension(".I.have.too.many.points.txt")

Regards
Wolf

[SFSxOI]

OK, I got a stupid question. Why can't you just rename the file to remove the extension?

Code: Select all

RenameFile("C:\test.txt", "C:\test")

works fine

[Kaeru Gaman]

All these procedures are too big. Text manipulation such as this is what regular expressions where invented for.

[Kurzer]

All these procedures are too big. Text manipulation such as this is what regular expressions where invented for.

Apropos "too big": How big will be your resulting Exefile if you use reg. expressions instead of a small procedure which do the same job?

[Demivec]

OK, I got a stupid question. Why can't you just rename the file to remove the extension?

Code: Select all

RenameFile("C:\test.txt", "C:\test")

works fine

@SFSxO1: You wouldn't know what to name it to until you had removed the extension.

I believe the thread title was meant to read "Remove the extension part of a filename."

[Kale]

All these procedures are too big. Text manipulation such as this is what regular expressions where invented for.

xkcd.com image

Jealous?

It is just a short memory leak @Kale ^^

Explain. I don't understand why you've coded your procedure like that.