Question

I have an function in ASP VB. and I need to replace the exact word in it. For example I have an string like “wool|silk/wool|silk”. I want to replace just silk and not silk/wool.

' "|" is a devider
cur_val = "wool|silk/wool|silk"
cur_val_spl = Split("wool|silk/wool|silk", "|")
key_val = "silk"
For Each i In cur_val_spl
    If i = key_val Then
        cur_val = Replace(cur_val, ("|" & i), "")
        cur_val = Replace(cur_val, i, "")
    End If
Next
Response.Write(cur_val)

In this case my result would be “wool/wool” but what I really want is this “wool|silk/wool”.
I really appreciate any help.

Answer 1

You should build a new string as you go

' "|" is a devider
cur_val = "wool|silk/wool|silk"
cur_val_spl = Split("wool|silk/wool|silk", "|")
result = ""
key_val = "silk"

addPipe = false
For Each i In cur_val_spl
    If i <> key_val Then
        if addPipe then
            result = result & "|"
        else 
           addPipe = true
        end if
        result = result & i
    End If
Next

Response.Write(result)