用VB来写看看
' R: r0 I0 j0 E* s
7 V5 l& u S* T4 C
- C% v* ~2 ^7 `' I$ D- " h& V1 p2 r) s5 q* K
- if DATAPERIOD<>0 then
Q7 \' A. w* P - begin& ^5 X% J$ Z7 p+ v+ B
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
: B0 b9 R$ e0 _ y4 G7 }7 Z; o - exit;- u: z! Y( u o6 t4 Z
- end;
# b4 e: p7 o ], |* q6 f) e - * X. |6 G! [4 U9 a. U9 R" O4 y
- dd:=date;% { @6 p+ H" S; s6 T+ z5 X$ J
% }# d0 }. y, P+ L: v- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);: G4 ?' L: J" r+ f
- for i=25 to 36 do6 S) x( q. u2 W' x
- begin1 C, a* w( m' W# Q
- str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
7 Z9 B G4 N3 h6 ~/ Q - end;
. Q5 C# V% v+ }, w$ v6 l
% ?# W! o6 ^+ N- <%/ D( J" H) r/ }/ J
- vd1 = FFL.VarData("dd")% A) S1 M) l5 u5 B x$ g; G9 S
- vd2 = FFL.VarData("str")+ `7 t3 p8 ~6 j" f( Z% ]: e9 J
- nFirst = FFL.VarStartIndex("dd")
4 }/ @ z% S7 y! k( ~9 D6 l
! N1 T% T% \! G# G% G' t$ S7 E- Set fso=CreateObject("Scripting.FileSystemObject")
+ I9 {2 z0 J; j2 I - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
S# P+ c' j: V. |9 i, [ - - q+ }4 K! K, S& ]- ~
- Set f1 = fso.OpenTextFile(fn,8,True)
/ N# C7 k w8 `6 ^! H, ~3 D - f1.writeline vd2% T [" f: m( \7 q6 L8 H
- f1.close" F2 q1 @, `' w% O' ~3 S( L# x
- 6 R) m/ R o- {; S% x
- %>$ J2 f5 G( i0 {# p
7 K8 n# B$ z# W8 \- aa:time;
: y3 x% d/ C9 x( I6 n - Show File Failed9 i4 B, G3 }) G g3 e- d" R. S
* t0 F* n3 _) Y7 o0 [- Z! W4 X# h3 j+ v7 P; P; T
|
|小黑屋|手机版|Archiver|步步汇盈
( 冀ICP备13000772 ) 
发表于 2014-2-15 14:08:20
收藏
发表于 2014-2-16 11:00:07
楼主