用VB来写看看% t9 `3 P \- f! x3 V2 \
* o* o s2 X y5 ], D
- 8 m: W, }0 w' m s
0 j* m: {. S0 S1 l: m+ ?- if DATAPERIOD<>0 then . ^* ?- ~ k$ c% Z' c
- begin4 a. T. o9 Z+ K" _9 F) `( W
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');" |1 W$ d! X6 d( D* H
- exit;# V: W6 L- P5 J- W; g
- end;
& c+ Y1 W& n( o- p2 e2 k! O+ X
9 y1 L1 ^/ k. S% B1 j5 _9 J: ~/ s x. V- dd:=date;
( s+ b& ~, U6 e+ A1 x. l' P
8 A; F" K% m9 ?+ \) h e5 h- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
. v% b; `) t/ d" d" @" y - for i=25 to 36 do
/ M- b3 ]/ C( `$ y; i( {- Z - begin
4 O& P! {# A" A8 m& H% |& c& P - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);5 ~; h1 q) U' {9 ]# o
- end;! B+ I8 x# I5 p# Y0 ]1 H
- & v% a5 R5 \$ i
- <%
2 A5 G7 R, M; z5 q3 T! M' ]+ N+ O - vd1 = FFL.VarData("dd")+ J3 o0 J4 j! a( k( j& L& }1 \# n
- vd2 = FFL.VarData("str")3 s0 [, ~: r! J: E( s) ]- p
- nFirst = FFL.VarStartIndex("dd") 1 q6 ]/ j8 f- n7 [; R3 g
0 M) n5 {8 F7 ]) `- Set fso=CreateObject("Scripting.FileSystemObject")7 I3 t2 Q* X* {/ e7 K$ }: h
- fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
- z4 O+ m; o% p* |" J8 ^5 y3 x" ~ - % v3 J M/ ~4 {6 {# O
- Set f1 = fso.OpenTextFile(fn,8,True)
' x$ `$ r s$ W# H9 { - f1.writeline vd27 Z4 ^" L: v: K2 p4 z4 |' r
- f1.close
3 `. @9 r1 ]( E& T. O8 E# A - ' T: x- R% a* K, ~
- %>5 l/ Y7 E2 ?1 I) i
- : \4 \+ D' @) Q: V, {) P
- aa:time;. F* l% j9 q' D7 t7 l
- Show File Failed) A& V- }4 N8 r' |3 V: {
- % \ n% e- ?6 u5 J# {
- 8 p4 d5 s6 j1 N# F: f9 L, D6 U
复制代码
2 T, H- O- U( i5 D |