用VB来写看看
( t& C" S" U# s. m8 h' s$ e. ` \$ j" v) ?- k
: R7 ~$ F- F2 E S- # ^- M7 M3 L5 \7 V- y$ j8 f
- if DATAPERIOD<>0 then 8 \% c: R0 p; L, p+ I
- begin& r4 J2 k8 G7 @
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
- z: p+ L) l& G4 w - exit;
" o: I$ h" P4 M" L; N) F/ W0 b - end;
6 Q+ a, `/ }1 v( r. e - 3 o7 }7 b; b- r% c, A5 f" M
- dd:=date;$ d" i" H( p. o) u6 M5 f' R
- $ ^8 f. n* f2 ^, q6 ~" E
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
+ a5 q7 g( [4 h0 [ - for i=25 to 36 do
: g8 p D+ H7 H - begin
- t# q9 E5 i- n7 u# A1 g, V- I - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);$ ?2 J. D& H9 E; [( Y) ^4 B& q- i
- end;3 l6 t2 O2 o* f! u5 ~
- ) z. N: |( ]- S
- <%
) y; b# p: x! _3 |: X6 _9 A& z1 i - vd1 = FFL.VarData("dd")$ o- h- d8 v. o6 o) U3 J# f
- vd2 = FFL.VarData("str")2 h/ c/ e6 `) }, e
- nFirst = FFL.VarStartIndex("dd") 7 P6 L( l$ O. A
- 4 S: t& P% i' Z; r
- Set fso=CreateObject("Scripting.FileSystemObject")0 ^; f6 ]: b9 f* I% l; r o
- fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"/ X+ I6 y0 P2 P# x
- 4 m/ J* W; d# P. C
- Set f1 = fso.OpenTextFile(fn,8,True)" `, H; ]6 y2 ^/ M* R" `
- f1.writeline vd2. P p. G7 N& D4 ?7 V. R
- f1.close
" ?3 Q/ _8 L: P4 h0 S2 i% v; n
) _6 Y N6 C6 w1 P$ f- %>
. u5 L9 I4 c" }8 l8 ^
- ?- j& J- h, |+ ~& O7 i- aa:time;
$ Q! R9 u. @" a" t6 l ^( ~4 ^/ b' v& \ - Show File Failed3 j* g0 z5 X8 L: u
- 2 }* g' A. M. i4 @, N
. @: C7 B) N+ o
复制代码
: w7 `4 L8 `3 m" k5 ]' ` |