设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 992|回复: 8
打印 上一主题 下一主题

[查询] <p uy>这样的如何替换为<p>

[复制链接]
跳转到指定楼层
1#
发表于 2008-9-21 23:07:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
<p style="mso-bidi-font-weight: normal">字段里有很多这样的在大于小于符号里的东西,现在要替换为<p> 我在查找替换对话框里查找<*> 星号是通配符吧,意思就是查找从小于符号开始到大于符号结束的所有字符然后替换为<p>  但问题是电脑总是从小于符号一直查找到了最后一个大于符号,我只要查找到小于符号后的第一个大于符号就行了,不知道正确的做法改如何做。不知道说明白了没有,希望是在access里做
举例说就是把
<p style="mso-bidi-font-weight: normal">uuuuu</o:p>hhhhh<p style="mso-bidi-font-weight: normal">哈哈哈哈哈
替换为
<p>uuuuu<p>hhhhh<p>哈哈哈哈哈
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2008-9-21 23:24:23 | 只看该作者
不知道你在说什么
3#
发表于 2008-9-22 06:49:27 | 只看该作者
用正则表达式
4#
 楼主| 发表于 2008-9-22 18:31:33 | 只看该作者
那位大哥能说具体点怎么操作吗,本人很菜啊
5#
发表于 2008-9-23 00:38:49 | 只看该作者
这个函数应该能解决你的问题。

'引用Microsoft VBScript Regular Expressions 5.5
Public Function HtmlReplace(htmlString As String, replaceString As String) As String
Dim re As New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = "<[^ >]*>"
    HtmlReplace = re.replace(htmlString, replaceString)
    Set re = Nothing
End Function


使用示例

Debug.Print HtmlReplace("<p style='mso-bidi-font-weight: normal'>", "<p>")




[ 本帖最后由 fan0217 于 2008-9-23 21:51 编辑 ]
6#
 楼主| 发表于 2008-9-23 18:13:33 | 只看该作者

把附件放上来大家看看吧

具体的看附件里面

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
7#
 楼主| 发表于 2008-9-23 18:46:42 | 只看该作者
<wer>hhh<verger>gggg<2asd3d23ewd>ppp<23r23dwed>
也许是我没有说清楚,数据应该是这个样子就是大于小于符号组成,里面可能是任意内容,要替换为
<p>hhh<p>gggg<p>ppp<p>
8#
发表于 2008-9-23 21:43:52 | 只看该作者
正则表达式修改为:"<[^ >]*>"
9#
发表于 2008-9-23 21:54:39 | 只看该作者
这样:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 18:17 , Processed in 0.108241 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表