Question

asp替换字符串某字符的值

有一字符串值为：【1$11广东$1 而$下次v$啊斯蒂芬 阿萨德$收到$斯芬】，格式：值$值$值 值$值$值 值$值$值 值$值$值......，“值$值$值”之间用空格隔开。现在需要将字符串中某一值更改，如将“下次”改为“AAA”，再返回新值的字符串【1$11广东$1 而$AAAv$啊斯蒂芬 阿萨德$收到$斯芬】，不能用replace函数，因为“下次”可能在字符串中重复出现。麻烦高手帮忙写段代码，谢谢！
已解决，代码如下：
check=trim(request.form("check"))
info=trim(request.form("info"))
Week=request.form("Week")
Clas=request.form("Clas")
StrA=rs("ctype")
ArrA=split(StrA," ")
for i=0 to ubound(ArrA)
if i=Week-1 then
ArrAA=split(ArrA(i),"$")
for j=0 to ubound(ArrAA)
if j=Clas-1 then
NewArrB=NewArrB&" "&check
else
NewArrB=NewArrB&" "&ArrAA(j)
end if
next
NewArrB=trim(NewArrB)
NewArrB=trim(replace(NewArrB," ","$"))
NewArrA=NewArrA&" "&NewArrB
else
NewArrA=NewArrA&" "&ArrA(i)
end if
next
NewArr=trim(NewArrA)
rs("ctype")=NewArr

Answer 1

"现在需要将字符串中某一值更改"
那么这个“某一值”是怎么定的？不把逻辑要求说出来怎么写代码？

Answer 2

Dim Str : Str = "1$11广东$1 而$下次$啊斯蒂芬 阿萨德$收到$斯芬"
Response.Write getNewStr(Str,"下次","AAA")
'getNewStr(字符串，要查找的字符串，要替换的字符串)
Function getNewStr(Str,RegStr,RegNewStr)
StrArray = Split(Str,"$")
For i = LBound(StrArray) To UBound(StrArray)
Dim NewStr
If StrArray(i)=RegStr Then
NewStr = NewStr & RegNewStr
Else
NewStr = NewStr & StrArray(i)
End If
Next
getNEwStr = NewStr
End Function