Help optimize and convert code to StringRegExpReplace

[Trong]

Please help me to convert and optimize this code:

 

Local $sPath = 'c:\\ Aloha\Ciao \XinChao"\Hello My Friend'
    While 1
        If ((StringInStr($sPath, " \") = 0) And (StringInStr($sPath, '"') = 0) And (StringInStr($sPath, "\\") = 0) And (StringInStr($sPath, "\ ") = 0)) Then ExitLoop
        $sPath = StringReplace($sPath, "\\", "\")
        $sPath = StringReplace($sPath, "\ ", "\")
        $sPath = StringReplace($sPath, " \", "\")
        $sPath = StringReplace($sPath, '"', '')
    WEnd
    ConsoleWrite($sPath &@CRLF)
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;

Edited April 13, 2015 by Trong

[iamtheky]

$sPath = 'c:\\ Aloha\Ciao \XinChao"\Hello'
msgbox(0, '' , stringreplace(stringreplace(stringstripws($sPath , 8) , '"' , "") , "\\" , "\"))

Edited April 13, 2015 by boththose

[Trong]

Thanks boththose,
but, stringstripws  is not allowed to use for paths.

Edited April 13, 2015 by Trong

[BrewManNH]

Thanks boththose,

but, stringstripws  is not allowed to use for paths.

Who says so?

Did you even TRY to run the code posted?

[iamtheky]

shellexecute("c:\temp     \test")

;~ is the same As

shellexecute("c:\temp\test") 

but trailing spaces dont matter at all, and you care about those?

 

 

@Brewman,   I think he was just saying I would bone paths that had spaces in the middle of a directory (of which there were none in the example).  I forget about that routinely because I usually 8.3 everything first.

 

Edited April 13, 2015 by boththose

[Trong]

@BrewManNH
Someone or myself ^^.
Of course. I've tried.

Path include spaces, Remove space => Error. Right?


@boththose
I tried to fix the wrong path!

shellexecute("c:\temp     \test You")

;~ is the same As ????

shellexecute("c:\temp\testYou")

Edited April 13, 2015 by Trong

[iamtheky]

$sPath = 'c:\\ Alo ha\Ciao \XinChao"\Hello'


$aPath = stringsplit($sPath , "\" , 2)

$sOut = $aPath[0]

For $i = 1 to ubound($aPath) - 1
    If stringlen($aPath[$i]) > 1 Then $sOut &= "\" & stringregexpreplace(stringstripws($aPath[$i] , 3) , '\\|\/|\:|\*|\?|\"|\<|\>|\||' , "")
Next

msgbox(0, '' , $sOut)

If you want all the rules, i think you may have to bust it up first.  At least until a regex wizard shows up. 

 

And I was just showing that your stringreplace that handled trailing spaces was unnecessary.

Edited April 13, 2015 by boththose

[BrewManNH]

Where are these paths coming from that they're so F'd up? I'd start with the source rather than trying to fix something that poorly formatted in a script.

[jchd]

E.g. "C:Program Files (x86)", "C:WindowsDownloaded Program Files" and so many others.

[BrewManNH]

I was referring to the path in the OP, not in general. Obviously I know that there are paths with spaces in them, just not as poorly formatted as the one in the OP. That path has to be coming from somewhere, because that isn't a valid Windows path.

[kylomas]

another way...

local $op = 'c:\\ Alo ha\Ciao \Xi    nChao"\       Hello'

local $np = stringregexpreplace(stringregexpreplace($op,'\\ +| +\\','\\'),'\\+','\\')

ConsoleWrite($op & @LF & $np & @CRLF)

kylomas

[mikell]

kylomas, you forgot the "  

$sPath = 'c:\\ Alo ha\Ciao \XinChao"\Hello'

msgbox(0, '' , stringregexpreplace($sPath, '(\\?"?\s*\\\s*)', "\\"))

[jguinch]

@Mikell : yours works because the " is just before a

StringReplace( StringRegExpReplace($sPath, '\h*\\+\h*', '\\'), '"', '') )

[kylomas]

mikell - What do you mean?  It picked up the quote when I tested it...

Nevermind, missed the fact that the OP wanted to get rid of the quote...

Edited April 13, 2015 by kylomas

[Trong]

Thanks @kylomas, @mikell, @jguinch and @BrewManNH

Where can I find documentation for RegExp AutoIT?

[jguinch]

@Trong : the help file is good, and the forum too. There are a lot of websites with examples and tools to help with regex.

These two websites should help you :

 - http://www.rexegg.com/

 - https://regex101.com/

[mikell]

May I add this must third one : http://www.regular-expressions.info/