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.
Magno
unregistriert
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Dim oShell Set oShell = CreateObject("WScript.Shell") Dim val1 val1 = 1 Dim strJson, q, r, s, t, u, strCmd q = Chr(34) '" r = Chr(123) '{ s = Chr(125) '} t = Chr(92) '\ u = Chr(58) ': strCmd = "curl -X " &q& "Content-Type: application/json" &q& " -X POST https://someurl.com/test.json -d " strJson = q&r&t&q strJson = strJson & "Variable1" &t&q&u&t&q& val1 &t&q&s&q oShell.Run strCmd & strJson Set oShell = Nothing |
Quellcode |
|
1 2 3 4 5 6 7 |
dim i dim mymacd if scriptberechneformel("macd(close)", mymacd) then for i= 1 to AllePerioden Ergebnis(i)=mymacd(i) next end if |
Quellcode |
|
1 |
GetDaten "Close", close |
Magno
unregistriert
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 34 35 36 37 38 39 40 41 |
Dim LetztePeriode, close, open, high, low, val1, val2, val3, val4 GetDaten "Close", close LetztePeriode = LetzteDatenPeriode(close) val1 = close(LetztePeriode) GetDaten "Open", open LetztePeriode = LetzteDatenPeriode(open) val2 = open(LetztePeriode) GetDaten "High", high LetztePeriode = LetzteDatenPeriode(high) val3 = high(LetztePeriode) GetDaten "Low", low LetztePeriode = LetzteDatenPeriode(low) val4 = low(LetztePeriode) Dim oShell Set oShell = CreateObject("WScript.Shell") Dim strJson, q, r, s, t, u, v, strCmd q = Chr(34) '" r = Chr(123) '{ s = Chr(125) '} t = Chr(92) '\ u = Chr(58) ': v = Chr(44) ', strCmd = "curl -X " &q& "Content-Type: application/json" &q& " -X PUT https://someurl.com/test.json -d " strJson = q&r&t&q strJson = strJson & "Close" &t&q&u&t&q& val1 &t&q&v strJson = strJson &t&q & "Open" &t&q&u&t&q& val2 &t&q&v strJson = strJson &t&q & "High" &t&q&u&t&q& val3 &t&q&v strJson = strJson &t&q & "Low" &t&q&u&t&q& val4 &t&q&s&q oShell.Run strCmd & strJson, 0, false Set oShell = Nothing |
Magno
unregistriert
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
dim i dim Indikator1, var1 if scriptberechneformel(„Indikator1()“, Indikator1) then for i= 1 to AllePerioden LetztePeriode = letztedatenperiode(Indikator1) var1=Indikator1(LetztePeriode) next end if dim i2 dim Indikator2, var2 if scriptberechneformel("Indikator2()", Indikator2) then for i2= 1 to AllePerioden LetztePeriode = letztedatenperiode(Indikator2) var2=Indikator2(LetztePeriode) next end if |
Quellcode |
|
1 2 |
LetztePeriode = letztedatenperiode(Indikator1) var1=Indikator1(LetztePeriode) |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Lenzelott« (3. September 2015, 10:55)
Quellcode |
|
1 2 3 |
if scriptberechneformel(„Indikator1()“, Indikator1) then var1=letztedatenperiode(Indikator1) end if |
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »Bernd« (3. September 2015, 17:36)