用VB来写看看
y" ~. I9 e9 Z/ q9 ~* X. B3 i
0 E8 p$ z$ y7 p0 y' C, }$ [3 n
( t4 L# D8 m* H* K- 4 ?2 X" N4 p, Q- z3 o& M" }
- if DATAPERIOD<>0 then
3 X6 O+ v' G v+ j9 r - begin" k) z3 C) j% `: P8 \7 p4 i. S
- DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');* d, u% r8 t( ?2 d2 m. w
- exit;
6 z+ g- x0 ~$ i4 \8 C - end;) O1 s" m& D0 W4 I r* V4 k3 g
- % O& P# o; h1 N( r9 N7 l
- dd:=date;4 D" X f6 b$ `# [) j0 v( m7 h7 f
7 C2 ^# G; l c0 C- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);- h- p& [; L9 D% Z7 X
- for i=25 to 36 do
% S4 Z& E6 _/ q* t2 y - begin J+ O. g H$ @8 U# d/ b. z
- str:=str+';'+NUMTOSTR(DYNAINFO(i),2);+ J0 L1 p7 A2 H. j# ?/ Z
- end;0 Z$ b+ x$ e1 l" O- T7 |& t
- ' J9 j* Y( \3 E" d: r7 C) N3 E: W4 \
- <%
2 ^& _3 s- ~3 x4 A - vd1 = FFL.VarData("dd")
( T$ X- O, P5 j% \, s9 x2 A: E3 D - vd2 = FFL.VarData("str") M; r+ c+ q0 @1 R4 ]5 _* @+ | V
- nFirst = FFL.VarStartIndex("dd") * g+ O3 H+ n6 ]. A6 w
) o% y9 D c3 i* C& x- Set fso=CreateObject("Scripting.FileSystemObject")
8 a; }- {+ \# L+ V$ K! Q+ ` - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
) ~2 z5 k5 r; h! t6 \1 k% B1 U! Z
- X( d; Z8 `8 b7 y+ A. w; |: w- Set f1 = fso.OpenTextFile(fn,8,True)
0 P) V% p8 N. @ - f1.writeline vd2
% ~3 e( B/ m; Y$ ?4 S - f1.close
1 ] i8 K" h& I& B" y! K3 h# N
2 ^" }2 a) f5 {6 L6 M+ `- %>
4 U9 L+ j# C/ q/ | n - & h) B7 c. J3 ~2 v, U8 z
- aa:time;0 H6 X( [' ]9 z" c
- Show File Failed0 ~3 I4 N7 S& S0 Z% Z% @
- ' ~7 c( o7 m- F& G' I
- 3 y2 k+ _' G r
复制代码 ! ~/ X( g0 C; P. ?' Q/ b' v; ?$ f
|