[es] - VB.NET - Povlacenje podataka sa web-a

bjevta
Bratislav Jevtic
http://www.tojesoft.co.rs
Beograd

Član broj: 5216
Poruke: 367
*.dynamic.sbb.rs.

Sajt: www.tojesoft.co.rs

+5 Profil

Re: VB.NET - Povlacenje podataka sa web-a

^{11.04.2009. u 06:02 - pre 182 meseci}

kad je reč o sajtu narodne banke, i meni je on zanimljiv.

2003-e sam radio komad softvera koji je sa neke adrese EU povlačio kursnu listu EVRO-ostale valute. Sajt EU je imao podatke u HTML i Excel formi. Kako se to radi? Pa, prvo napravite request da se otvori neki url a onda ga parsirate - druge nema. Ako nekog interesuje primer, mogao bih da ga okačim.

Sve to lepo radi dok se data source (html strana ili šta je već) ne promeni - onda i Vaša rutina za import mora da se menja.

Ako ima još interesenata za problematiku importa kursnih lista, mogli bismo da se organizujemo i da to rešimo tako da svima bude na raspolaganju. I to ne samo za NBS listu, već i liste komercijalnih banaka.

Acta, non verba!

Odgovor na temu

Pharos
Pančevo

Član broj: 20664
Poruke: 1029
77.46.242.*

+2 Profil

Re: VB.NET - Povlacenje podataka sa web-a

^{11.04.2009. u 13:26 - pre 182 meseci}

Evo jedan primer u C#

Code:

using System;
using System.Linq;
using System.Text;
using System.Net;
using System.Collections.Generic;
using System.Collections.Specialized;
using HtmlAgilityPack;

namespace Crawler.Library
{
    public class WebCrawler
    {
        #region Private Methods

        private string GetHTMLText(string url, NameValueCollection parameters)
        {
            string htmlText = string.Empty;
            using (WebClient client = new WebClient())
            {
                Encoding encoding = Encoding.UTF8;
                client.Encoding = encoding;
                client.Headers.Add("user-agent", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5");

                htmlText = encoding.GetString(client.UploadValues(url, "post", parameters));
            }

            return htmlText;
        }

        #endregion

        #region Public Methods

        public string GetMiddleExchangeRate(DateTime date)
        {
            string ret = string.Empty;
            try
            {
                string requestedDate = date.ToString("dd.MM.yyyy");
                string url = @"http://www.nbs.rs/internet/latinica/scripts/kl.html";

                NameValueCollection parameters = new NameValueCollection();
                parameters.Add("datum", requestedDate);
                parameters.Add("eksport", "html");
                parameters.Add("vrsta", "3");

                ret = GetHTMLText(url, parameters);

                HtmlDocument doc = new HtmlDocument();
                doc.LoadHtml(ret);

                HtmlNodeCollection nodes = doc.DocumentNode.SelectNodes("//td[@class='tablecell']");

                StringBuilder sb = new StringBuilder();
                foreach (HtmlNode node in nodes)
                {
                    sb.AppendLine(node.InnerText);
                }

                ret = sb.ToString();

            }
            catch(Exception ex)
            {
                ret = ex.Message;
            }

            return ret;
        }

        #endregion
    }
}

Potrebno je referencirati HtmlAgilityPack koji se može skinuti ovde: http://www.codeplex.com/htmlagilitypack
Funkcija GetMiddleExchangeRate vraća string u sledećem obliku

Code:

978
Evropska unija
EUR
1
94,8637
036
Australija
AUD
1
49,4185
...

Vi je modifikujte prema svojim potrebama (da vraća neki biznis objekat, DataRow, etc)

Primer pozivanja funkcije u kodu, tako da vrati kursnu listu za 1. april 2009. god:

Code:

Crawler.Library.WebCrawler crawler = new Crawler.Library.WebCrawler();

string rates = crawler.GetMiddleExchangeRate(new DateTime(2009, 4, 1));

Happy coding!

77 77 77 2E 65 73 6E 69 70 73 2E 63 6F 6D

Odgovor na temu

perun85
Republika Srpska

Član broj: 185562
Poruke: 116
62.68.121.*

Profil

Re: VB.NET - Povlacenje podataka sa web-a

^{11.04.2009. u 16:06 - pre 182 meseci}

Zar nije prakticnije iskoristiti kursnu listu NBS u vidu web servisa na adresi:

http://webservices.nbs.yu/Comm.../TempExchangeRatesService.asmx

Odgovor na temu

bjevta
Bratislav Jevtic
http://www.tojesoft.co.rs
Beograd

Član broj: 5216
Poruke: 367
*.dynamic.sbb.rs.

Sajt: www.tojesoft.co.rs

+5 Profil

Re: VB.NET - Povlacenje podataka sa web-a

^{11.04.2009. u 16:19 - pre 182 meseci}

da, ovo su odlične napomene, pogotovo primer primene agiliti pack-a.

šta je sa ostalim bankama? imaju li one web servise za emitovanje kursne liste?

Acta, non verba!

Odgovor na temu

perun85
Republika Srpska

Član broj: 185562
Poruke: 116
62.68.121.*

Profil

Re: VB.NET - Povlacenje podataka sa web-a

^{11.04.2009. u 17:01 - pre 182 meseci}

Stvarno ne znam, NBS servis sam koriostio u jednom projektu vezanom za fax.

Odgovor na temu

Pharos
Pančevo

Član broj: 20664
Poruke: 1029
77.46.242.*

+2 Profil

Re: VB.NET - Povlacenje podataka sa web-a

^{11.04.2009. u 17:12 - pre 182 meseci}

Citat:

perun85: Zar nije prakticnije iskoristiti kursnu listu NBS u vidu web servisa na adresi:

http://webservices.nbs.yu/Comm.../TempExchangeRatesService.asmx

Naravno da je praktičnije iz više razloga, ali..
Ovim primerom sam pokazao kako da dođemo do podataka kada ne postoji web servis.
Šta ako želimo da uporedimo kursnu listu više različitih banaka, a one nemaju web servis?

77 77 77 2E 65 73 6E 69 70 73 2E 63 6F 6D

Odgovor na temu