VinodKP

Hi nf67, Where you able to solve the problem. Can you please post the latest code so that I can use it in one of my project. Thanks

Hi All, What is the best way to share Data between two Autoit Applications? The options I can think of are as below. Creating a file and dumping the data in it.Putting the data in the Windows clipboard using ClipPut command in Autoit.Please let me know if there is any other options.

Hi George, Thanks a lot for your help. The code works just perfect. Thank you very much. If anyone thinks they can do better than this, please let me know >_<. Here's the code which I have modified from your's to suite my requirement. #include<array.au3> ;; For displaying the arrays only #include <INet.au3> $Symbol = "TCS" $Key = $Symbol & "EQN" $flag = 0 $sURL = "http://www.nseindia.com/marketinfo/equities/cmquote_printer.jsp?key=" & $Key & "&symbol=" & $Symbol & "&flag=" & $flag $sData = _INetGetSource ($sURL) _GetTables($sData, "Price information");; Leave the 2nd Parameter blank to display all the tables Func _GetTables($sSource, $sTable = -1) ;; Leave the 2nd Parameter blank to display all the tables Local $sRegExp = "(?i)(?s)(<table.+?</table>)", $iRtn = 3 If $sTable <> -1 Then ;; a particular table was specified $sTitle = $sTable $sTable = StringRegExpReplace($sTable,"\s+", "\\s*") $sRegExp = "(?i)(?s).*(<table.+?" & $sTable & ".+?</table>)" $iRtn = 1 EndIf $aTables = StringRegExp($sSource, $sRegExp, $iRtn) If NOT @Error Then For $i = 0 To Ubound($aTables) -1 $aTables[$i] = StringRegExpReplace($aTables[$i], "(?i)(</?t)h.*?>", "$1d>") StringRegExpReplace($aTables[$i], "</tr>", "$1") $iRows = @Extended $iCols = _ColCount($aTables[$i]) Local $aData[$iRows][$iCols] _ColData($aTables[$i], $aData) _ArrayDisplay($aData, $iRows & " x " & $iCols & " x " & $sTitle) ;; If $sTable <> -1 then you can replace the _ArrayDisplay() with Return $aData Next EndIf EndFunc ;<==> _GetTables() Func _ColData($sTable, ByRef $aArray) Local $aRows = StringRegExp($sTable, "(?i)(?s)(<tr.+?</tr>)", 3), $aVlues If @Error Then Return SetError(1,1) For $i = 0 To Ubound($aRows) -1 $aValues = StringRegExp($aRows[$i],"(?i)(?s)<td.+?</td>", 3) If NOT @Error Then For $j = 0 To Ubound($aValues) -1 $aArray[$i][$j] = _StripTags($aValues[$j]) Next EndIf Next Return $aArray EndFunc ;<==> _ColData() Func _StripTags($sStr) $sStr = StringRegExpReplace($sStr, "(?i)(?s)<.+?>", "") $sStr = StringReplace($sStr, "&nbsp;", "") Return StringStripWS($sStr,3) EndFunc ;<==> _StripTags() Func _ColCount($sTable) Local $iCount = 0, $iCols Local $aRows = StringRegExp($sTable, "(?i)(?s)(<tr.+?</tr>)", 3) If @Error Then Return SetError(1,1) For $i = 0 To Ubound($aRows) -1 StringRegExpReplace($aRows[$i], "(?i)(?s)(<td.+?</td>)", "$1") $iCols = @Extended If $iCols > $iCount Then $iCount = $iCols ;MsgBox(0, "Test Row", $aRows[$i], 2) Next Return $iCount EndFunc ;<==> _ColCount() ; The only difference from your's is I used _INetGetSource, so that I don't create any temp file in the system. Now it get's the data twice the speed of _IETableGetCollection and the load is much lower on my machine. Again thanks for your help

Hi George, Thanks for the information. I am looking for something which gives me the result similar to the one below. _IETableGetCollection was perfect for this, but it is slow and is eating lot's of system resource. I will be looping this code for various symbol values and then feed it to a GUI. #include <Array.au3> #include <IE.au3> $Symbol = "TCS" $Key = $Symbol & "EQN" $flag = 0 $URL = "http://www.nseindia.com/marketinfo/equities/cmquote_printer.jsp?key=" & $Key & "&symbol=" & $Symbol & "&flag=" & $flag $oIE = _IECreate("", 0, 0, 1, 1) While 1 _IENavigate($oIE,$URL,1) $oTable = _IETableGetCollection ($oIE) $iNumTables = @extended $oTable = _IETableGetCollection ($oIE, 4) ;~ 4 for Price details, $aTableData = _IETableWriteToArray ($oTable, True) ;~ _ArrayDisplay($aTableData, 4) TrayTip ("",$aTableData[4][0] & " is " & $aTableData[4][1],7) Sleep (7000) WEnd _IEQuit($oIE)

Hi, Thanks for the quick reply. But using _IECreate function is slower as compared to InetGet, I am looking for an alternative wherein I don't have to use Internet Explorer. I tried _INetGetSource, but it is not foolproof.

Hi, Is there an alternate for _IETableGetCollection?

Hi, Watch this topic. I am planning to build a Stock Watch Application which might be useful to you. Are you willing to join me in developing this application? http://www.autoitscript.com/forum/index.php?showtopic=99739&st=0&p=715370&#entry715370

Hi All, I am planning to build an Indian Stock Market Software. The purpose of this application is to get Real time stock quotes (NSE & BSE), Stocks Watchlist, Portfolio Manager, Charting tool etc. If Anyone is interested, please let me know. We can work together >_< .

Here's the code which I used. #include <Array.au3> #include <IE.au3> $Symbol = "TCS" $Key = $Symbol & "EQN" $flag = 0 $URL = "http://www.nseindia.com/marketinfo/equities/cmquote_printer.jsp?key=" & $Key & "&symbol=" & $Symbol & "&flag=" & $flag $oIE = _IECreate($URL,0,0, 1, 1) $oTable = _IETableGetCollection ($oIE, 4) $aTableData = _IETableWriteToArray ($oTable, True) _ArrayDisplay($aTableData, 4) Let me know how it went >_<

Problem solved >_

Hi there, I am new to AutoIt. I am working on a program to get the current stock quote from a web page. But I am not sure how to do that. I am looking for the data like "Open", "High", "Low", "Last Price" etc from the webpage "http://www.nseindia.com/marketinfo/equities/quotesearch.jsp?companyname=TCS&submit1=go&series=EQ&flag=0". I tried to get the data using the below code, but was not successful in that. Can anyone help me in getting these data. #include <Array.au3> #include <IE.au3> ;~ $Company_Code = "TCS" $URL = "http://www.nseindia.com/marketinfo/equities/quotesearch.jsp?companyname=TCS&submit1=go&series=EQ&flag=0" $oIE = _IECreate($URL,0,1, 1, 1) $oTable = _IETableGetCollection ($oIE) $iNumTables = @extended MsgBox(0, "Table Info", "There are " & $iNumTables & " tables on the page") For $i = 0 to $iNumTables - 1 $oTable = _IETableGetCollection ($oIE, $i) $aTableData = _IETableWriteToArray ($oTable, True) _ArrayDisplay($aTableData, $i) Next