Get base file name

Author: comperio (talk, contrib)

Description

The following function takes a file name from the top of the stack and return the base name (file name minus extension). This is like the "GetBaseName" function of VBScript.

The Function

Function GetBaseName
    ; This function takes a file name and returns the base name (no extension)
    ; Input is from the top of the stack
    ; Usage example:
    ; push (file name)
    ; call GetBaseName
    ; pop (file name)
 
 
    Exch $1  ; Initial value
    Push $2  ; Pointer variable
    Push $3  ; single character (temp)
    Push $4  ; New string
    strCpy $4 ""
    ; I add 'x' to the string to make it easier to 
    ;  use with my pointer variable
    StrCpy $1 "x$1"  
    strCpy $2 "0"
  StartBaseLoop:
    IntOp $2 $2 + 1
    StrCpy $3 $1 1 $2
    strCmp $3 "." ExitBaseLoop
    StrCmp $3 "" ExitBaseLoop
    StrCpy $4 "$4$3"
    Goto StartBaseLoop
  ExitBaseLoop:
    StrCpy $1 $4
    Pop $4
    Pop $3
    Pop $2
    Exch $1
FunctionEnd