Hi all,
I'm using VBA to do work with data I'm pulling from ASP forms from our intranet site.
I'd like to build a 2d array from the html table that is returned. I'm wondering what the best way is to do that.
Here is the procedure I created: (myurl and method arguments should be self explanatory)
The responseText looks like this, and I want to pull "drawing" and "rev" parameters from each result and pass them to a 2D array.
I'm wondering what the best way to do this would be.
I'm just not very familiar with manipulating html data.
I'm using VBA to do work with data I'm pulling from ASP forms from our intranet site.
I'd like to build a 2d array from the html table that is returned. I'm wondering what the best way is to do that.
Here is the procedure I created: (myurl and method arguments should be self explanatory)
Code:
Private Sub httpOpen(ByVal myurl As String, Optional ByVal Method As String)
If Not Len(Method) > 0 Then Method = "GET" Else Method = UCase(Method)
Dim http As Object
Dim strX As String
Set http = CreateObject("MSXML2.ServerXMLHTTP")
http.open Method, myurl, False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send (myurl)
strX = http.responseText
Debug.Print strX
TestParse strX, strFiltDrawNum
End Sub
The responseText looks like this, and I want to pull "drawing" and "rev" parameters from each result and pass them to a 2D array.
I'm wondering what the best way to do this would be.
I'm just not very familiar with manipulating html data.
HTML:
<html>
<head>
<title>Freight Drawing List</title>
</head>
<body text="#000000" link="#F20000" vlink="#A70101" alink="#C1A100">
<p> </p>
<font size="+2"><b>
<p>Drawing List - Query Results</b></font>.</p>
<p>(Status = All) </p>
<table border="1" cellpadding="5" cellspacing="0">
<tr>
<th>Image</th>
<th>Size</th>
<th>Drawing<br><font face="ARIAL" size=-3>click link for detail</font></th>
<th>Type</th>
<th>Rev</th>
<th>Sheet No.</th>
<th>Status</th>
<th>Charged Out By:</th>
<th>Description</th>
<th>Edit</th>
</tr>
<tr>
<td align="CENTER">
<a href="root/company/8888888C.PDF">Image</a>
</td>
<td align="CENTER">B </td>
<td align="CENTER" nowrap><a href="drawdet.asp?drawnum=8888888&rev=C&pagenum=1&dwg_type=Eng">8888888</a></td>
<td align="CENTER"> </td>
<td align="CENTER">C </td>
<td align="center"><a href="root/company/8888888C.PDF">1</a> </td>
<td align="CENTER">Active </td>
<td align="CENTER"> </td>
<td>LTCS-P12-FLNG300-FRG-MACH</td>
<td align="CENTER"><a href="drawedit.asp?drawnum=8888888&rev=C&pagenum=1&dwg_type=Eng">Edit</a></td>
</tr>
<tr>
<td align="CENTER">
<a href="root/company\8888888B.PDF">Image</a>
</td>
<td align="CENTER">B </td>
<td align="CENTER" nowrap><a href="drawdet.asp?drawnum=8888888&rev=B&pagenum=1&dwg_type=Eng">8888888</a></td>
<td align="CENTER"> </td>
<td align="CENTER">B </td>
<td align="center"><a href="root/company\8888888B.PDF">1</a> </td>
<td align="CENTER">Obsolete </td>
<td align="CENTER"> </td>
<td>LTCS-P12-FLNG300-FRG-MACH</td>
<td align="CENTER"><a href="drawedit.asp?drawnum=8888888&rev=B&pagenum=1&dwg_type=Eng">Edit</a></td>
</tr>
<tr>
<td align="CENTER">
<a href="root/company/8888888A.PDF">Image</a>
</td>
<td align="CENTER">B </td>
<td align="CENTER" nowrap><a href="drawdet.asp?drawnum=8888888&rev=A&pagenum=1&dwg_type=Eng">8888888</a></td>
<td align="CENTER"> </td>
<td align="CENTER">A </td>
<td align="center"><a href="root/company/8888888A.PDF">1</a> </td>
<td align="CENTER">Obsolete </td>
<td align="CENTER"> </td>
<td>LTCS-P12-FLNG300-FRG-MACH</td>
<td align="CENTER"><a href="drawedit.asp?drawnum=8888888&rev=A&pagenum=1&dwg_type=Eng">Edit</a></td>
</tr>
<tr>
<td align="CENTER">
<a href="root/company/8888888.PDF">Image</a>
</td>
<td align="CENTER">B </td>
<td align="CENTER" nowrap><a href="drawdet.asp?drawnum=8888888&rev=-&pagenum=1&dwg_type=Eng">8888888</a></td>
<td align="CENTER"> </td>
<td align="CENTER">- </td>
<td align="center"><a href="root/company/8888888.PDF">1</a> </td>
<td align="CENTER">Obsolete </td>
<td align="CENTER"> </td>
<td>LTCS-P12-FLNG300-FRG-MACH</td>
<td align="CENTER"><a href="drawedit.asp?drawnum=8888888&rev=-&pagenum=1&dwg_type=Eng">Edit</a></td>
</tr>
</table>
<p>
<p>
<a href="drawsrchres.asp?drawnum=8888888&dwg_type=Eng&ts=2">Click here to search for additional statuses (secured)</a>
<p><a HREF="file:\\wsd5\apps01\multiprint\multiman.exe">MultiPrint</a></p>
</body>
</html>
Last edited: