MaoMao Posted November 13, 2011 Share Posted November 13, 2011 New in testing a research program for download log.The process is to search the number of Downloads for the program names in the txt file.Result can be displayed in IE new tab page and write to excel file.Can anyone help the following problem.1) How to identify and What is the search keywork object name in the http://sourceforge.net page?2) What is the "Download log" result object name in the source page?3) Is the Excel program correct in setting and writing the file?; Separate Text file LogNames.txtLogNames.txtFirefoxChromeInternet ExplorerSafariOperaexpandcollapse popup#include <File.au3> $file = FileOpen(@WorkingDir&"\LogNames.txt", 0) ; Check if file opened for reading OK If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf #include <IE.au3> #include <Excel.au3> Local $oExcel = _ExcelBookNew() ;Create new book, make it visible $ROW = 0 $COL = 0 $oIE = _IECreate ("http://sourceforge.net", 0, 0) ; Read in lines of text until the EOF is reached While 1 $LogLine = FileReadLine($file) If @error = -1 Then ExitLoop $ROW = $ROW + 1 $LogCode = StringMid ($LogLine, 1, 20); Extract LogCode $oIET1 = __IENavigate($oIE, "http://sourceforge.net", 1, 2048) $oForm = _IEFormGetObjByName ($oIET1, "mainform") $oText = _IEFormElementGetObjByName ($oForm, "EnterSearch?_Name") _IEFormElementSetValue($oText, $LogCode) $oQuery = _IEFormElementGetObjByName ($oForm, "q") _IEFormSubmit ($oForm) ; ERROR IN Display the innerText on an element on the page with a name of "download" $oMarquee = _IEGetObjByName ($oIET1, "DOWNLOAD") MsgBox(0, "SourceForge Information T1", $oMarquee) ; WRITE TO EXCEL FILE testing code ;Declare the Array Local $aArray[$ROW][2] = [[$LogCode, $oMarquee]] _ExcelWriteSheetFromArray($oExcel, $aArray, 1, 1, 0, 0) ;0-Base Array parameters ; Need to edit and verify Wend; end of While SoundPlay("C:\Windows\media\chimes.wav",1) MsgBox(4096,"Done!","All Log data files have been created!") MsgBox(0, "Exiting", "Press OK to Save File and Exit") _ExcelBookSaveAs($oExcel, @TempDir & "\EXCELTemp.xls", "xls", 0, 1) ; Now we save it into the temp directory; overwrite existing file if necessary _ExcelBookClose($oExcel) ; And finally we close out Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now