replace username in profile path

[gcue 8]

hello world.

I am trying to replace qwerty (or anything that is in that spot) with xavier - what am i doing wrong?

$new_user = "xavier"
$string = "c:\users\qwerty\test\deez"
 
$new_path = StringRegExpReplace($string, "c:\users\{?i)[\H]+\", "c:\users\" & $new_user)

[somdcomputerguy 98]

I would use the StringSplit() function to isolate what I wanted to replace. I have several regex tutorials sites bookmarked, but regex is one thing that I haven't gotten myself to sit down and learn yet..

Edited April 30, 2014 by somdcomputerguy

[gcue 8]

gets pretty messy though because the directories and usernames arent known ahead of time

only c:users___

im on the same page with you on stringregexp somd

[somdcomputerguy 98]

I would use the backslash as the delimiter. There's alway going to be drive:users, right? Or maybe you mean that the user's name to be replaced might be in a subdir of users?

[guinness 1,431]

Local $sUserName = "xavier"
Local $sFilePath = "c:\users\qwerty\test\deez"
Local $sNewPath = StringRegExpReplace($sFilePath, "(?i)([A-Z]:\\users)\\[^\\]+", "$1\\" & $sUserName)
ConsoleWrite($sNewPath & @CRLF)

Edited April 30, 2014 by guinness

[gcue 8]

perfect!!!

thank you very much!!!!

[guinness 1,431]

I just edited by removing the non-existent second anchor.

StringSplit() is just messy in situations likes this.

[Unc3nZureD 13]

Well, here's my solution

#include <String.au3>

$new_user = "xavier"
$string = "c:\users\qwerty\test\deez"

$a = _StringBetween($String, "c:\users\", "\")
If IsArray($a) Then
    $b = StringReplace($String, "c:\users\" & $a[0] & "\", "c:\users\" & $new_user & "\")
Else
    $b = "Error"
EndIf

MsgBox(0, "Result:", $b)

[guinness 1,431]

Ah, too much code for such a simple task. I would recommend anyone to spend time and effort on learning the basics of w and d. I am still learning regular expressions everyday.

[mikell 522]

Local $sUserName = "xavier"
Local $sFilePath = "c:\users\qwerty\test\deez"
Local $sNewPath = StringRegExpReplace($sFilePath, '^(?:.*?\K[^\\]+){3}' , $sUserName) 
msgbox(0,"", $sNewPath)

[gcue 8]

that also works beautifully mikell

thanks!!!!