Replacing multiple strings at once?

[motionman95 0]

It it possible to do this...?

$string = "ab12c32abc11234566"
Dim $s[3] = ["a", "b", "c"]
Dim $r[3] = ["1", "2", "3"]

StringReplace($string, $s, $r)

(I know that "StringReplace" cannot do this)

I remember doing something like this a while back with another function, but I can't seem to find it. Any tips?

[Affe 1]

It it possible to do this...?

$string = "ab12c32abc11234566"
Dim $s[3] = ["a", "b", "c"]
Dim $r[3] = ["1", "2", "3"]

StringReplace($string, $s, $r)

(I know that "StringReplace" cannot do this)

I remember doing something like this a while back with another function, but I can't seem to find it. Any tips?

I don't know about a specific function that can do this, but you could write your own up:

$string = "ab12c32abc11234566"
Dim $s[3] = ["a", "b", "c"]
Dim $r[3] = ["1", "2", "3"]

For $x = 0 To 2
  $string = StringReplace($string, $s[$x], $r[$x])
Next

[motionman95 0]

For anyone who is interested...

Func _StringReplace($a, $b, $c)
    $i = 0
    For $x In $b
        $a = StringReplace($a, $x, $c[$i])
        $i += 1
    Next
    Return $a
EndFunc

Edited May 30, 2010 by motionman95

[GEOSoft 64]

It it possible to do this...?

$string = "ab12c32abc11234566"
Dim $s[3] = ["a", "b", "c"]
Dim $r[3] = ["1", "2", "3"]

StringReplace($string, $s, $r)

(I know that "StringReplace" cannot do this)

I remember doing something like this a while back with another function, but I can't seem to find it. Any tips?

Put your StringReplace in a loop

For $i = 0 To Ubound($s) -1
    $string = StringReplace($string, $s[$i], $r[$i])
Next

Edited May 30, 2010 by GEOSoft