用VB来写看看
0 ~; `$ }- U* ~/ f: m& f% g+ Y- I! d; V1 H4 n1 s0 E& L4 ?# J
- # w* x' T: j3 }9 B
- 9 ?; l5 \& W2 \. r( b
- if DATAPERIOD<>0 then
. Y! a6 A1 w5 a* | - begin8 x* N9 h- M7 [, ~. J
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
V8 _- X! m) U: W8 \5 r6 v0 ~! y - exit;: a: I' E8 q1 X' p
- end;
6 v" u2 Y6 V, T' x - ( p# ~* e+ v( }+ y( f
- dd:=date;$ V3 K+ s# d- {
- % y8 T" n+ E* D* D {/ {0 ?1 p) E
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
7 V% Z' a6 u# P - for i=25 to 36 do8 Y, f9 T8 R) N
- begin9 s0 F$ P) [& S1 v& {
- str:=str+';'+NUMTOSTR(DYNAINFO(i),2);; i. @0 X6 ~7 b1 S- F
- end;
' a4 r4 [& ^6 n0 W+ k - + ?8 f9 U) X- t/ r# B% |1 s: `
- <%& e: h/ ^; W$ f9 O
- vd1 = FFL.VarData("dd")
8 W3 a- s. `8 \; R& u2 W3 d - vd2 = FFL.VarData("str")
" |& X( I( }) M) n% V8 s- A - nFirst = FFL.VarStartIndex("dd") % h% ^6 D$ o1 y9 A2 \& I. ^* B9 w
- 2 I) f% g8 Z+ u, O
- Set fso=CreateObject("Scripting.FileSystemObject")
( G/ f2 m2 [% R# a - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
! ~0 M, c4 H% w& Q0 v - , T6 }9 J& z/ o1 l0 S, ?
- Set f1 = fso.OpenTextFile(fn,8,True)6 ~4 f% V7 c( O6 I
- f1.writeline vd2
- A. V6 C$ L, `( w: Q4 k9 r# z - f1.close
8 F ^/ D& f+ x& U
/ `* g& i2 k1 w. B! y4 x E0 k" A/ N- %>7 s: P- q6 G$ w* S8 v1 J
# V. \, V) h" g2 @* N1 h- aa:time;
) f# b: p# V4 x6 l - Show File Failed, r; l* @: {4 t) ^
" u% Q3 ?4 d0 v; \" [/ C
3 A2 W* N8 |$ ?. J
复制代码
|- w! _+ x% p7 s( ^! { |