用VB来写看看! q K9 d6 s& S- @: Z# T7 r+ ~
' [) J# P) x- ]; _- b& G: ]( o# Y
- / q8 x, R+ B# T. o* t6 d7 Z5 }
# ]+ F! M% ~( w' Z" U& E- if DATAPERIOD<>0 then
0 z: S N8 h- o% e1 I! f - begin$ c4 o/ w* U v/ T" y# R2 Q
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');$ [* B U7 E5 I
- exit;- l% c- R3 j* N' J! U
- end;
0 B A5 q( @6 R6 \: E - ) }0 |9 D7 O) n# l+ Q# [
- dd:=date;
9 e2 o7 l5 p, u9 i/ M; N5 c - ( e/ r% T0 c" C
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);1 O! V5 J/ I5 U$ y% b) }
- for i=25 to 36 do5 q! k0 T. w9 c2 A% F/ B* o1 r& i
- begin
8 d: D( ^2 h; } P+ b& B' ^# E - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);/ F; J+ B! u+ S# F, s
- end;5 I, j% o, [: D6 e+ K) B
- 5 a$ ]; ?0 ?, l; Q* q6 k6 g4 z
- <%1 x: H! E7 l1 o
- vd1 = FFL.VarData("dd")+ j5 R. d% ]9 }
- vd2 = FFL.VarData("str")
3 K+ h, {& X+ n - nFirst = FFL.VarStartIndex("dd")
* E# V, H" y; t7 B; \! p3 }; \
1 L, p* y/ A9 s/ h! |- Set fso=CreateObject("Scripting.FileSystemObject")
" M, X! F2 j. \5 n; e3 {( i0 P1 ^ l - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
! [ E* d9 |+ F. \8 i3 k
: m! \1 _+ `. k) z8 X- Set f1 = fso.OpenTextFile(fn,8,True): z% M7 _; C0 Q' v$ O" M' c
- f1.writeline vd2
+ x" U* P: a- \$ l' R - f1.close' h0 [9 E0 V* B. F
3 T) G: S' L, F8 \( b- %>& L8 S8 S/ N& u: U& I
) V4 {5 o, s6 Z" I6 }' [) |7 o- aa:time;
, g+ A6 r* y( S# B- R& V7 v; l: P: \ - Show File Failed' y% E) y9 y% z' H, O8 L# v8 {# b
0 }6 ^0 i( Q' F; K: w9 _/ O
- E5 V& t2 V1 e* G
复制代码
& r# V) X0 H! ? |