用VB来写看看
. Z9 S" i+ [& q: L: w; h
( A' @; b5 R& O3 ~/ p- 9 B2 k: n- t# M& z
/ R: \- S7 X+ o- if DATAPERIOD<>0 then # `: m/ J3 K9 w' B& j+ s
- begin, [- g3 f, D# L7 ?) W% `
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
* [/ Z D* H+ N - exit;4 K ]$ ~ n+ l
- end;5 \6 N4 E/ C9 [6 h
- 4 _. C. I! j1 o) v# u9 v& o
- dd:=date;; Z1 `% L0 I! i3 i
- , f' z" ^4 D- V/ O5 w* h0 X' i
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
0 g, U$ V% u* g5 C - for i=25 to 36 do9 A7 A, r. A3 ?+ x3 D# R
- begin
: e( j& {4 i! s0 M6 t - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
( n( p+ K; X, X8 a1 r - end;
. u& X5 A2 Q4 H9 u1 ^
$ E* P: d5 u1 E" @ o- <%
: H. {! t( |$ y) u) F# r" T1 V - vd1 = FFL.VarData("dd")
' d& a' f* g2 I- r7 w) i9 z+ d8 | - vd2 = FFL.VarData("str")% ]+ g. ]0 _/ y$ N8 c) `) [- O7 ~$ l1 y
- nFirst = FFL.VarStartIndex("dd") 9 G# O* l3 H2 s
- 5 G) l: H% u- s1 `& X! R6 `
- Set fso=CreateObject("Scripting.FileSystemObject")
0 X2 T* `- L1 Z3 n* x+ n0 i0 ?# t - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
' c0 L! l( R7 N; W - 5 O8 B5 r& d% k$ n8 ^; e' b
- Set f1 = fso.OpenTextFile(fn,8,True). T# M6 Y5 m0 `) ~6 q: {. q
- f1.writeline vd2
! V: D! R7 a* { - f1.close
* Z6 [2 ?2 e0 Q5 V! S - $ V& P4 a& Y- f* a1 A0 e5 a! S# j
- %>
2 L/ ^" p' I& R) i
+ [, H( B& h" C$ n; U- aa:time;4 l$ @- B4 J8 S! z9 G/ ~$ y" U
- Show File Failed
9 h$ U' b3 O j% A - 9 ~5 O& x6 }1 [4 V/ H+ o( y5 E9 J
- 0 `2 S& k5 {! p4 M% x0 J/ r. m
复制代码
* N9 W! i0 W+ g |