-----BEGIN PGP SIGNED MESSAGE-----

here is a freebie. this code fragment can be used in VB
on a microsoft platform to parse e-gold automation return
fields. if you think it is worth something, then try an e-gold
donation to:
http://loavesandfishessoupkitch.homestead.com/donate.html
or
http://www.ca.lp.org/


* * *

' function to get the value of an HTML field such as
' <input name="fieldname" value="xxxyyyzzz">
Private Function ExtractField(fieldname As String, RawData As String)
    Dim xDoc As MSHTML.HTMLDocument
    Dim elLinks As MSHTML.IHTMLElementCollection
    Dim el As MSHTML.IHTMLElement
    Dim elLink As MSHTML.HTMLAnchorElement

    Set xDoc = New MSHTML.HTMLDocument

    xDoc.body.innerHTML = RawData

    Set elLinks = xDoc.All.tags("input")

    For Each el In elLinks
        If UCase(el.Name) = UCase(fieldname) Then
            ExtractField = el.Value
            Exit Function
        End If
    Next

End Function

* * *

the RawData input would be the complete HTML buffer returned from
e-gold.
this function basically looks at all the input tags trying
to find one that matches the requested name. it then returns
the value of that field.

this function uses one of the DOM capable objects that
makes parsing HTML easier than doing it yourself. of course
it requires you have certain packages like IE5 installed.

jay w.
[EMAIL PROTECTED]

* * * * *
Disclaimer

The Authoraccepts no responsibility
for damages to persons, property or data incurred
through the use of these script(s). To the
maximum extent permitted by law, in no event
shall the Authorbe liable for any
damages whatsoever (including, without limitation,
damages for loss of business profits, business
interruption, loss of business information, or other
pecuniary loss) arising out of the use or inability
to use this software, even if the Author has been
advised of the possibility of such damages.

This product is supplied as-is, with no warranties
express or implied. 
Use this software at your own risk.
* * * * *

-----BEGIN PGP SIGNATURE-----
Version: PGP 7.0.4

iQEVAwUBO3GqfcyM0YPqVE7FAQH+8Qf/WwV4qxJ+1lEUyX/Mzx6oELZOP3b++9CB
lj/IoQPcqQYbxpJm0kxezR1mASsUTN2FTfy3e9mLgdtjKPKWRQn3rJG6XE7hDLE2
NHSgRer0OI6GzQ8hhSeBv/P0oy2lhfRopy0D8LisGhZzWw5QG1h494GeqEMyPSNW
PRqpg8W6gMwWOQLzH5aFdpcCmW+pJnFd9vWO0QVPfXVzXjGIY/Tk2n2sPz6pr4Qb
iLQxPD3uoJJG3LL1HNKvEF0Vi/LscAOnjlBJVKiFzPhpUL7YEX7kLORxv64N6cKL
zFLrZKL0kma78Tt6czkElGDjGqtkQinpeC2xkWmiox/LPIsTk9n41A==
=r44m
-----END PGP SIGNATURE-----

---
You are currently subscribed to e-gold-tech as: archive@jab.org
To unsubscribe send a blank email to [EMAIL PROTECTED]

Reply via email to