如何替換標簽里面的<br>

Question

<textarea  style='width:620px' rows=10 id=t1>sdffsfsdfsdfsdf<br>dfsdfsdfsdsd</textarea>replace(request.form("t1"),"<br>","")

Answer 1

faint,写反了，不好意思
replace(tmpStr,"<br/>",chr(13))
tmpStr是textarea中的内容

Answer 2

textarea是沒有name和沒有id的，而且可能有多個textarea,所有textarea里面的<br>都要換在空符號,

Answer 3

使用 FOR EACH在全部的表单对象中检索 如果obj.TYPE=TEXTAREA就执行replace这样就不管有没有ID和NAME了 所有的TEXTAREA对象都执行

Answer 4

FOR EACH代碼怎么寫？有人給出下面的正則代碼，但可惜只能換掉一個<br>我要換掉所有<br>
====================================
dim Re,str
str = "sfsfasd<textarea  style='width:620px' rows=10>sdffsfsdfsdfsdf<br>dfsdfsdfsdsd</textarea>"
set Re = new RegExp
Re.IgnoreCase = True
Re.Global = True
Re.Pattern = "(<textarea)(.*)(<br>)(.*)(</textarea>)"
str = Re.Replace(str,"$1$2$4$5")
response.write str

Answer 5

<SCRIPT LANGUAGE="JavaScript">
<!--
var str = "sfs<br>fa<br>sd<textarea style='width:620px' "+
          "rows=10>sdffsfsdfsdfsdf<br>dfsdfsdfsdsd</textarea>"+
          "<textarea>ssss<br>bbbbbb<br>aaaa</textarea>";
str = str.replace(/(<textarea.*?<\/textarea>)/gi, function($1){return $1.replace(/<br>/gi, "")});alert(str);
//-->
</SCRIPT>

Answer 6

就是meizz(梅花雪 封闭开发中)這樣的，但我想要vbscript的，不知道怎么換回vbscript

Answer 7

我仿佛看到勝利了，誰幫我換成vbscript的？

Answer 8

真搞不懂, 这样的写法 global 竟然不起作用, 只能替换一个? 极度郁闷<SCRIPT LANGUAGE="VBScript">
dim str, re, reg, match, matchs
str = "sfs<br>fa<br>sd< textarea style='width:620px' "&_
      "rows=10>sdffsfsdfsdfsdf<br>dfsdfsdfsdsd</textarea>"&_
      "<textarea>ssss<br>bbbbbb<br>aaaa</textarea>"
set Re  = new RegExp
set Reg = new RegExp
Re.Pattern  = "<textarea.*?</textarea>"
Reg.Pattern = "<br>"
Re.Global   = Reg.Global = True
Re.IgnoreCase = Reg.IgnoreCase = True
Set Matches = Re.Execute(str)
For Each Match in Matches
  str = Replace(str, Match, Reg.Replace(Match, ""))
Nextmsgbox str
</SCRIPT>

Answer 9

沒替換成功啊,好象只換了一個<br>

Answer 10

就这样不就行<SCRIPT LANGUAGE="VBScript">
dim str, re, reg, match, matchs
str = "sfs<br>fa<br>sd< textarea style='width:620px' "&_
      "rows=10>sdffsfsdfsdfsdf<br>dfsdfsdfsdsd</textarea>"&_
      "<textarea>ssss<br>bbbbbb<br>aaaa</textarea>"
str = replace(str,"<br>","")
msgbox str
</SCRIPT>

Answer 11

樓上的，textarea外面的是不替換的

Answer 12

那直接读textarea 的value不是行了。

Answer 13

如果真的是字符串，
Re.Global   = Reg.Global = True
=============>分开写
Re.Global = True
Reg.Global = True<SCRIPT LANGUAGE="VBScript">
dim str, re, reg, match, matchs
str = "sfs<br>fa<br>sd<textarea style='width:620px' "&_
      "rows=10>sdffsfsdfsdfsdf<br>dfsdfsdfsdsd</textarea>adsfasdf<br>adsfasdf"&_
      "<textarea>ssss<br>bbbbbb<br>aaaa</textarea>"
set Re  = new RegExp
set Reg = new RegExp
Re.Pattern  = "<textarea.*?</textarea>"
Reg.Pattern = "<br>"
Re.Global   = True
Reg.Global = True
Re.IgnoreCase = Reg.IgnoreCase = True
Set Matches = Re.Execute(str)
For Each Match in Matches
  str = Replace(str, Match, Reg.Replace(Match, ""))
Nextmsgbox str
</SCRIPT>