Want to workbook name in cell A1 without file path and extension

hi,

i am using below formula to extract workbook name without path

=REPLACE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),1,FIND("[",CELL("filename",A1)),"")

but i don't need extension (".xlsm") also

above formula return = 17.2.17.xlsm
but i need
17.2.17


thanx