用VB来写看看2 o6 t# \7 A5 C/ }8 t! ~
$ m- ]+ b( ~) n0 L% |- Q' ~ p- $ U1 v$ R& {6 o+ v3 }- J8 E. `
- $ Q+ a) l$ M" c5 i5 T! N; n) l- M
- if DATAPERIOD<>0 then
1 ? a7 r8 F+ t Z; ` - begin5 |' D* t0 N5 G/ A* r7 D+ C* J% ]
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');$ b; E1 t2 T2 D( L5 \6 N
- exit;; S, h. C% e' t, z) D0 h( j* I
- end;
- J. q* e7 q; X - " u4 N6 c4 s/ V+ R
- dd:=date;
: k6 m. S* z0 D8 Q$ l4 U p
5 x7 W |8 R$ W7 p- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);. }' Q: q5 [6 {5 ?+ |9 \7 b
- for i=25 to 36 do
, b. C/ B; V$ n2 g& f - begin$ i3 a; V- }7 O# H
- str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
9 M V8 O2 @; T- |' O/ d8 {' [3 ~ - end;
; m& L. p) x! e. R; A* `5 i - 1 h8 G( B) p) K% k, W
- <%
* s/ Q8 k) l5 j+ ^ - vd1 = FFL.VarData("dd")9 u" W" ^) \6 w* ` Q9 E2 ]
- vd2 = FFL.VarData("str"). M* e; D0 I$ T& i; M7 K
- nFirst = FFL.VarStartIndex("dd") 4 W1 w" t& i$ j3 u- F. a
- , a+ H+ g, v9 R+ `& q
- Set fso=CreateObject("Scripting.FileSystemObject")
5 g# B4 k( q0 l* a9 ~0 z' u - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt". i' {: ?. v7 f9 L! h7 j
- # O" M6 d' Y3 W5 ^' N$ ~3 O
- Set f1 = fso.OpenTextFile(fn,8,True)0 I% R+ J3 r6 a' Z
- f1.writeline vd2* \/ f% B7 H, J
- f1.close
* a* u# B" @& z: n k - 0 G; A7 K) ]! v- u% Q" I3 U
- %>
) e9 m8 E; y! g: I- b S a - 0 G8 P9 ]5 E! P, _
- aa:time;
2 q! e. s, z) J! R1 \ - Show File Failed, [8 ^( p4 }1 @$ y, J
3 y+ S$ v3 A# m# ^7 }5 p) p6 ^7 [
3 a4 F/ R3 K1 E. l# V/ F# R+ d
复制代码
4 D9 f6 Z+ k( w. b8 F2 E) w |