正则表达式提取网络数据(ACCESS 2003, VBA)

哪位大神帮帮忙,我的开发环境是ACCESS 2003 里的VBA,我要提取的是<td>和</td>之间的文本,如:
达安基因
何蕴韶
购买
3988797
40.54
161705830.380
12963591
。。。。
董事长
<tr>
<td class="e2"><a href="http://q.stock.sohu.com/cn/002030/index.shtml" target=_blank >002030</a></td>
<td style="text-align:center;" class="e3"><a href="http://q.stock.sohu.com/cn/002030/index.shtml" target=_blank >达安基因</a></td>
<td style="text-align: center;" class="e4">何蕴韶</td>
<td style="text-align: center;" class="e9"><span style="color:#FF0000;">购买</span></td>
<td style="text-align:right;" class="e5"><span style="color:#FF0000;">3988797</span></td>
<td style="text-align:right;" class="e6">40.54</td>
<td style="text-align:right;" class="e7">161705830.380</td>
<td style="text-align:right;" class="e8">12963591</td>
<td style="text-align: center;" class="e10">大宗交易</td>
<td style="text-align:right;" class="e11">2015-11-02</td>
<td style="text-align: center;" class="e12">A股</td>
<td style="text-align: center;" class="e13">本人</td>
<td style="text-align: center;" class="e14">董事长</td>
</tr>

第1个回答  2015-11-04
<td>((?:(?!<\/td>)[\s\S])*)<\/td>

$1

vba提取网页数据
vba所需要提取的网页数据真实数据应该在script里面,可以将源代码用split、instr等函数来提取,或者用正则表达式来提取,也可以用JS代码处理。

如何在VBA中使用正则表达式检测数据
正则可以给你,VBA码么...简单的还行 Dim re set re = new regexp re.Pattern = "^\\d{4}-\\d{2}-PH1-[24-7]-\\d{4}-\\d{3}-\\d{3}[^.]+\\.tif$”

Excel VBA 编程开发应用系列 (八)—正则表达式
在Excel VBA编程开发中,第8部分深入探讨正则表达式的应用。正则表达式是一种强大的字符串处理工具,用于模式匹配、查找和替换,尤其在处理文本数据时展现出其灵活性和效率。VBA编程中,通过定义正则对象来利用其功能,有多种方式实现。正则表达式由普通字符(如字母、数字和标点)、非打印字符(如转义序列)...

vba中用正则表达式提取数值给数组,求表达式?
VBA Code(假设在 Excel 的活动工作表的 A1 单元格中存储着上述 Json 字符串):Option ExplicitSub ExtractJsonData() Dim objRegExp As Object Dim objMatch As Object Dim objMatches As Object Set objRegExp = CreateObject("VBScript.RegExp") With objRegExp .IgnoreCase =...

如何用excel中的VBA的正则表达式提取出字符串?
1、首先打开需要编辑的Excel表格,进入到编辑页面中。2、然后点击打开主菜单栏开发工具中的“Visual Basic”选项。3、还可以鼠标右键单击工作标签,选择打开“查看代码”。4、然后在弹出来的窗口中点击输入:Function REFIND(str, re)Dim Reg As New RegExp With Reg .Global = True .Pattern = re S...

excel中如何使用正则表达式函数提取或替换内容
word中自带正则表达式,不过Excel中却没有内置。可以在VBA中定义一个正则表达式函数,然后Excel中就可以调用了。VBA代码如下(VBA高亮无效,凑合着看):1.Function ExStr(Str As String, Parttern As String, ActionID As Integer, Optional RepStr As String = "")2. Dim regex As Object 3. Set...

vba用正则表达式提取指定字符后面的数字,怎么写代码
批发(\\d+),括号里捕捉的就是你要的数据

怎么用VBA或网络爬虫程序抓取网站数据
VBA网抓常用方法 1、xmlhttp\/winhttp法:用xmlhttp\/winhttp模拟向服务器发送请求,接收服务器返回的数据。优点:效率高,基本无兼容性问题。缺点:需要借助如fiddler的工具来模拟http请求。2、IE\/webbrowser法:创建IE控件或webbrowser控件,结合htmlfile对象的方法和属性,模拟浏览器操作,获取浏览器页面的...

VBA提取某个汉字后的数字的正则表达式怎样写
(?:刷)\\d+ 上面就是你要的正则表达式,如果还要匹配小数点,正则表达式如下:(?:刷)\\d+\\.*\\d

Java的正则表达式"^([\\\\d\\\\.\\\\s]+)\\\\s*(.+)\\\\s+[\\\\d\\\\s]+$" 对应如果...
在VBA里面使用正则表达式,需要调用vbscript.regexp对象,正则表达式基本上差不多。如你上面的正则表达式如果在VBA里面使用的话:Dim regEx As Object Set regEx = CreateObject("vbscript.regexp")With regEx .Global = True .IgnoreCase = True .Pattern = "^([\\\\d\\\\.\\\\s]+)\\\\s*(.+)\\\\s+[...

相似回答