remove all instances of string from comma seperated value

[gcue]

hello world!

i am trying to remove all instances of $name from $string - any help is appreciated!

#include <Array.au3>
$msg_normal = 262144


$name = "gsh"
$string = "gsh,as,43,gsh,adf,gsh"

$final = StringRegExpReplace($string, "(.*)," & $name & ",(.*)", "$1")

debug($final)

Func Debug($variable1 = "", $variable2 = "", $variable3 = "")
;~  #include <array.au3>
;~  $msg_normal = 0

If IsArray($variable1) Then
_ArrayDisplay($variable1)
Else
If $variable2 <> "" Then
$variable1 &= @CRLF & $variable2
EndIf

If $variable3 <> "" Then
$variable1 &= @CRLF & $variable3
EndIf

ClipPut($variable1)
MsgBox($msg_normal, "Debug", $variable1)
EndIf
EndFunc   ;==>Debug

 

[JLogan3o13]

StringReplace seems to be easy enough for such a simple task.

$name = "gsh"
$string = "gsh,as,43,gsh,adf,gsh"

$final = StringReplace($string, $name, "")

MsgBox(0, "", $final)

[TheSaint]

If it is only one string, I would stick to using Array functions, or use StringReplace for that string and for any multiple commas plus trailing and leading commas. Or you could rebuild the main string, after using StringSplit.

[gcue]

 

StringReplace seems to be easy enough for such a simple task.

$name = "gsh"
$string = "gsh,as,43,gsh,adf,gsh"

$final = StringReplace($string, $name, "")

MsgBox(0, "", $final)

yea but it leaves behind the commas =/

[TheSaint]

Or following what JLogan.... wrote, just do StringReplace twice ... once with the $name that includes a leading comma, and then again with the $name having a trailing comma. If you do it twice, you don't miss any end of string instances.

[JLogan3o13]

Soooo, change the $name to include the comma?

[BrewManNH]

Try this.

$final = StringRegExpReplace($string, $name & ",|," & $name, "$1")

[gcue]

If it is only one string, I would stick to using Array functions, or use StringReplace for that string and for any multiple commas plus trailing and leading commas. Or you could rebuild the main string, after using StringSplit.

yea that was my original approach but after 7 or 8 lines into it i figured there has to be a better way - stringregexp! 

[gcue]

Or following what JLogan.... wrote, just do StringReplace twice ... once with the $name that includes a leading comma, and then again with the $name having a trailing comma. If you do it twice, you don't miss any end of string instances.

yea i thought of that too but theres a bug with that as shown in the case below ("kgsh" would be reduced to "k")

$name = "gsh"

$string = "gsh,asdk,eas,kgsh,ake,gsh"

[gcue]

 

Try this.

$final = StringRegExpReplace($string, $name & ",|," & $name, "$1")

brilliant bewman!  thank you VERY much!!!

thank all of you for your help - happy holidays to you and your families

[kylomas]

That will work as long as the target string contains strings other than the replacement string...

$name = "gsh"
;$string = "gsh,as,43,gsh,adf,gsh,gsh"
$string = "gsh,gsh"

$final = StringRegExpReplace($string, $name & ",|," & $name, "$1")

MsgBox(0, "", $final)

[BrewManNH]

Try this then.

$name = "gsh"
;~ $string = "gsh,as,43,gsh,adf,gsh,gsh"
$string = "gsh,gsh"
$final = StringRegExpReplace($string, $name & ",|," & $name & "|" & $name, "")
MsgBox(0, "", $final)

[jguinch]

If $name contains some special regex caracters ( "[", ".", "+", "$" ...), you can use "Q" & $name & "E"
Here is mine :

$final = StringRegExpReplace($string, "(,)?\Q" & $name & "\E(?(1)|(?:,|$))", "")

[kylomas]

jguinch,

Try this...

$name = "gsh"
$string = "gsh,as,43,abgsh,adf,gsh,gsh"
;$string = "gsh,gsh"
$final = StringRegExpReplace($string, "(,)?\Q" & $name & "\E(?(1)|(?:,|$))", "")
MsgBox(0, "", $final)

[kylomas]

I don't understand why this pattern does NOT work...

$name = "gsh"
$string = "gsh,as,43,abgsh,adf,gsh,gsh"
;$string = "gsh,gsh"
$final = StringRegExpReplace($string, "(^|,)\Q" & $name & "\E(?:,|$)", "")
MsgBox(0, "", $final)

[kylomas]

This one seems to work...

$name = "gsh"
;$string = "gsh,as,43,abgsh,adf,gsh,gsh"
$string = "gsh,gsh"
$final = StringRegExpReplace($string, "(,)?\b\Q" & $name & "\E\b(,)?", "")
MsgBox(0, "", $final)

[gcue]

what if the name/string look like this?

$name = "gsh: kae,as"


$string = "gsh: kae,as|du2: ad,43|gsh: kae,as|gshy: 3d3,adf|gsh: kae,as"

i tried using your examples by rreplacing the comma with || but i could not get it to work

[iamtheky]

what is the desired result of post #17?

all seperators removed?  just commas removed?  just pipes that are only preceded by the name specified?

Edited December 30, 2014 by boththose

[gcue]

$name = "gsh: kae,as"

$string = "gsh: kae,as|du2: ad,43|gsh: kae,as|gshy: 3d3,adf|gsh: kae,as"

 

desired output (removing all instances of $name from $string)

du2: ad,43|gshy: 3d3,adf

thanks in advance

[jguinch]

If the separator is not the same, you should change it in the regex, or use a variable for this.

; $name = "gsh"
; $string = "gsh,as,43,abgsh,adf,gsh,gsh"
; $separator = ","

$name = "gsh: kae,as"
$string = "gsh: kae,as|du2: ad,43|gsh: kae,as|gshy: 3d3,adf|gsh: kae,as"
$separator = "|"

$final = StringRegExpReplace($string, "(?:(\Q" & $separator & "\E)(\Q" & $name & "\E)(?=(?1)|\Z))|(?:\A(?2)(?1)|\Z)", "")
MsgBox(0, "", $final)

Edited December 30, 2014 by jguinch