新手请教一个循环替换问题

yongsky 2009-07-26 01:30:05

textarea = request.form("textarea")
dim BFchar(10),LTchar(10)
BFchar(0) = "aa0"
BFchar(1) = "aa1"
...
BFchar(10) = "aa10"

LTchar(0) = "bb0"
LTchar(1) = "bb1"
...
LTchar(10) = "bb10"

for i = 0 to ubound(BFchar)
if instr(textarea,BFchar(i)) > 0 then
textarea = replace(textarea,BFchar(i),LTchar(i))
response.write textarea
end if
next
...
'如果request.from("textarea")= "aa0aa1aa2"的话,经上面代码替换后会输出:
'bb0aa1aa2bb0bb1aa2bb0bb1bb2 现在我只想要替换后bb0bb1bb2的结果,要如何改??谢谢!!
...全文
67 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
yongsky 2009-07-27
  • 打赏
  • 举报
回复
首先,谢谢你的回贴,不过用你的方法还是不能解决问题!!
toury 2009-07-26
  • 打赏
  • 举报
回复
textarea = request.form("textarea")
dim BFchar(10),LTchar(10)
for i=o to ubound(BFchar)
BFchar(i) = "aa"&i
LTchar(i) = "bb"&i
next
for i = 0 to ubound(BFchar)
if instr(textarea,BFchar(i)) > 0 then
textarea = replace(textarea,BFchar(i),LTchar(i))
response.write textarea
end if
next
yongsky 2009-07-26
  • 打赏
  • 举报
回复
数据没错怎么就得不到想要的???up
toury 2009-07-26
  • 打赏
  • 举报
回复
如果你上例中的数据是真实的,那按照你那样的结果是对的,替换后的结果就是bb0bb1bb2。
不过实际上如果数据很复杂,那就容易出问题

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧