用VB来写看看
N5 _ J8 A4 k: j+ m( n* J
) V$ B) K/ O- D. F; \% n
& Y- S! s' D3 [5 b' x) U8 C- ' ]9 ^# x( c5 z ^
- if DATAPERIOD<>0 then & R: R0 E) j4 X1 y+ v: U
- begin, D8 D& A8 k/ W/ s& Y5 [
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析'); a2 H6 E [7 |0 _" t
- exit;
7 w; T6 d- S! l% u6 o# A - end;7 s1 P/ d2 o# o/ u
- A( Q- Y$ U* \4 S1 {; v% v; b" K
- dd:=date;
v, G8 X4 x1 k6 t; h& ]. c6 s
( M$ ?! p4 i+ j0 @8 A( }- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);+ {- s2 \: C+ W8 ?4 z
- for i=25 to 36 do" _, N; n* Q8 }* [& o+ N0 _& C: \
- begin) i; N) ~' S' u' B% I
- str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
; W' x4 _1 \8 O2 O - end;; _2 d( _( c- _; k& G
- ( R& Y' L+ _, @& u: J+ C5 N6 o
- <%' ^& S8 f* {. ?( M, j
- vd1 = FFL.VarData("dd")
$ K& \) U8 I7 K, i# R5 A4 P1 S - vd2 = FFL.VarData("str")& Q2 ]. {0 P# }8 ^/ h7 a# k
- nFirst = FFL.VarStartIndex("dd")
: _/ p! g) t& R9 k' g7 w9 f2 f8 ~& Q
: o) v) q) }/ z/ }: q0 X- Set fso=CreateObject("Scripting.FileSystemObject")
! h* A. ]* b% D+ V - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"- i; [9 l. c( i: P' R/ P/ R& ?
2 w2 P7 h9 b: b* s- Set f1 = fso.OpenTextFile(fn,8,True)) y7 W1 J; P; ~
- f1.writeline vd2
! y9 z1 j* ~0 N3 Z - f1.close7 Z0 p4 J2 Y; a; B7 z% s' b
$ n& e! a2 r! S* w- %>
% L, L4 N# m( M1 r+ | - % V: Y& {0 }7 [/ D1 B
- aa:time;
6 T4 T' u; _7 T - Show File Failed
( g6 B% j# q5 E U - ' m! ]# Q+ Y' l6 N/ H6 C# M$ f: Z
- ) ^% I" R9 {* R5 Z3 n
复制代码
7 [; C( q7 w4 U! e |