首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 高手來看看,散分,VB 正則表達式 [已结贴,结贴人:xiamaoting]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • xiamaoting
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    • 揭帖率：
    发表于：2008-07-24 09:45:43 楼主
    兩個問題 :
    1,當我使用Set regEx = New RegExp ' 建立正则表达式時候,錯誤提示:使用者自定型態未定義
    2,我要提取地址欄中的文件名且不要後墬,你有甚麼好的思路嗎?
    80  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fvflove
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2
    发表于：2008-07-24 09:53:401楼 得分:0
    要引用库文件.
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fvflove
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 2
    发表于：2008-07-24 09:55:252楼 得分:10
    库文件的名称叫:
    mircosoft vbScript Regular Expressions 5.5(或者1.0后面是版本号)
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • vansoft
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-07-24 09:56:593楼 得分:5
    引用
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • xiamaoting
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-07-24 09:57:054楼 得分:0
    寫清楚,用甚麼庫文件,OK?
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • happy_sea
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 3

      2
    发表于：2008-07-24 09:59:505楼 得分:65
    先添加对Microsoft VBScript Regular Expressions x.x的引用。
    不过如果只是要实现第2个问题，直接分析字符串就行了，不必用正则表达式。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • xiamaoting
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-07-24 10:16:376楼 得分:0
    添加了引用是能用regex了,但當用execute方法時又報錯,(引數的個數錯誤或使用了不正確的屬性)請問是甚麼問題,另外,請問happy_sea,你說的分析字串如何做,謝謝
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • happy_sea
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 3

      2
    发表于：2008-07-24 10:43:447楼 得分:0
    如果你说的是网页地址，比如这个帖子的url
    http://topic.csdn.net/u/20080724/09/bdc81309-4a43-4197-89cc-1d21c6a134da.html
    那么可以用下面的代码：
    VB code
    Private Sub Command1_Click()
    Dim strUrl As String, strResult As String
    Dim nStart As Integer, nEnd As Integer
    strUrl = "http://topic.csdn.net/u/20080724/09/bdc81309-4a43-4197-89cc-1d21c6a134da.html"
    nStart = InStrRev(strUrl, "/") + 1
    nEnd = InStrRev(strUrl, ".")
    strResult = Mid(strUrl, nStart, nEnd - nStart)
    Debug.Print strResult
End Sub

    我是为了让你看得更明白才写这么复杂，其实只要下面一句就足够了：
    VB code
    Debug.Print Mid(strUrl, InStrRev(strUrl, "/") + 1, InStrRev(strUrl, ".") - InStrRev(strUrl, "/") - 1)

    如果不是网址，其他字符串也可类似处理。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • xiamaoting
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-07-24 11:28:358楼 得分:0
    instr只返回第一次找到它的位置,但可能有許多這樣的字符,我要的是最後一個的位置.
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • happy_sea
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 3

      2
    发表于：2008-07-24 12:13:119楼 得分:0
    楼主仔细看看是instrrev而不是instr，instrrev是从后面往前匹配的，你把我的代码测试一下就知道了。
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • zhufenghappy
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-07-24 12:15:3610楼 得分:0
    你的regEx要先定义且对象RegExp 存在阿
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved