用VB来写看看$ U* Q6 l$ W4 l q
9 V- F; \# C' z, W
5 z i1 C& b) H# G- e9 g
7 i% F% { u- R& {- if DATAPERIOD<>0 then
6 L+ i$ l+ _5 T H - begin' Q6 W0 r1 Y, ]! `/ T. y0 z* q
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');5 o$ {) s* B3 {. u+ E4 n( ^# L
- exit;
t! k1 _$ d7 ]5 P- @) F( X - end;0 \! }; t5 b( b2 I
- " ^" h# g- G1 P
- dd:=date;
% r/ l6 _6 |0 k
$ O9 Q3 j( l+ G- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
2 L5 q% v) @" ^0 {2 y8 Q - for i=25 to 36 do
2 t2 w( P$ {! a - begin/ b7 T% k1 `# e; K z
- str:=str+';'+NUMTOSTR(DYNAINFO(i),2);3 C0 r+ F) N9 r9 S% i# R
- end;+ K3 r8 x4 k9 I, K1 i5 z4 v( z
5 p( y, S% D: b2 g8 i" V/ B- <%
8 w. r) s, o- j: v - vd1 = FFL.VarData("dd")
, ? X2 X5 s, d/ K - vd2 = FFL.VarData("str"). |! G _6 G' ^4 v- Q" h. n
- nFirst = FFL.VarStartIndex("dd") / ?% @7 s4 }" D; S" E
- ; Q8 K- o4 o, e) V/ u% \2 ~. b" _
- Set fso=CreateObject("Scripting.FileSystemObject")% `# y: d7 w% M" S( R f9 e2 c
- fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
# z0 z. s( M; |& Z! x - : X8 Z9 T1 @' s2 H! A% Q* |
- Set f1 = fso.OpenTextFile(fn,8,True)
& t# X" I; Q6 O4 e - f1.writeline vd25 c5 }% k* |2 B8 p& q! U4 k
- f1.close
3 H" b4 P7 y' U i( ], x4 Z& R - 6 t! z3 b/ M1 f7 n) K
- %>. h. ~4 p3 z( a* J) e! D
! p, o: J- r) _- x+ w; V" L C- aa:time;
2 w5 ?) F6 } Z - Show File Failed
: _6 K F% m4 c0 H$ |$ r: Y6 ` - ) M) u) E; G7 t, d" C
8 M( ] D% Y3 d+ W
复制代码 0 y! _8 K( R6 O
|