请问:用vbs,利用正则表达式,怎样将html格式的文本中的文字加亮显示? 谢谢

2006-08-23 06:56:07 190 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

软考高级系统架构设计师备考：精讲真题模拟笔记闭环复习法软件架构设计是构建高可用、高扩展系统的核心能力，而软考系统架构设计师认证正是检验这一能力的权威标准之一。该科目涵盖综合知识、案例分析与论文三部分，要求考生既理解架构风格、质量属性、设计模式等基础理论，又能结合工程实践完成方案设计与表达。备考过程中，仅靠观看视频或机械刷题往往难以突破，关键在于建立输入、输出、复盘与模拟的闭环：精讲视频用于搭建知识框架，分类真题用于定位薄弱环节，模拟题与机考练习用于把控时间节奏，笔记则将零散知识转化为答题与写作素材。这一方法论不仅适用于软考应试，也契合日常技术学习与项目复盘逻辑阅读详情

如题:

例如:有下面的HTML文本:
大家爽,才是真的爽
<img src="http://www.csdn.net/images/homeimage/csdn.gif">!

我想加亮显示"大家爽"这个文本,
因为这几个字夹杂有html标志,
我怎样才能在不破坏原来的html效果的前提下,加亮显示这个"大家爽"这几个文本呢?

就像这样的效果:
大家爽,才是真的爽
<img src="http://www.csdn.net/images/homeimage/csdn.gif">!

谢谢!

...全文

软考高级系统架构设计师备考指南：精讲视频+真题+论文全攻略系统架构设计是软件工程领域的核心能力，它关注如何将复杂业务需求转化为稳定、可扩展、可维护的技术方案。对于希望向架构师角色进阶或评职称的开发者来说，掌握架构设计方法论不仅是职业发展的关键，也是应对高并发、分布式、微服务等复杂场景的必备技能。系统架构设计师考试正是对这一能力的权威认证，考试涵盖综合知识、案例分析和论文三科，分别考察知识广度、设计思路与工程表达能力。备考这类考试，不能只靠零散刷题，而需要一套结构化的学习路径：通过精讲视频建立知识框架，利用历年真题定位高频考点，结合项目素材打磨论文写作。从零基础到从阅读详情

yshawxp

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

yshawxp 2006-08-25

打赏
举报

狼兄，謝謝你的回答！
不過你的函數還想請你幫我修改一下。
-----------------------------------
你的函數是：RegExpTest(strng)，他只有一個參數阿，它只能把整個字符串strng加亮，

我想要的效果是：RegExpTest(html， key)，應該是2個參數的，
在html裏面，搜索key，找到key之後，
在不破壞html文本的前提下，加亮key。

如題，

html：
大家爽,才是真的爽
<img src="http://www.csdn.net/images/homeimage/csdn.gif">!
------------------------------------------------
key：大家爽
------------------------------------------------
結果：
大家爽,才是真的爽
<img src="http://www.csdn.net/images/homeimage/csdn.gif">!

請你幫幫我，老大催我了！
謝謝！

笨笨兔兔兔兔兔 2006-08-23

打赏
举报

asp啊,那还真不好办了....你咋知道大家爽这几个字的??

笨笨兔兔兔兔兔 2006-08-23

打赏
举报

document.execCommand

对当前的selection进行一下改变

飞驰的青蛙 2006-08-23

打赏
举报

你研究一下文本编辑器，如：ewebeditor。当选中文本后，是怎样改变文本的颜色，大小等的。

jspadmin 2006-08-23

打赏
举报

replace替换？
如果只是加这一句可以这么做，批量的话，就不太好弄了

超级大笨狼 2006-08-23

打赏
举报

稍微修改了一下：

<textArea id="blockORG">大家爽,才是真的爽
<img src="http://www.csdn.net/images/homeimage/csdn.gif">!</textArea>

<SCRIPT LANGUAGE="vbScript">

alert(RegExpTest( blockORG.value))

Function RegExpTest(strng)
Dim regEx,patrn, Match, Matches,pos,i ' 创建变量。
Set regEx = New RegExp ' 创建正则表达式。
patrn="<[^<>]*>"
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全程匹配。
strng="" & strng & ""
Set Matches = regEx.Execute(strng) ' 执行搜索。
pos=0
i=0

Dim d :Set d = CreateObject("Scripting.Dictionary")
For Each Match in Matches ' 循环遍历Matches集合。

if pos<>Match.FirstIndex then
i=i+1
d.add i ,"" & mid(strng,pos +1,Match.FirstIndex-pos) & ""
end if
i=i+1
d.add i,mid( strng , Match.FirstIndex+1 , len(Match.Value))
pos=Match.FirstIndex + len(Match.Value)
Next
for each str in d.items()
RetStr = RetStr & str
next
RegExpTest = RetStr
End Function

</SCRIPT>

超级大笨狼 2006-08-23

打赏
举报

<textArea id="blockORG">大家爽,才是真的爽
<img src="http://www.csdn.net/images/homeimage/csdn.gif">!</textArea>
<SCRIPT LANGUAGE="vbScript">
alert(RegExpTest("<[^<>]*>",blockORG.value))
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 创建变量。
Set regEx = New RegExp ' 创建正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全程匹配。
strng="" & strng & ""
Set Matches = regEx.Execute(strng) ' 执行搜索。
pos=0
i=0

Dim d :Set d = CreateObject("Scripting.Dictionary")
For Each Match in Matches ' 循环遍历Matches集合。

if pos<>Match.FirstIndex then
i=i+1
d.add i ,"" & mid(strng,pos +1,Match.FirstIndex-pos) & ""
end if
i=i+1
d.add i,mid( strng , Match.FirstIndex+1 , len(Match.Value))
pos=Match.FirstIndex + len(Match.Value)
Next
for each str in d.items()
RetStr = RetStr & str
next
RegExpTest = RetStr
End Function

</SCRIPT>

结果：

---------------------------
Microsoft Internet Explorer
---------------------------
大家爽,才是真的爽

<img src="http://www.csdn.net/images/homeimage/csdn.gif">!
---------------------------
确定
---------------------------

笨笨兔兔兔兔兔 2006-08-23

打赏
举报

js你直接弄文本编辑器不就得了??

请问:用vbs,利用正则表达式,怎样将html格式的文本中的文字加亮显示? 谢谢

相关推荐