Script-Tradeinfo in einen Textfile
Hallo,
ich gebe alle Infos von Script-Tradeinfo in einen Textfile geschrieben. Leider werden nicht alle Infos richtig dargestellt.
Welche Bedeutung hat:
1 exitreason
0 stopnr
Wie kann ich als Datum ausgeben?
9,99601364135742 investStart
9,89947993308306 investEnd
39570,6388888889 startdate
39570,6458333334 enddate
Danke
Ralf
TradeInfo.txt
******************
Start +++++++++++++++++++++++++++++++++++++++++++++++++++++
02.05.2008 15:44:05 Now
-1 position
23 startperiod
24 endperiod
1 tradedperiods
9,99601364135742 investStart
9,89947993308306 investEnd
9,89704355597496E-02 paidcommissions
-9,65337753295898E-02 opendrawdown
1 exitreason
39570,6388888889 startdate
39570,6458333334 enddate
6,09292536973953E-02 stückzahl
989,605293028057 cash
0 zinsen
0 paidtax
162,434997558594 enterbasis
162,395004272461 exitbasis
0 maxgewinn
0 stopnr
0 pyramidstückzahl
162,434997558594 tradehigh
162,395004272461 tradelow
Ende +++++++++++++++++++++++++++++++++++++++++++++++++++++
vbscript:
'************************************
dim i
dim aktTradeNr
dim startperiod
dim endperiod
dim wert
dim datum
dim TradeStartdatum
dim DatenOffset
if tradeanzahl>0 then
'Zuerst ermitteln, welcher Offset in den Perioden von
'Tradeliste und Chartdaten besteht
getdatum datum
TradeStartdatum=tradeergebnis(1,"startdate")
Startperiod=tradeergebnis(1,"startperiod")
for i=1 to alleperioden
if datum(i)>=TradeStartdatum then
DatenOffset=i-Startperiod
exit for
end if
next
' Jetzt das gewünschte Ergebnis kopieren
for aktTradeNr = 1 to tradeanzahl
startperiod=tradeergebnis(akttradenr,"startperiod")
endperiod=tradeergebnis(akttradenr,"endperiod")
' Hier wird "Opendrawdown" kopiert
' ansonsten stehen zur Verfügung:
' "position"
' "startperiod"
' "endperiod"
' "tradedperiods"
' "investStart"
' "investEnd"
' "paidcommissions"
' "opendrawdown"
' "exitreason"
' "startdate"
' "enddate"
' "stückzahl"
' "cash"
' "zinsen"
' "paidtax"
' "enterbasis"
' "exitbasis"
' "maxgewinn"
' "stopnr"
' "pyramidstückzahl"
' "tradehigh"
' "tradelow"
wert=tradeergebnis(akttradenr,"cash")
position=tradeergebnis(akttradenr,"position")
startperiod=tradeergebnis(akttradenr,"startperiod")
endperiod=tradeergebnis(akttradenr,"endperiod")
tradedperiods=tradeergebnis(akttradenr,"tradedperiods")
investStart=tradeergebnis(akttradenr,"investStart")
investEnd=tradeergebnis(akttradenr,"investEnd")
paidcommissions=tradeergebnis(akttradenr,"paidcommissions")
opendrawdown=tradeergebnis(akttradenr,"opendrawdown")
exitreason=tradeergebnis(akttradenr,"exitreason")
startdate=tradeergebnis(akttradenr,"startdate")
enddate=tradeergebnis(akttradenr,"enddate")
stueckzahl=tradeergebnis(akttradenr,"stückzahl")
cash=tradeergebnis(akttradenr,"cash")
zinsen=tradeergebnis(akttradenr,"zinsen")
paidtax=tradeergebnis(akttradenr,"paidtax")
enterbasis=tradeergebnis(akttradenr,"enterbasis")
exitbasis=tradeergebnis(akttradenr,"exitbasis")
maxgewinn=tradeergebnis(akttradenr,"maxgewinn")
stopnr=tradeergebnis(akttradenr,"stopnr")
pyramidstueckzahl=tradeergebnis(akttradenr,"pyramidstückzahl")
tradehigh=tradeergebnis(akttradenr,"tradehigh")
tradelow=tradeergebnis(akttradenr,"tradelow")
for i = startperiod to endperiod
if i+datenoffset <= AllePerioden then
ergebnis(i+datenoffset)=wert
end if
next
next
Dim filesys, filetxt
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile("c:\TradeInfo.txt", 8, True)
'Uhrzeit und letzten wert speichern
filetxt.WriteLine("Start +++++++++++++++++++++++++++++++++++++++++++++++++++++" )
filetxt.WriteLine(Now & chr(9) & "Now" )
filetxt.WriteLine(position & chr(9) & "position" )
filetxt.WriteLine(startperiod & chr(9) & "startperiod" )
filetxt.WriteLine(endperiod & chr(9) & "endperiod" )
filetxt.WriteLine(tradedperiods & chr(9) & "tradedperiods" )
filetxt.WriteLine(investStart & chr(9) & "investStart" )
filetxt.WriteLine(investEnd & chr(9) & "investEnd" )
filetxt.WriteLine(paidcommissions & chr(9) & "paidcommissions" )
filetxt.WriteLine(opendrawdown & chr(9) & "opendrawdown" )
filetxt.WriteLine(exitreason & chr(9) & "exitreason" )
filetxt.WriteLine(startdate & chr(9) & "startdate" )
filetxt.WriteLine(enddate & chr(9) & "enddate" )
filetxt.WriteLine(stueckzahl & chr(9) & "stückzahl" )
filetxt.WriteLine(cash & chr(9) & "cash" )
filetxt.WriteLine(zinsen & chr(9) & "zinsen" )
filetxt.WriteLine(paidtax & chr(9) & "paidtax" )
filetxt.WriteLine(enterbasis & chr(9) & "enterbasis" )
filetxt.WriteLine(exitbasis & chr(9) & "exitbasis" )
filetxt.WriteLine(maxgewinn & chr(9) & "maxgewinn" )
filetxt.WriteLine(stopnr & chr(9) & "stopnr" )
filetxt.WriteLine(pyramidstueckzahl & chr(9) & "pyramidstückzahl" )
filetxt.WriteLine(tradehigh & chr(9) & "tradehigh" )
filetxt.WriteLine(tradelow & chr(9) & "tradelow" )
filetxt.WriteLine("Ende +++++++++++++++++++++++++++++++++++++++++++++++++++++" )
filetxt.Close
else
'Ohne Tradeliste: Alles auf 0 setzen
for i=1 to alleperioden
ergebnis(i)=0
next
end if