Telefonnummers opzoeken uit excelsheet

[Verwijderd]

Ik heb hier een excelsheet voor me met als inhoud :
-naam
-postcode
-straatnaam
-huisnummer
-plaats

Ik wil er graag telefoonnummers bij hebben. Dit kun je natuurlijk doen via [url="http://www.detelefoongids.nl/"]http://www.detelefoongids.nl/[/url]

Kan dit ook geautomatiseerd worden ? Zoja wat heb ik daarvoor nodig ?

Alvast bedankt !

[pistole]

als je een beetje kan programmeren doe je het als volgt:

-open excel sheet in programma
-lees één voor één de namen
-doe een http request naar de telefoongids
-pak het juiste resultaat en update daarmee de excel sheet

Maar ik denk dat je dat al wel had bedacht.
Dus: wat heb je er voor nodig: programmeer/scripting kennis

[Verwijderd]

Ik heb wel programmeer/script ervaring maar niet icm http. Ik ben ook van mening dat detelefoongids.nl beveiligt is voor dit soort fratsen.

[pistole]

tja, one way to find out

Maar welk soort scripting heb je ervaring mee? Excel kan je via COM openen, en je hebt ook COM objectjes om requests via HTTP te doen

[Verwijderd]

delphi 6.0 en acces. Het Com gedeelte (nog) niet...
Het moet geen uren tijd kosten, dan vul ik ze wel in (het zijn er maar 100 ofzo).

Het is zeer interessant om de boel te automatiseren maar dat ga ik niet in de baas zn tijd doen... misschien thuis wat kloten ik zie wel even.

Toch bedankt voor je antwoord. (had ook geen compleet script verwacht hoor) ik heb nu voorlopig wat te doen

[pistole]

ja, als het er 100 zijn, dan kan je het beste even handmatig gaan doen (uitzoeken van hoe te scripten ben je langer mee bezig)

Maar wel leuk voor een volgende keer natuurlijk

[Verwijderd]

Oeps, ik had nog nog niet naar beneden gescrollt het zijn 17751 records

[Pogostokje]

LOL

Nouja, als het voor de baas is ... die kan het ook gewoon kopen hoor. Zoals het hoort.

[Facer]

Ben ook al is aan het klussen geweest daarmee

code:

Dim getString As String, ShortWebSite As String
Winsock.Tag = "OPEN"
ShortWebSite = http://www.nationaletelefoongids.nl/list.asp?Pognon=1&lang=dutch&bname=%20&locationtype=book%7C04&x=14&y=15&page=0
getString = "GET " + ShortWebSite + " HTTP/1.0" + vbCrLf
getString = getString + "Accept: */*" + vbCrLf
getString = getString + "Accept: text/html" + vbCrLf
getString = getString + vbCrLf
Winsock.SendData getString

Best wel geinig maar het duurt lang voordat je antwoord krijgt

[Verwijderd]

Cool, en waar moet ik die code in pasten ?