|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(DataFlex) HTML Table to CSVDemonstrates a method for converting an HTML table to a CSV file. Note: This example requires Chilkat v9.5.0.77 or greater.
Use ChilkatAx-9.5.0-win32.pkg Procedure Test Handle hoHttp Variant vBdHtml Handle hoBdHtml Boolean iSuccess Handle hoHtx Variant vSbXml Handle hoSbXml Handle hoXml Integer iNumRemoved Integer i Integer iCount_i String sTable_role String sTable_data_scrollx String sTable_data_sortdirection String sTable_data_sorton String sTable_id Integer j Integer iCount_j String sTr_role Integer k Integer iCount_k String sTagPath String sText Handle hoCsv String sCsvStr String sTemp1 // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // First download the HTML containing the table Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End Get Create (RefClass(cComChilkatBinData)) To hoBdHtml If (Not(IsComObjectCreated(hoBdHtml))) Begin Send CreateComObject of hoBdHtml End Get pvComObject of hoBdHtml to vBdHtml Get ComQuickGetBd Of hoHttp "https://example-code.com/data/etf_table.html" vBdHtml To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End // Convert to XML. Get Create (RefClass(cComChilkatHtmlToXml)) To hoHtx If (Not(IsComObjectCreated(hoHtx))) Begin Send CreateComObject of hoHtx End Get pvComObject of hoBdHtml to vBdHtml Get ComSetHtmlBd Of hoHtx vBdHtml To iSuccess Get Create (RefClass(cComChilkatStringBuilder)) To hoSbXml If (Not(IsComObjectCreated(hoSbXml))) Begin Send CreateComObject of hoSbXml End Get pvComObject of hoSbXml to vSbXml Get ComToXmlSb Of hoHtx vSbXml To iSuccess Get Create (RefClass(cComChilkatXml)) To hoXml If (Not(IsComObjectCreated(hoXml))) Begin Send CreateComObject of hoXml End Get pvComObject of hoSbXml to vSbXml Get ComLoadSb Of hoXml vSbXml True To iSuccess // Remove attributes and sub-trees we don't need. // (In other words, we're getting rid of clutter...) Get ComPruneTag Of hoXml "thead" To iNumRemoved Get ComPruneAttribute Of hoXml "style" To iNumRemoved Get ComPruneAttribute Of hoXml "class" To iNumRemoved // Scrub the element and attribute content. Send ComScrub To hoXml "ContentTrimEnds,ContentTrimInside,AttrTrimEnds,AttrTrimInside" // Let's see what we have... Get ComGetXml Of hoXml To sTemp1 Showln sTemp1 // We have the following XML. // Copy this XML into the online tool at Generate Parsing Code from XML // as a starting point for accessing the data.. // <?xml version="1.0" encoding="utf-8"?> // <root> // <html> // <head> // <meta http-equiv="content-type" content="text/html; charset=UTF-8"/> // </head> // <body text="#000000" bgcolor="#FFFFFF"> // <div> // <div> // <table role="grid" data-scrollx="true" data-sortdirection="desc" data-sorton="-1"/> // </div> // </div> // <div> // <table id="topHoldingsTable" role="grid" data-scrollx="true" data-sortdirection="desc" data-sorton="-1"> // <tbody> // <tr role="row"> // <td> // <text>ITUB4</text> // </td> // <td> // <text>ITAU UNIBANCO HOLDING PREF SA</text> // </td> // <td> // <text>Financials</text> // </td> // <td> // <text>Brazil</text> // </td> // <td> // <text>10.94</text> // </td> // <td> // <text>998,954,813.73</text> // </td> // </tr> // <tr role="row"> // <td> // <text>BBDC4</text> // </td> // <td> // <text>BANCO BRADESCO PREF SA</text> // </td> // <td> // <text>Financials</text> // </td> // <td> // <text>Brazil</text> // </td> // <td> // <text>9.01</text> // </td> // <td> // <text>822,164,622.75</text> // </td> // </tr> // ... // ... // ... // </tbody> // </table> // </div> // </body> // </html> // </root> // // This is the code generated by the online tool: // Move 0 To i Get ComNumChildrenHavingTag Of hoXml "html|body|div" To iCount_i While (i < iCount_i) Set ComI Of hoXml To i Get ComChilkatPath Of hoXml "html|body|div[i]|div|table|(role)" To sTable_role Get ComChilkatPath Of hoXml "html|body|div[i]|div|table|(data-scrollx)" To sTable_data_scrollx Get ComChilkatPath Of hoXml "html|body|div[i]|div|table|(data-sortdirection)" To sTable_data_sortdirection Get ComChilkatPath Of hoXml "html|body|div[i]|div|table|(data-sorton)" To sTable_data_sorton Get ComChilkatPath Of hoXml "html|body|div[i]|table|(id)" To sTable_id Get ComChilkatPath Of hoXml "html|body|div[i]|table|(role)" To sTable_role Get ComChilkatPath Of hoXml "html|body|div[i]|table|(data-scrollx)" To sTable_data_scrollx Get ComChilkatPath Of hoXml "html|body|div[i]|table|(data-sortdirection)" To sTable_data_sortdirection Get ComChilkatPath Of hoXml "html|body|div[i]|table|(data-sorton)" To sTable_data_sorton Move 0 To j Get ComNumChildrenHavingTag Of hoXml "html|body|div[i]|table|tbody|tr" To iCount_j While (j < iCount_j) Set ComJ Of hoXml To j Get ComChilkatPath Of hoXml "html|body|div[i]|table|tbody|tr[j]|(role)" To sTr_role Move 0 To k Get ComNumChildrenHavingTag Of hoXml "html|body|div[i]|table|tbody|tr[j]|td" To iCount_k While (k < iCount_k) Set ComK Of hoXml To k Get ComGetChildContent Of hoXml "html|body|div[i]|table|tbody|tr[j]|td[k]|text" To sText Move (k + 1) To k Loop Move (j + 1) To j Loop Move (i + 1) To i Loop // Let's modify the above code to build the CSV. Get Create (RefClass(cComChilkatCsv)) To hoCsv If (Not(IsComObjectCreated(hoCsv))) Begin Send CreateComObject of hoCsv End Get ComSetColumnName Of hoCsv 0 "Ticker" To iSuccess Get ComSetColumnName Of hoCsv 1 "Name" To iSuccess Get ComSetColumnName Of hoCsv 2 "Sector" To iSuccess Get ComSetColumnName Of hoCsv 3 "Country" To iSuccess Get ComSetColumnName Of hoCsv 4 "Weight" To iSuccess Get ComSetColumnName Of hoCsv 5 "Notional Vaue" To iSuccess Move 0 To i Get ComNumChildrenHavingTag Of hoXml "html|body|div" To iCount_i While (i < iCount_i) Set ComI Of hoXml To i Move 0 To j Get ComNumChildrenHavingTag Of hoXml "html|body|div[i]|table|tbody|tr" To iCount_j While (j < iCount_j) Set ComJ Of hoXml To j Move 0 To k Get ComNumChildrenHavingTag Of hoXml "html|body|div[i]|table|tbody|tr[j]|td" To iCount_k While (k < iCount_k) Set ComK Of hoXml To k Get ComGetChildContent Of hoXml "html|body|div[i]|table|tbody|tr[j]|td[k]|text" To sTemp1 Get ComSetCell Of hoCsv j k sTemp1 To iSuccess Move (k + 1) To k Loop Move (j + 1) To j Loop Move (i + 1) To i Loop Get ComSaveFile Of hoCsv "qa_output/brasil_etf.csv" To iSuccess Get ComSaveToString Of hoCsv To sCsvStr Showln sCsvStr // Our CSV looks like this: // Ticker,Name,Sector,Country,Weight,Notional Vaue // ITUB4,ITAU UNIBANCO HOLDING PREF SA,Financials,Brazil,10.94,"998,954,813.73" // BBDC4,BANCO BRADESCO PREF SA,Financials,Brazil,9.01,"822,164,622.75" // VALE3,CIA VALE DO RIO DOCE SH,Materials,Brazil,8.60,"785,290,260.07" // PETR4,PETROLEO BRASILEIRO PREF SA,Energy,Brazil,5.68,"518,124,434.10" // PETR3,PETROBRAS,Energy,Brazil,4.86,"443,254,438.53" // B3SA3,B3 BRASIL BOLSA BALCAO SA,Financials,Brazil,4.57,"417,636,740.16" // ABEV3,AMBEV SA,Consumer Staples,Brazil,4.57,"417,216,913.63" // BBAS3,BANCO DO BRASIL SA,Financials,Brazil,3.25,"296,921,232.15" // ITSA4,ITAUSA INVESTIMENTOS ITAU PREF SA,Financials,Brazil,2.90,"265,153,684.52" // LREN3,LOJAS RENNER SA,Consumer Discretionary,Brazil,2.25,"205,832,175.98" // End_Procedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.