Web site data to excel columns

Code:

#include<inet.au3>
$file = symbol.txt
        $whole_file = FileRead($file)
    $file_handle = FileOpen($file, 2)
	$word_array = StringSplit($whole_file, @CRLF, 1)
	For $i = 1 To $word_array[0]
        If $word_array[$i] = "" Then ContinueLoop
		   For $ii = 1 To $word_array[0]
            If $ii = 1 Then $word_array[$ii] &= "http://m.bseindia.com/StockReach.aspx?scripcd="i)
            If $ii = $word_array[0] Then
			   Exit
			Else
			Else
			Else
			   $page_source = _INetGetSource(i, 1)
    FileWrite($file_handle)
    FileClose($file_handle)

Thanks for the encourage,This is the maximum i can make,Pls correct and finish it when you got enough free time

My apologies.

I misjudged your level of understanding of the past code that we have used.

I should have had you work on this in much smaller tasks.

Try this script:

Code:

Opt("TrayIconDebug", 1)

$S_running = "~stock-stuff~" ;name the script
If WinExists($S_running) Then Exit
AutoItWinSetTitle($S_running)

#include<Inet.au3>
#include <String.au3>

$whole_file = FileRead("symbol.txt")
$account_number_array = StringSplit($whole_file, @CRLF, 1)

$file_h = FileOpen("output.csv", 2)

For $i = 1 To $account_number_array[0]
    If $account_number_array[$i] = "" Then ContinueLoop ;skip empty lines

    $page_source = _INetGetSource("http://m.bseindia.com/StockReach.aspx?scripcd=" & $account_number_array[$i], 1)

    $spanCname = _StringBetween($page_source, '<span id="spanCname" class="companyname">', '</span><br>')
    $strongDate = _StringBetween($page_source, '<span id="strongDate">', '</span>')
    $spanchangVal = _StringBetween($page_source, '<span id="spanchangVal" class="srcovalue">', '</span>')
    $strongCvalue = _StringBetween($page_source, '<span class="srcovalue"><strong id="strongCvalue">', '</strong></span>')
    $tdDHL = _StringBetween($page_source, '<td id="tdDHL" class="TTRow_right">', '</td>')
    If StringInStr($tdDHL[0], "/") Then
        $tdDHL_array = StringSplit($tdDHL[0], "/", 1)
    Else
        Dim $tdDHL_array[3]
        $tdDHL_array[1] = "null"
        $tdDHL_array[2] = "null"
    EndIf
    $tdWAp = _StringBetween($page_source, '<td id="tdWAp" class="TTRow_right">', '</td>')
    $tdTTQW = _StringBetween($page_source, '<td id="tdTTQW" class="TTRow_right">', '</td>')

    FileWriteLine($file_h, _
            $account_number_array[$i] & "," & _
            $spanCname[0] & "," & _
            $strongDate[0] & "," & _
            $spanchangVal[0] & "," & _
            $strongCvalue[0] & "," & _
            $tdDHL_array[1] & "," & _
            $tdDHL_array[2] & "," & _
            $tdWAp[0] & "," & _
            $tdTTQW[0])
Next
FileClose($file_h)

I temporarily added the stock account number to the output.

Thank you very much,I dont think it simple.It will take six months for me to make a script like this.
I just add a simple msgbox at end to show its finished.
in the out put file

Code:

  $spanchangVal = _StringBetween($page_source, '<span id="spanchangVal" class="srcovalue">', '</span>')

this line gives a colum with value 37(5.3%) is it possible to split 37 in one colum and 5.3% in another column.
also i need to add heading to excel columns,

code name date change %change close high low wap ttq

These are not important and necessary!

Thank you very much,the second script without "LTD" is good.Its amazing im trying to add more columns and I dont want to waste your time any more.

I sent you a PM about the last change.

Be sure that the copy that you are working with ends in EndFunc.

It should not be too hard to add columns... you can post your modified version and I'll see I notice any problems.

Code:

Opt("TrayIconDebug", 1)

$S_running = "~stock-stuff~" ;name the script
If WinExists($S_running) Then Exit
AutoItWinSetTitle($S_running)

#include<Inet.au3>
#include <String.au3>


$whole_file = FileRead("symbol.txt")
$account_number_array = StringSplit($whole_file, @CRLF, 1)

$file_h = FileOpen("output.csv", 2)
If $file_h = -1 Then
    MsgBox(0, "AutoIt", "Could not open output file. Close Excel?")
    Exit
EndIf

FileWriteLine($file_h, _
        "Code" & "," & _
        "Name" & "," & _
        "Date" & "," & _
        "Change" & "," & _
        "% Change" & "," & _
        "Close" & "," & _
        "High" & "," & _
        "Low" & "," & _
        "Wtd. Avg Price" & "," & _
	    "TTQ" & "," & _
        "2WQ" )

For $i = 1 To $account_number_array[0]
    TrayTip("Pulling stock data ", "Stock " & $i & " of " & $account_number_array[0], 100)
    If $account_number_array[$i] = "" Then ContinueLoop ;skip empty lines

    $page_source = _INetGetSource("http://m.bseindia.com/StockReach.aspx?scripcd=" & $account_number_array[$i], 1)

    $spanCname = _StringBetween($page_source, '<span id="spanCname" class="companyname">', '</span><br>')
    If @error Then _errors($account_number_array[$i])

    $strongDate = _StringBetween($page_source, '<span id="strongDate">LTD- ', '</span>')
    If @error Then _errors($account_number_array[$i])

    $spanchangVal = _StringBetween($page_source, '<span id="spanchangVal" class="srcovalue">', '</span>')
    If @error Then _errors($account_number_array[$i])
    If StringInStr($spanchangVal[0], "(") Then
        $spanchangVal_array = StringSplit($spanchangVal[0], "(", 1)
        $spanchangVal_array[1] = StringStripWS($spanchangVal_array[1], 8)
        $spanchangVal_array[2] = StringReplace($spanchangVal_array[2], ")", "")
        $spanchangVal_array[2] = StringStripWS($spanchangVal_array[2], 8)
    Else
        Global $spanchangVal_array[3]
        $spanchangVal_array[1] = "null"
        $spanchangVal_array[2] = "null"
    EndIf

    $strongCvalue = _StringBetween($page_source, '<span class="srcovalue"><strong id="strongCvalue">', '</strong></span>')
    If @error Then _errors($account_number_array[$i])

    $tdDHL = _StringBetween($page_source, '<td id="tdDHL" class="TTRow_right">', '</td>')
    If @error Then _errors($account_number_array[$i])
    If StringInStr($tdDHL[0], "/") Then
        $tdDHL_array = StringSplit($tdDHL[0], "/", 1)
    Else
        Global $tdDHL_array[3]
        $tdDHL_array[1] = "null"
        $tdDHL_array[2] = "null"
    EndIf

    $tdWAp = _StringBetween($page_source, '<td id="tdWAp" class="TTRow_right">', '</td>')
    If @error Then _errors($account_number_array[$i])

    $tdTTQW = _StringBetween($page_source, '<td id="tdTTQW" class="TTRow_right">', '</td>')
    If @error Then _errors($account_number_array[$i])
    If StringInStr($tdTTQW[0], "/") Then
        $tdTTQW_array = StringSplit($tdTTQW[0], "/", 1)
    Else
        Global $tdTTQW_array[3]
        $tdTTQW_array[1] = "null"
        $tdTTQW_array[2] = "null"
    EndIf

    FileWriteLine($file_h, _
            $account_number_array[$i] & "," & _
            $spanCname[0] & "," & _
            $strongDate[0] & "," & _
            $spanchangVal_array[1] & "," & _
            $spanchangVal_array[2] & "," & _
            $strongCvalue[0] & "," & _
            $tdDHL_array[1] & "," & _
            $tdDHL_array[2] & "," & _
            $tdWAp[0] & "," & _
            $tdTTQW_array[1] & "," & _
            $tdTTQW_array[2] & "," & _

Next
FileClose($file_h)
MsgBox(0, "AutoIt", "Finished!")

Func _errors($pass)
    MsgBox(0, "AutoIt", "Error - not a valid stock number: " & $pass)
    ShellExecute("http://m.bseindia.com/StockReach.aspx?scripcd=" & $pass)
    FileClose($file_h)
    Exit
EndFunc

I try a small change just to split last column TTQ to TTQ and 2WQ
but it shows the error "parsing function all"

try this:

Code:

Opt("TrayIconDebug", 1)

$S_running = "~stock-stuff~" ;name the script
If WinExists($S_running) Then Exit
AutoItWinSetTitle($S_running)

#include<Inet.au3>
#include <String.au3>


$whole_file = FileRead("symbol.txt")
$account_number_array = StringSplit($whole_file, @CRLF, 1)

$file_h = FileOpen("output.csv", 2)
If $file_h = -1 Then
    MsgBox(0, "AutoIt", "Could not open output file. Close Excel?")
    Exit
EndIf

FileWriteLine($file_h, _
        "Code" & "," & _
        "Name" & "," & _
        "Date" & "," & _
        "Change" & "," & _
        "% Change" & "," & _
        "Close" & "," & _
        "High" & "," & _
        "Low" & "," & _
        "Wtd. Avg Price" & "," & _
        "TTQ" & "," & _
        "2WQ")

For $i = 1 To $account_number_array[0]
    TrayTip("Pulling stock data ", "Stock " & $i & " of " & $account_number_array[0], 100)
    If $account_number_array[$i] = "" Then ContinueLoop ;skip empty lines

    $page_source = _INetGetSource("http://m.bseindia.com/StockReach.aspx?scripcd=" & $account_number_array[$i], 1)

    $spanCname = _StringBetween($page_source, '<span id="spanCname" class="companyname">', '</span><br>')
    If @error Then _errors($account_number_array[$i])

    $strongDate = _StringBetween($page_source, '<span id="strongDate">LTD- ', '</span>')
    If @error Then _errors($account_number_array[$i])

    $spanchangVal = _StringBetween($page_source, '<span id="spanchangVal" class="srcovalue">', '</span>')
    If @error Then _errors($account_number_array[$i])
    If StringInStr($spanchangVal[0], "(") Then
        $spanchangVal_array = StringSplit($spanchangVal[0], "(", 1)
        $spanchangVal_array[1] = StringStripWS($spanchangVal_array[1], 8)
        $spanchangVal_array[2] = StringReplace($spanchangVal_array[2], ")", "")
        $spanchangVal_array[2] = StringStripWS($spanchangVal_array[2], 8)
    Else
        Global $spanchangVal_array[3]
        $spanchangVal_array[1] = "null"
        $spanchangVal_array[2] = "null"
    EndIf

    $strongCvalue = _StringBetween($page_source, '<span class="srcovalue"><strong id="strongCvalue">', '</strong></span>')
    If @error Then _errors($account_number_array[$i])

    $tdDHL = _StringBetween($page_source, '<td id="tdDHL" class="TTRow_right">', '</td>')
    If @error Then _errors($account_number_array[$i])
    If StringInStr($tdDHL[0], "/") Then
        $tdDHL_array = StringSplit($tdDHL[0], "/", 1)
    Else
        Global $tdDHL_array[3]
        $tdDHL_array[1] = "null"
        $tdDHL_array[2] = "null"
    EndIf

    $tdWAp = _StringBetween($page_source, '<td id="tdWAp" class="TTRow_right">', '</td>')
    If @error Then _errors($account_number_array[$i])

    $tdTTQW = _StringBetween($page_source, '<td id="tdTTQW" class="TTRow_right">', '</td>')
    If @error Then _errors($account_number_array[$i])
    If StringInStr($tdTTQW[0], "/") Then
        $tdTTQW_array = StringSplit($tdTTQW[0], "/", 1)
    Else
        Global $tdTTQW_array[3]
        $tdTTQW_array[1] = "null"
        $tdTTQW_array[2] = "null"
    EndIf

    FileWriteLine($file_h, _
            $account_number_array[$i] & "," & _
            $spanCname[0] & "," & _
            $strongDate[0] & "," & _
            $spanchangVal_array[1] & "," & _
            $spanchangVal_array[2] & "," & _
            $strongCvalue[0] & "," & _
            $tdDHL_array[1] & "," & _
            $tdDHL_array[2] & "," & _
            $tdWAp[0] & "," & _
            $tdTTQW_array[1] & "," & _
            $tdTTQW_array[2])
Next
FileClose($file_h)
MsgBox(0, "AutoIt", "Finished!")

Func _errors($pass)
    MsgBox(0, "AutoIt", "Error - not a valid stock number: " & $pass)
    ShellExecute("http://m.bseindia.com/StockReach.aspx?scripcd=" & $pass)
    FileClose($file_h)
    Exit
EndFunc   ;==>_errors

I changed this
$tdTTQW_array[2] & "," & _
to this
$tdTTQW_array[2])

Thank you very much for the script and your support.

You are welcome.

Let's hope that they don't change the website's layout