PDA

View Full Version : strategy id ' ' does not exist


highflyer
12-07-2005, 05:48 AM
After generating a text file with Amibroker I get this message. What is wrong?

I think the text created has a space at the end. How can I prevent ninjatrader from "reading" that space as well?

This is my script:

Dim oWSH
Dim oArgs
Dim oFSO
Dim oFile

Dim i
Dim iResult
Dim sText


Const cstPathForAlertFile = "C:\Program Files\NinjaTrader 5\incoming\oif.txt"
Const cstScriptName = "orderscript"


Set oWSH = WScript.CreateObject("WScript.Shell")
Set oArgs = WScript.Arguments

If oArgs.Count > 0 Then

For i = 0 To oArgs.Count - 1
sText = sText & oArgs.Item(i) & " "
Next

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile= oFSO.CreateTextFile(cstPathForAlertFile, True)
oFile.WriteLine sText
oFile.Close
iResult = oWSH.popup("oif.txt file created", 3, cstScriptName, 64)
Else
iResult = oWSH.popup("No Command Line Params Passed!" & vbCrlf & "Alert File NOT Created",,cstScriptName, 16)
End If


set oFile = Nothing
Set oFSO = Nothing
Set oArgs = Nothing
Set oWSH = Nothing




This is the text file for ninjatrader:

PLACE;SIM101;FDAX 12-05;Sell;1;MARKET;0;0;Day;;;;

(there is as space at the end of this textfile)

NinjaTrader_Dierk
12-07-2005, 08:18 AM
You need to write out the text without (!) the trailing blank. Although I'm not familiar with AmiBroker I suggest the problem lies somewhere in

For i = 0 To oArgs.Count - 1
sText = sText & oArgs.Item(i) & " "
Next

highflyer
12-07-2005, 12:34 PM
Dierk,



I can write : sText = sText & oArgs.Item(i) & " "


as: sText = sText & oArgs.Item(i) & "" (<note: no space)

but than also FDAX 12-05 is written as FDAX12-05 (also with no space)

I don't understand.Think I need a new script for Amibroker...(maybe)

greetz from Amsterdam

NinjaTrader_Ray
12-07-2005, 02:53 PM
Can you not write something that trims sText last space character? I am not familiar with what language Amibroker is based on but in .NET I could do something like:

sText.Remove(sText.Length - 1, 1)

highflyer
12-08-2005, 05:43 AM
Solved the problem with RTrim:

oFile.WriteLine RTrim(sText)

And now it works.Thanks