|
PureBytes Links
Trading Reference Links
|
If this is for a one time event you might as well use the js that
already exists ... If this is something you are going to do with
more regularity there are much faster ways ...
--- In amibroker@xxxxxxxxxxxxxxx, "Ulrich Plett" <uplett@xxx> wrote:
>
> Hi
> I'm trying to write Tomasz Export.js script
> in VBScript. I get an error message saying
> something like no object returned.
> I only get an object when I use oStocks.Item(0).
> Please take a look at the attached script. Need help
> Thanks
> Olli
>
> -------------------------------------------------------
> For each ticker in filenames
> WScript.Echo "Export of " & ticker & " start"
> set oStocks = oAB.Stocks
> set oStock = oStocks.Item(ticker) ' Object value: nothing
> <--------------------
> set oStock1 = oStocks(ticker) ' Object value: nothing
> <--------------------
> set oStock2 = oStocks.Item(0) ' Object value: {...}
Object
> Qty = oStock.Quotations.Count ' <------------------------
error
> message is here
>
> ' debug mit "CSCRIPT //X scriptname.vbs"
> ' VBScript Run-time Errors
> '
http://msdn.microsoft.com/scripting/vbscript/doc/vsmscRunTimeErrors.h
tm
> ' VBScript Syntax Errors
> '
http://msdn.microsoft.com/scripting/vbscript/doc/vsmscSyntaxErrors.ht
m
>
> Option Explicit
>
> Const path2database = "C:\Programme\Amibroker\Yahoo_DEU"
> Const ForReading = 1, ForWriting = 2, ForAppending = 8
>
> Function FileExist(dateiname)
> Dim WshShell, fso
> Set WshShell = WScript.CreateObject("WScript.Shell")
> Set fso = CreateObject("Scripting.FileSystemObject")
> FileExist = fso.FileExists(dateiname)
> Set fso = nothing
> Set WshShell = nothing
> End Function
>
> Sub FileDelete(dateiname)
> Dim WshShell, fso, f
> Set WshShell = WScript.CreateObject("WScript.Shell")
> Set fso = CreateObject("Scripting.FileSystemObject")
> If fso.FileExists(dateiname) Then
> Set f = fso.GetFile(dateiname)
> f.delete
> Set f = nothing
> End If
> Set fso = nothing
> Set WshShell = nothing
> End Sub
>
> Function ReadFile2Arr(dateiname)
> Dim Fields()
> Dim objFSO, f, i
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set f = objFSO.OpenTextFile (dateiname, ForReading)
> i = 0
> Do Until f.atEndOfStream
> Redim Preserve Fields(i)
> Fields(i) = f.ReadLine
> i = i + 1
> Loop
> f.Close
> Set objFSO = nothing
> ReadFile2Arr = Fields
> End Function
>
> Function ExportAB(filename)
> Dim oAB, fso, f, oStocks, oStock, oStock1, oStock2
> Dim filenames, ticker, Qty
> Set oAB = CreateObject("Broker.Application")
> If Not oAB.LoadDatabase(path2database) Then
> WScript.Echo "No database found! "
> WScript.Quit
> End If
>
> FileDelete(filename)
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set f = fso.OpenTextFile(filename, ForWriting, true)
> f.WriteLine("VERSION;1;2")
> f.WriteLine("KURSE")
> filenames = ReadFile2Arr("firmen.txt")
> For each ticker in filenames
> WScript.Echo "Export of " & ticker & " start"
> set oStocks = oAB.Stocks
> set oStock = oStocks.Item(ticker) ' Object value:
nothing <--------------------
> set oStock1 = oStocks(ticker) ' Object value:
nothing <--------------------
> set oStock2 = oStocks.Item(0) ' Object value: {...}
Object
> WScript.Echo oStocks.Count
> WScript.Echo ticker
> WScript.Echo oStock.Quotations.Count
> WScript.Echo oStock1.Quotations.Count
> WScript.Echo oStock2.Quotations.Count
> ' Qty = oStock.Quotations.Count
> ' WScript.Echo Qty
> ' Qty = 50
> ' for i= Qty - 10 to Qty
> ' set oQuote = oStock.Quotations(i)
> ' WScript.Echo oQuote.Volume & ";" & oQuote.Open & ";" & _
> ' oQuote.High & ";" & oQuote.Low & ";" &
oQuote.Close
> ' f.WriteLine oQuote.Volume & ";" & oQuote.Open & ";" & _
> ' oQuote.High & ";" & oQuote.Low & ";" &
oQuote.Close
> ' next
> Next
> f.WriteLine("ENDE")
> f.Close
> End Function
>
> ExportAB("wiso.txt")
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Try Online Currency Trading with GFT. Free 50K Demo. Trade
24 Hours. Commission-Free.
http://us.click.yahoo.com/RvFikB/9M2KAA/U1CZAA/GHeqlB/TM
--------------------------------------------------------------------~->
Please note that this group is for discussion between users only.
To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com
For other support material please check also:
http://www.amibroker.com/support.html
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/amibroker/
<*> To unsubscribe from this group, send an email to:
amibroker-unsubscribe@xxxxxxxxxxxxxxx
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
|