Lieber Besucher, herzlich willkommen bei: INVESTOX-Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
dim i, wshShell Set filesys = CreateObject("Scripting.FileSystemObject") Set wshShell = CreateObject( "WScript.Shell" ) Set filetxt = filesys.OpenTextFile("C:tempTestoutput.txt", 8, True) x=TestErg("AnnualNetProfit%") if TestErg("AllTrades")>0 then filetxt.WriteLine( vbtab & TestErg("AllTrades") & vbtab & round(x,5) & vbtab & round(TestErg("EquityRSquared"),5) & vbtab & round(TestErg("MaxUnderwaterDrawdown"),5) & vbtab & TestErg("LongTrades") & vbtab & TestErg("ShortTrades") & vbtab & TestErg("AnnualNetProfit%") & vbtab & TestErg("EquitySharpeRatio")) end if ' LogbuchMeldung 2, 1, "Datei geschrieben", "Datei geschrieben" if err.number<>0 then LogbuchMeldung 0, 1, "ErrHandler", "Calling Error Handler..." call myErrHandler end if set filetxt = nothing set filesys = nothing set wshshell = nothing sub MyErrHandler for i =1 to 30 LogbuchMeldung 0, 1, "Dateifehler", "Kann Ausgabedatei nicht schreiben, Versuche erneut...." WScript.Sleep(500) filetxt.WriteLine( vbTab & SCES & vbTab & TestErg("AllTrades") & vbTab & round(x,5) & vbTab & round(TestErg("EquityRSquared"),5) & vbTab & round(TestErg("MaxUnderwaterDrawdown"),5) & vbTab & TestErg("LongTrades") & vbTab & TestErg("ShortTrades") & vbTab & TestErg("LongShortRatio") & vbTab & TestErg("EquitySharpeRatio")) if err.number=0 then exit for end if next end sub Ergebnis = x |