Új hozzászólás Aktív témák

• #20246 Mutt senior tag Ba.G #20239

  Új Válasz 2014-01-28 23:04:17 #20246

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior tag

  válasz Ba.G #20239 üzenetére

  Szia,

  ...kereshető adatbázis valami javás dolog...

  Megnéztem a linket és mivel az URL nem tartalmazza a keresett kulcsszót, hanem csak a dokumentum azonosítót, ezért csak az a megoldás járható hogy készítesz egy segédtáblát amelyben a szabvány száma és a dokumentum id szerepel.

  A linkben a portlet_ref= után van a dokumentum id (pl. 060001).

  Az alábbi UDF a dokumentum idhez tartozó szabvány számot adja vissza:
  Function GrabWebData(URI As String)
  Dim IE As Object
  
  Set IE = CreateObject("InternetExplorer.Application")
  With IE
  .Visible = False
  .Navigate URI
  Do Until .ReadyState = 4: DoEvents: Loop
  
  x = .Document.body.innertext
  x = Replace(x, Chr(10), Chr(13))
  x = Split(x, "Hivatkozási szám")
  If UBound(x) < 2 Then Exit Function
  y = Split(x(2), Chr(13))
  .Quit
  End With
  
  If Len(y(0)) > 0 Then
  GrabWebData = y(0)
  Else
  GrabWebData = ""
  End If
  End Function

  Most már csak a fenti függvényt kell egy ciklusba tenni, hogy a lehetséges dokumentum azonosítókon végigmenjen és meg lesz a segédtáblád.

  üdv

  ps. A ciklus leterhelheti a szervert, ezért óvatosan vele!

Új hozzászólás Aktív témák