uibot数据抓取+数据表+excel小案例
Dim arrayData = ""
Dim objDatatable = ""
Dim objExcelWorkBook = ""
Dim arrayRet = ""
Dim iRet = ""
Dim objRet = ""
Dim sRet = ""
Dim arrayText = ""
// 网页数据抓取,返回值为二维数组
arrayData = UiElement.DataScrap({"html":{"attrMap":{"id":"content_left","tag":"DIV"},"index":0,"tagName":"DIV"},"wnd":[{"app":"uibotBrowser","cls":"Chrome_WidgetWin_*","title":"*"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}]},{"Columns":[{"props":["text","url"],"selecors":[{"index":0,"prefix":"","tag":"div","value":"div"},{"index":0,"prefix":">","tag":"h3","value":"h3"},{"className":"","index":0,"prefix":">","tag":"a","value":"a"}]}],"ExtractTable":0},{"objNextLinkElement":{"html":{"attrMap":{"aaname":"下一页 >","parentid":"page","tag":"A"},"index":0,"tagName":"A"},"wnd":[{"app":"uibotBrowser","cls":"Chrome_WidgetWin_*","title":"*"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}]},"iMaxNumberOfPage":1,"iMaxNumberOfResult":-1,"iDelayBetweenMS":1000,"bContinueOnError":False})
// 构建数据表,表头为内容和url
objDatatable = Datatable.BuildDataTable(arrayData,["内容","url"])
// 数据表根据条件查询
objDatatable = Datatable.QueryDataTable(objDatatable,"内容.str.contains(\"工具\")")
// 根据内容进行去重
objDatatable = Datatable.DropDuplicatesDataTable(objDatatable,[内容],"first")
// 将数据表转为二维数组
objDatatable = Datatable.GetDataTableByArray(objDatatable,False)
Try
// 打开excel
objExcelWorkBook = Excel.OpenExcel("f:\\Users\\Administrator\\Desktop\\123.xlsx",True,"Excel","","")
// 循环遍历每一个单元格
// 行从1开始,列从'A'开始
For i = 1 To Excel.GetRowsCount(objExcelWorkBook,"Sheet1") Step 1
For j = Asc("A") To Excel.GetColumsCount(objExcelWorkBook,"Sheet1")+Asc("A")-1 Step 1
TracePrint(Excel.ReadCell(objExcelWorkBook,"Sheet1",Chr(j)&i))
Next
Next
Excel.CloseExcel(objExcelWorkBook,True)
Catch
Log.Error("操作excel出错")
Else
End Try