CB Repository

//================================================================================
// GetFileName-funktio [ VesQ ]
// ----------------------------
// Palauttaa tiedoston nimen absoluuttisesta tai relativiisesta polusta.
//================================================================================


// ESIMERKKI
searchAbsolutive$ = "C:\lolwhatadir/asdf/this\maps/Luna.mpc"
searchRelative$ = "media/long\list/of/directories\ukko.bmp"

Print GetFileName( searchAbsolutive$ )
Print GetFileName( searchRelative$ )
Print GetFileName( GetEXEName() )

WaitKey 

// FUNKTIO
Function GetFileName( _path$ )

    searchParam$ = Replace( _path$, "/", "\" )
    
    fileNameTmp = 1
    searchLen = Len( searchParam$ )
    While InStr( searchParam$, "\", fileNameTmp ) > 0
        fileNameTmp = fileNameTmp + 1
        If fileNameTmp > searchLen Then
            Exit
        EndIf
    Wend 
    
    ret$ = Mid( searchParam$, fileNameTmp )
    
    Return ret$
EndFunction