GetExtensionPart fails with a space

[BarryG]

This is what I'm using now, since it covers all situations (spaces, multiple dots, dots at the start and end, dots in the path):

Code: Select all

Procedure.s GetFileExtension(file$)
  ext$=GetExtensionPart(file$)
  If ext$="" And Right(file$,1)<>"."
    dots=CountString(file$,".")
    If dots
      ext$=StringField(file$,dots+1,".")
    EndIf
  EndIf
  ProcedureReturn ext$
EndProcedure

Debug GetFileExtension("C:\File Path\.John Doe") ; John Doe
Debug GetFileExtension("C:\File Path\Name. . .John Doe") ; John Doe
Debug GetFileExtension("C:\File.Path\Name....John Doe....") ; "" (correct)

[Demivec]

This is what I'm using now, since it covers all situations (spaces, multiple dots, dots at the start and end, dots in the path):

For windows, a full stop (period) can be the first character of a filename. If the first character is the only period in the filename then there is no extender.

Thus:

Code: Select all

Debug GetFileExtension("C:\File Path\.John Doe") ; *** should instead return ""

https://learn.microsoft.com/en-us/windows/win32/fileio/naming-a-file

[Little John]

This is what I'm using now, since it covers all situations (spaces, multiple dots, dots at the start and end, dots in the path):

For windows, a full stop (period) can be the first character of a filename. If the first character is the only period in the filename then there is no extender.

Thus:

Code: Select all

Debug GetFileExtension("C:\File Path\.John Doe") ; *** should instead return ""

Exactly!
See also viewtopic.php?p=643530#p643530