stringsplit - get last word without extension

[legend]

$hFile = FileOpenDialog("Select file", @DesktopDir, "All files (*.*)", 3)

$split = StringSplit($hFile, "\")

$display = $split[$split[0]]

MsgBox("","",$display)

Hi, I got my script to use stringsplit, to only get the name of the file that you select, the thing is, i don't want it to show the extension, so if you select ex. test.txt, it will only display: test

does someone know how that would be done with my above code?

[FireFox]

Hi,

Maybe this :

$display=StringLeft($display, StringInStr($display, ".", 0, -1) - 1)

Br, FireFox.

[guinness]

I must be getting older as you're quicker than me FireFox, always on the scene these days.

Anyway, another approach using the built in UDFs. Did you search the help file?

#include <Constants.au3>
#include <File.au3>

Local $sFileName = ''
Local $sFilePath = FileOpenDialog('Select file', @DesktopDir, 'All Files (*.*)')
If @error = 0 Then
    Local $sDrive = '', $sDir = '', $sExtension = ''
    _PathSplit($sFilePath, $sDrive, $sDir, $sFileName, $sExtension)
EndIf
MsgBox($MB_SYSTEMMODAL, '', $sFileName)

[FireFox]

I must be getting older as you're quicker than me FireFox.

But I don't mind if you answer after me as yours may be better.

always on the scene these days

Are you talking about me or yourself?

I was quite AFK the last week.

Edited January 22, 2013 by FireFox

[guinness]

But I don't mind if you answer after me as yours may be better.

Well I prefer your approach anyway.

[AZJIO]

legend,

$display = 'D:\Docum\File.au3'
$display=StringRegExpReplace($display, '^(?:.*\\)([^\\]*?)(?:\.[^.]+)?$', '\1')
MsgBox(0, 'Сообщение', $display)