Also in diesem etwas ähnlich gelagertem Fall war Herr Knöpfel ja so freundlich das VB Script zu posten. Leider
verstehe ich das Script nicht so ganz und dachte beim Datum gibts bestimmt noch einen anderen Weg
, was wohl nicht der Fall ist. Damals konnte ich mir noch anders helfen.
Wert in Variable festhalten
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
VBScript(#>>'VBScript
Dim FeldC, FeldV, i, j, StartI
GetDaten "Close", FeldC
GetDaten "Volume", FeldV
StartI=ErsteDatenPeriode(FeldV)
for i=ErsteDatenPeriode(FeldC) to LetzteDatenPeriode(FeldC)
Ergebnis(i)=0 ' Wert, wenn nichts gefunden wird
if i>=StartI then
for j=i-1 to StartI Step-1
'Eine Toleranz beim Vergleichen zulassen
if (FeldC(j)/FeldC(i)-1)<0.000001 then
Ergebnis(i)=FeldV(j)
exit for
end if
next
end if
next<<#)
|
was das Thema VB-Script angeht bin ich schon ein Noob. Daher dachte ich, ich teste mal ganz easy mit Code aus der Hilfe
|
Quellcode
|
1
2
3
4
5
|
VBScript(#>>'VBScript
Dim Myfeld
GetDaten "High", Myfeld
next<<#)
|
das gibt aber einen Fehler. Also dachte ich O.k. ersetze ich "High" mit einer kompletten Referenz auf einen Titel und das Feld High, das gibt immer noch einen Fehler.
An der Stelle dachte ich, ich frage jetzt besser mal nach, da ich leider kein Programmierer bin
:
- Mal ganz grundsätzlich zum Einbinden von VB-Scripts: Ich kopiere das in den HS-Code so wie oben, nach dem
|
Quellcode
|
1
|
next<<#)
|
Ist der Script-Code fertig und ich kann dann einfach im HS-Code eine Variable auslesen in dem ich einfach schreibe:
|
Quellcode
|
1
|
Myfeld
|
und dann zeigt mir das die High-Kurse an richtig?
- Falls mir jemand helfen kann das obige script so anzupassen, dass da der Vorjahreskurs rauskommt wäre ich seeehr froh....
Grüße!