＃版主们请出手，请教字库串替换问题几问？＃

eio

1问：例如有象网页那样的特征字库
<title>ACCESS中国论坛--发布新帖子</title>
或者：
<title>电子扩音机论坛--发布新帖子</title>
如何将这个由<title>标记，</title>标记结束的文本替换为制定的内容？当然文字的长度是不定的。

2问：防上例，将</title>前的或者连同</title>一起的文本一律去掉，不管多长。

3问：将文本的制定行替换掉，例如将制定的第2行去掉。
电子
电器
电脑

[em08]谢谢！[em08]

zhuyiwen

给你一个提示, 你可以采用正则表达式对象来进行处理.

请参见:

http://bcd.accxp.com/index.asp?Main=6&ArtID=5

zhuyiwen

使用正则表达式的例程为《动网论坛5.0(6.0)》的UBB处理代码,你去动网下载一份吧,它能解决你所提出的问题 [em24]

eio

论坛的替换我知道是很好的，只是有些不明白，我希望能快些学好，以便学以致用！谢谢楼上那位大哥！

eio

关于zhuyiwen的
Public Function regular(str)
    Dim re As New RegExp
   
    re.IgnoreCase = True
    re.Global = True
   
    re.Pattern = ":em(.[^\[]*):"
    regular = re.Replace(str, "<img src=pic\em$1.gif border=0 align=middle>")
End Function



? regular(":em26:")
返回:
<img src=pic\em26.gif border=0 align=middle>
－－－－－
“Dim re As New RegExp”
中出现“变量未定义”

zhuyiwen

说明你只看代码，而不看正文，可惜！

=================================================
正    文：

通过引用 Microdoft VBScript Regular Expressions 5.5 或者 Microdoft VBScript Regular Expressions 1.0, 则可以使用 VBScript 的正则表达式, 实现字符串匹配和替换。
=================================================

eio

知道错啦！zhuyiwen大人大量哦……

eio

这种方法和一般的替换方法差不多，但这种方法还是不能完成需要的功能（见1楼问题），而且关于一些文本，如：
“电子  电器  电脑”
怎样才能换成在EXECL里面能分段（不同字段）显示的呢？
很多的不明白，还是请各位高手多多指点a 111

eio

Haishizhegewenti!

eio

顶