用VB来写看看
M/ B9 w! X2 N7 ]7 S8 W
$ u3 B7 K# ?9 [/ q5 L6 b+ N
( C8 e7 x7 V) Z# G( W/ `; F x- + |- R% c+ |* i3 j
- if DATAPERIOD<>0 then + ?/ t/ _ q: d* v$ V8 G1 D
- begin' `1 x$ Q P9 W) \
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');! i L( p! \ r9 l
- exit;
' [0 {4 a2 g3 b2 l" `$ X: w) Q" a - end;, U' b" O8 {, `9 N n/ N# w$ t
$ ]8 C2 X7 u' H, A, X+ q- dd:=date;1 Y' e2 i& }6 s5 P
- 3 {, Y: J& {. r, D9 _6 c
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
' w H% L: S% o" d' y6 t: }; E - for i=25 to 36 do
$ Z/ `$ z0 ]0 M: ? - begin
7 u0 r4 i% @5 D9 q0 R" q5 W - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);( p+ b6 Z" F/ i3 H: k( c
- end;
3 W& K7 d* O/ q - % H- q* I& Z9 D; b* l
- <%
: n# Y- m: T, ~" @/ B b - vd1 = FFL.VarData("dd")
, L( x0 g: f* o2 P# \( g - vd2 = FFL.VarData("str")
0 d, o: R B( l* ]& e - nFirst = FFL.VarStartIndex("dd")
! K$ I7 j' t9 ^$ s+ g( B
0 M1 U: ~7 W) o" O1 I0 L: y. M- Set fso=CreateObject("Scripting.FileSystemObject")' I: o" g1 D8 n8 }+ f, h- f
- fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt". o O' I3 Y. U8 K9 `- h' q
- ' z2 ]1 {# Z+ v& M# f& l/ U
- Set f1 = fso.OpenTextFile(fn,8,True)
/ X4 o; b0 M: X3 Z - f1.writeline vd2, {. |- Z# q3 b% j; B
- f1.close
- b6 c; L0 T$ K `/ i ]
/ j+ i; ]" D: G, g1 `! c: w3 c6 s- t% {- %>
U/ D/ H! W! u$ Z+ s8 |1 Z
* k9 W; ^$ c1 T1 m- `; \: E+ A1 a- aa:time;5 c' q, \/ N% e+ p8 g! F7 l
- Show File Failed2 a9 u2 a! d3 V7 b* g' O
/ y4 B5 o7 I0 D! p. Q* G$ @8 D
9 G z: `8 F) `1 r, L/ n3 U: Z
复制代码 $ ]- M2 R: [0 d
|