用VB来写看看" g4 e0 Y8 z* R% a) I+ G) a
8 t- u, V# ]) i9 Q5 d2 P
- / S$ b; k8 O5 q0 v. ]
7 y! K; }/ Q, ?9 D8 R8 L- if DATAPERIOD<>0 then
) B; u' t( Q4 I! L8 x4 Q5 \ - begin
3 F: s# j: _7 d) d9 x# i$ l9 X4 @0 c - DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
( ? @9 f* \ ^9 O+ Z - exit;8 z5 v R8 M. o e1 R& \; H! Y4 ~
- end;
2 j2 o1 H* ^2 M. _
( n1 @8 J2 s- I' i+ l$ c: h- dd:=date;
8 G0 `" e% ~ V+ c% u - 8 Z/ \2 u4 V$ d. C) X2 z) D! ?
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);' ^7 m! `; ]1 D; G/ F
- for i=25 to 36 do. h8 D& I/ _" k. |3 D$ S7 x; e
- begin
5 W3 I8 R$ y' k5 K- P) p - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);8 @: }5 t0 L4 i7 X
- end;
4 a& |2 T* D* X$ D6 k7 {' d
* p. q' |3 m2 M- <%% [9 Z, y) ~9 ^& s" O$ d% K
- vd1 = FFL.VarData("dd")
4 J( q- a0 a% R9 a/ T: R% {4 p; } - vd2 = FFL.VarData("str")
1 c+ q$ b1 O' J, U _ - nFirst = FFL.VarStartIndex("dd")
. x" J' p5 J3 l3 F; g1 F - # m$ y F+ b- r7 Y. ]
- Set fso=CreateObject("Scripting.FileSystemObject")6 f" F: j8 ]/ M; M3 Q& k
- fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"( N" c; P0 a+ o) y) B
- / u8 n1 l7 d9 V! f* ?8 W% {3 S
- Set f1 = fso.OpenTextFile(fn,8,True)
' {/ B5 n3 z& A' j7 N9 a - f1.writeline vd2
. t' m- V9 U' }% v; W" ~ - f1.close, X, q; ?4 N! x0 R8 E/ H6 _) {
. I( K. U A; |0 j- Q5 @8 h. h) K- %>/ o% t# W" ]; [ n7 ?
- , P D! K) E* @
- aa:time;
5 f- x8 o9 a" X2 O* X x) o - Show File Failed
$ t$ T H* p1 i! T5 |$ d" `
$ R4 b; D I) |: w- Z# V; l
& h0 s" v5 n7 p5 t
复制代码
) p# r9 ^7 U" i w: J1 r; u9 ^% q |