用VB来写看看
k( v; a8 ~8 E
! x4 l7 i7 p8 P: ^) \/ t# ~* Y- 9 y8 O& B' w) [" v6 b6 d; i; x& T
- 5 K) |- s8 w$ n/ a7 m% F- |5 A' |8 t; q
- if DATAPERIOD<>0 then
# W6 s+ \! v6 \5 h0 Q) o1 I - begin% o8 C* ^4 j$ z& t4 `5 C
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
h/ Y: V: d! Z1 U - exit;, K) U, t) z/ z8 i1 f, o% u0 z
- end;/ Z. B6 e) F4 c/ x7 s6 g
& }0 ]0 q1 q/ d/ _4 S( G$ m6 e- dd:=date;
x( B ?9 X: C3 A- | - ; ~- c* `9 M o2 o+ ?5 d3 u3 x
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);! j. C: R( N0 V K; O0 W
- for i=25 to 36 do7 M; A1 ]$ x E" x% ~) V* N* {
- begin
+ p% _7 U- G9 ~; T; M3 T - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);+ m6 Q% p: p/ x$ j" P2 H |- _
- end;; F; M6 n. [! J! H' \
- $ d, z/ h; w# i+ w
- <%- Z \- x' U% M; N" x4 z' Z
- vd1 = FFL.VarData("dd")5 H2 J. }" c4 B5 R( d5 y$ J2 R" V
- vd2 = FFL.VarData("str")/ E J# |$ ?! @, W5 G' @
- nFirst = FFL.VarStartIndex("dd") * E. M- R. q2 z
- 9 F* w# k: q8 y# M, \ m1 ]# U; j
- Set fso=CreateObject("Scripting.FileSystemObject")
6 C+ d4 b4 u! {- x6 z, J - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
3 ]/ m- [0 g4 ~% n - 7 u" c( N5 Y. V0 Z6 j& [% ^8 g' P
- Set f1 = fso.OpenTextFile(fn,8,True)* h2 j9 j+ T. L( W# \' ~8 t. V# S0 M* ]
- f1.writeline vd2
g. d# i* H/ o `* a - f1.close% J/ _9 _: S8 v7 r
. m) t8 t; m! C1 C+ |4 x9 i' Y- %>/ w* L# ]& b P* ~ R' f: q- A2 r
- 4 o2 C7 O; b( h. I- B9 \! \
- aa:time;
6 a* P6 N6 t& l4 ]* }1 x - Show File Failed+ ]2 `# c# n6 x. k5 M5 I
/ k) B2 G( w3 W
+ E, R: u* i: a6 z
复制代码
9 _+ Y6 w# Z) e/ U' a |