- RAM topik
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Vezetékes FEJhallgatók
- Milyen billentyűzetet vegyek?
- Megjött a Razer DeathAdder egerek legfrissebb nemzedéke
- Elkezdtek szállingózni az Arctic P Pro sorozatú ventilátorai
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Milyen egeret válasszak?
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- AMD GPU-k jövője - amit tudni vélünk
Új hozzászólás Aktív témák
-
#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
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Futás, futópályák
- RAM topik
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Kerékpárosok, bringások ide!
- gban: Ingyen kellene, de tegnapra
- Bővebb Google-támogatást kap sok Garmin óra
- Győr és környéke adok-veszek-beszélgetek
- Ford topik
- Filmvilág
- További aktív témák...
- Dell Latitude E6540 Erőmű akár Játékra is.15"6 FHD,I7 4800MQ,HD8790,16GBram,500GB sshd,gyári töltö
- HP ELITEBOOK 855 G8 Ryzen 3 5400U 16gb ram 256ssd FHD IPS Gari
- HP ELITEBOOK 850 G8 i5 1145G7/16GB ram 256ssd/FHD
- Újszerű Lenovo Legion 5 - 15,6"FHD IPS - Ryzen 5 5600H - 16GB - 512GB SSD - RTX 3050 - Win11 -MAGYAR
- ÚJ Lenovo LOQ 15IRX9 - QHD 165Hz - i7-13650HX - 16GB - 1TB - RTX 4060 - Win11 - 3 év garancia
- BESZÁMÍTÁS! 1TB Corsair MP700 NVMe SSD meghajtó garanciával hibátlan működéssel
- Apple iPhone 13 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Samsung Galaxy S23, 8/128 GB, Kártyafüggetlen
- REFURBISHED - HP USB-C Universal Dock G1 docking station (DisplayLink)
- Bomba ár! Lenovo ThinkPad Yoga 260 - i5-G6 I 8GB I 256SSD I 12,5" Touch I W10 I Cam I Gari!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest