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)