用VB来写看看
; h+ R! @: G0 C% u2 `( V6 m7 S$ Q' J& z6 ~: L J
- # o& c9 V& Z+ c; q {, s, U" x: H0 T
5 N, f" d" h5 q( t- if DATAPERIOD<>0 then
. {2 n- V& u% `8 y/ T0 M - begin
( ^2 [9 x" y' R0 W! O9 j0 c - DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');" g4 h- X3 w L+ p6 u
- exit;
- j4 W0 e" t+ G8 H O - end;! n. p$ ]8 D& ^# u: O+ H/ n7 w
- % B3 d! a. p4 k+ L& {- d- X
- dd:=date;
& T ~7 c, S& T7 J6 r b - 6 g! g3 S; G5 Z- d1 N ?
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
' x' r& f& E r# D6 Q - for i=25 to 36 do
+ W$ Y0 L# t* B H5 U- A( T( f - begin7 B+ V }( x& H5 T
- str:=str+';'+NUMTOSTR(DYNAINFO(i),2);5 b& L8 b+ J& G; W: B. s M
- end;: ^6 q5 |& c$ w3 x8 z! A
- . C. J! W- C- z$ q( L" k4 {2 G
- <%
+ X6 Y* E; y, {+ c - vd1 = FFL.VarData("dd")% V* D$ {0 m4 r
- vd2 = FFL.VarData("str")
$ U y% {( g: n$ {% P! L - nFirst = FFL.VarStartIndex("dd") , s4 g* h3 Q$ _8 t
2 t6 |$ p2 ~: h+ r9 d2 m- ~6 ?& ?- Set fso=CreateObject("Scripting.FileSystemObject")" v5 ?) D; S) n, {& V
- fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"' j) [6 E7 {' j1 M5 q# Z
- 2 y9 ]0 `$ U- L8 N* y5 q9 R
- Set f1 = fso.OpenTextFile(fn,8,True)
- B$ O3 S; O# R$ a# T - f1.writeline vd2# G, ]$ w4 W6 j$ M1 Y
- f1.close/ Z6 F9 }4 K, U9 u/ W% S
- 6 I7 }+ ]4 ^/ k1 I' B* Z" a% Y
- %>
7 d, ~* L; `: v" K3 z" K) u - 9 ]: L9 {* |& v4 N# c7 K
- aa:time;7 L& ]/ M( I# g: t
- Show File Failed Z& v7 J4 ^8 k+ K7 v6 L* F2 M
% W. z/ Y9 ?9 T+ \5 g2 y3 R- + S7 ]' \) U$ Y" a( W" @) d ?
复制代码 5 ]) G. x$ O3 k, V! ~/ P
|