■■能不能限制REPLACE的替换范围???

[ok1996]

有一个字符串有100个字母,我要将第30--70字母的"H"换成"Y"
而不影响其余范围的字母,怎么做?

[ok1996]

我这样问大家明白我的意思吗?

[KimSoft]

Function ReplacePlus(Expression, Find, ReplaceWith, Start, Length)
Expression = Expression & ""
ReplacePlus = Expression
If Not IsNumeric(Start) Or Start < 1 Then Exit Function
If Not IsNumeric(Length) Or Length < 0 Then Exit Function

Find = Find & ""
ReplaceWith = ReplaceWith & ""

Dim ExpressionLength : ExpressionLength = Len(Expression)
If Start > ExpressionLength Then Start = ExpressionLength
If Length > ExpressionLength - Start Then Length = ExpressionLength - Start

ReplacePlus = Left(Expression, Start - 1) & _
Replace(Mid(Expression,Start, Length) , Find, ReplaceWith) & _
Right(Expression, ExpressionLength - (Start + Length))
End Function

Response.Write(ReplacePlus("1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890","1", "x", 30, 40))

试试这个，写得不好，可能会有BUG（字符位置的位置+1 -1问题），望指正。
注意：最后一个参数是length，如果取30到70，应该写成 30, 40的形式，当然你也可以变通一下

[starytx]

如果你的字符串长度刚好是100，用下边的试试
str=left(str,29)+replace(mid(str,30,41),"H","Y")+right(str,30)

[jspadmin]

呵呵，楼上已经写出来了。思路就是先截取30-70个字符子串，然后进行替换，替换完后，再将0-29的字符子串+替换后的30-70字符子串+71-100字符子串组合起来，就完事了。

[nora2008]

看来楼主是不是想做小偷程序，我把一个小偷程序的代码发到你的邮箱了，给分

[md5e]

strl=left(str,30)
strr=right(str,len(str)-70)
strm=REPLACE（mid(str,30,70-30)
str=strl+strm+strr

[md5e]

strm=REPLACE(mid(str,30,70-30),"h","y")
把上面的换一下

[sky0120]

UP