Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 791

Mar 5th, 2009

count element in table html

Expand Post »

http://www.x-rates.com/cgi-bin/cgica...lue=1&base=EUR
Based the link how to count element in table of this page?

note: is the table where are all currency values

tks.

in vba please

Last edited by sal21; Mar 5th, 2009 at 8:41 am.

Similar Threads

insert csv file into mysql through php in PHP
Spellchecker Remote in JavaScript / DHTML / AJAX
get html element value using php in PHP
Having prolems with a guestbook in HTML and CSS
I hate Firefox! in JavaScript / DHTML / AJAX

sal21

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

22 posts
since Feb 2008

Permalink

Mar 5th, 2009

Re: count element in table html

Click to Expand / Collapse Quote originally posted by sal21 ...

http://www.x-rates.com/cgi-bin/cgica...lue=1&base=EUR
Based the link how to count element in table of this page?

note: is the table where are all currency values

tks.

in vba please

What technology are you using to view/download the document?

vb5prgrmr

Reputation Points: 156

Solved Threads: 296

Posting Virtuoso

Offline

1,670 posts
since Mar 2009

Permalink

Mar 5th, 2009

Re: count element in table html

Click to Expand / Collapse Quote originally posted by vb5prgrmr ...

What technology are you using to view/download the document?

vba for excel.
piece of my code to connect:

Set oIE = CreateObject("InternetExplorer.Application")

With oIE

'For lngRow = 1 To lngMaxRow

' PAGINA = 1
' ABI = Empty
' ABI = WS.Range("B" & lngRow)

'If WS.Range("C" & lngRow) = Empty Then

URL = "http://www.x-rates.com/cgi-bin/cgicalc.cgi?value=1&base=EUR"
Debug.Print URL
.Visible = True
.Navigate (URL)

Do While .Busy
DoEvents
Loop

Do While .ReadyState <> 4
DoEvents
Loop

.....

ecc...

sal21

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

22 posts
since Feb 2008

Permalink

Mar 5th, 2009

Re: count element in table html

Okay, at first I thought this might be tough to do since it is a spawned application, but... It was easier than I thought. Add these variables at the top.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim C, I As Integer
Dim C, I As Integer

and then after your readystate check add this

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
For Each C In .Document.links
    I = I + 1
Next C
MsgBox I
For Each C In .Document.links
    I = I + 1
Next C
MsgBox I

Now, as you can see, "C" is a varient and "I" is used for counting the links. Also, I tried .Document.Links.Count but that is not supported so you have to enumerate through them to get the count.

Good Luck

vb5prgrmr

Reputation Points: 156

Solved Threads: 296

Posting Virtuoso

Offline

1,670 posts
since Mar 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Template Crystal report and VB6

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Media Player load in game

DaniWeb Message

Cancel Changes

User Name
Password