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

• #1331 #10382336 törölt tag #10382336 #1330

  Új Válasz 2010-12-14 21:31:29 #1331

  Ú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

  

  #10382336

  törölt tag

  válasz #10382336 #1330 üzenetére

  A következőképpen sikerült megoldani:

  1: A táblázatot tartalmazó .html fájl letöltése a helyi gépre:
  My.Computer.Network.DownloadFile(forrashtml, celfajl, felhasznalonev, jelszo, False, 10000000, True)

  2: A letöltött fájl beolvasása egy stringbe:
  Dim s0 As String = Join(System.IO.File.ReadAllLines(celfajl, System.Text.Encoding.Default), "")

  3: A stringből a tabulátor - chr(9) - karakterek kitörlése.

  4: A string átalakítása úgy, hogy egy sor vagy egy tag-ot, vagy egy szövegsort tartalmazzon.
  Ezek után egy sor vagy így néz ki: "<tagnév tagtulajdonságok>"+vbcrlf ,
  vagy így: "szöveg"+vbcrlf
  így el lehet dönteni, hogy egy sor mit tartalmaz, ha a sor első karaktere "<" akkor tag,
  egyébként szöveg.

  5: Ezek után "csak" fel kell dolgozni a sorokat a táblázat parancsai szerint:
  <table> </table> - új táblázat, ill. táblázat vége
  <tr> </tr> - következő sor, sor vége
  <th> </th> - aktuális sor köv. oszlopának fejlécének kezdete/vége
  <td> </td> - akt. sor köv. oszlopának eleme.
  Minden más tag figyelmen kívűl hagyandó. A <th> tag-nál azonban még arra figyelni
  kell, hogy <th colspan="2"> az adott sorban két cella egyesítését jelenti.

  A próba során célobjektumnak "datagrid" -et használtam, amit "datagridview" -el
  írattam ki a "form" -ra. Összehasonlítva az eredeti weboldallal az adatok megegyeztek.

  Ez a megoldás valószínűleg nem a legegyszerűbb, azonban működik.
  Ha valakinek van egyszerűbb megoldása, nem sértődnék meg, ha leírná.

  KELLEMES ÜNNEPEKET MINDENKINEK!!!

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