Useful Script

[Mick]

I couldn't find this anywhere else, so I wrote a script to separate a pathname and filename from a full path/filename.

; Splits the filepath into DIR or FILENAME, pass full filepath as VAR1, required part as VAR2
; eg Pass (C:\Windows\System32\notepad.exe, 0) to return C:\Windows\System32
; eg Pass (C:\Windows\System32\notepad.exe, 1) to return notepad.exe
Func _SplitFilePath($VAR1, $VAR2)
    $PathBits = StringSplit ($VAR1, "\")
    $SplitFileName = $PathBits[$PathBits[0]]
    If $VAR2 = 0 Then
        $ReturnValue = StringTrimRight ($VAR1, StringLen ($SplitFileName) + 1)
    Else
        $ReturnValue = $SplitFileName
    EndIf
    Return $ReturnValue
EndFunc

If this already exists as a function can someone point it out please? Otherwise, could it be added to next BETA as it's quite useful (to me at least).

Thanks.

[Micha1405]

Nice

another solution

$filepath = "c:\Windows\notepad.exe"
$file = StringTrimLeft($filepath,StringInStr($filepath,"\",0,-1))
$Path = StringLeft($filepath,StringInStr($filepath,"\",0,-1)-1)
MSGBOX(0,"Result",$Path &" | "&$file)

[Xenobiologist]

HI,

right from help.

#include <file.au3>
#include <array.au3>
Dim $szDrive, $szDir, $szFName, $szExt
$TestPath = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt)
_ArrayDisplay($TestPath,"Demo _PathSplit()")

So long,

Mega

[Simucal]

Like th.meger said, _PathSplit is the way to go. However, here is my crack at doing it in one less line than Micha:

$filepath = "c:\Windows\notepad.exe"
$a_result = stringregexp($filepath,'([a-zA-Z]:\\[^/:*?"<>|\r\n]*[\\])([^/:*?"<>|\r\n]*\.[a-zA-Z0-9]{3})',1)
If IsArray($a_result) Then MSGBOX(0,"Result","Path: "&$a_result[0] &@CRLF&"File: "&$a_result[1])

[Xenobiologist]

Like th.meger said, _PathSplit is the way to go. However, here is my crack at doing it in one less line than Micha:

$filepath = "c:\Windows\notepad.exe"
$a_result = stringregexp($filepath,'([a-zA-Z]:\\[^/:*?"<>|\r\n]*[\\])([^/:*?"<>|\r\n]*\.[a-zA-Z0-9]{3})',1)
If IsArray($a_result) Then MSGBOX(0,"Result","Path: "&$a_result[0] &@CRLF&"File: "&$a_result[1])

HI,

NICE, but you have to change a little bit, otherwise it only works if the extension is 3 chars long. What about e.g config.properties files

So long,

Mega

Edited May 15, 2006 by th.meger

[AutoItKing]

Try this:

Func _Extenstion($filename)
$string=StringSplit($filename,".")
Return $string[$string[0]]
EndFunc