用VB来写看看
" e' _: P9 w7 T) V- x' F
6 _ H! w! l; @! D
4 s8 l& ?* u5 O. \- ( f* i- R) ^$ U. S' q: G
- if DATAPERIOD<>0 then
m' q/ ^" v% D9 g- I# S' g# a. ] - begin
* G7 o$ l/ j! K4 b. {+ ]5 Y - DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
) `2 u; H. {: l j - exit;
, L" {" S0 X6 ?! }) G' V - end;+ T) L# F; u: k# Z
- + t3 E4 O+ N4 m- e6 x2 C
- dd:=date;/ T# n/ E: Q/ T$ S+ Q& K% p1 ^& n+ R0 X
$ m% I$ E! W, l& E* b! k! _. `- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
$ m; F' Q6 H! c t" `! a6 ~ - for i=25 to 36 do, j3 W: Y _ [1 s7 x) s4 j7 v3 g
- begin
P+ K7 ~/ _! t, K- | - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);3 \) I6 j% k9 X( T0 P! n9 W
- end;- R2 o* v$ t5 X3 y! N) F& s% o
! P& L! U" T" Z, T5 M- <%
" {5 Z5 p8 Y6 d7 b$ `6 ^3 H - vd1 = FFL.VarData("dd")1 l. H' @2 `! `' |; R) U# T
- vd2 = FFL.VarData("str")
; @7 M; x) X- d2 t+ w0 u# ~6 l - nFirst = FFL.VarStartIndex("dd") ; n* b- I1 J( h' E/ U" X/ @
- ; h; B! m+ ^7 H h: e; X. a
- Set fso=CreateObject("Scripting.FileSystemObject")
! q9 h1 P4 p8 I. r8 x3 f1 e - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"! a( m1 n' n) @- C
5 G# h' I. G1 M5 a' B$ B$ l- Set f1 = fso.OpenTextFile(fn,8,True). N: W) ` z" b1 L% U- }9 E
- f1.writeline vd22 ?; a m4 K& a6 f% h; ]* x
- f1.close
7 b$ y- C6 V& h( x
3 Z6 `9 G2 y/ X# d' [- %>$ Y' ~9 O- |5 D+ M, p( S$ ]" ~
7 d) l9 `7 a4 {0 x3 ]6 A- aa:time;3 w, J: p; r* e; a/ q X, |7 g( `0 g
- Show File Failed0 I' \0 I4 [- s6 v
- $ X; ^" |) a1 k% h) s
1 j$ v3 j C8 H) B+ Q" v- B
复制代码 ; v8 j4 ^) L i6 U/ W! E z
|