用VB来写看看; T' X8 [. u8 T! |
6 S6 H: P+ U% z$ l- `9 g
- . B( ~3 L* C' ^+ `2 G3 j) D) q+ y
- & n, I: Q* C! z' A
- if DATAPERIOD<>0 then
. N! \5 e8 h0 f5 @: s0 H7 ? - begin
; i8 O/ B! ], v. o - DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');9 s$ @+ d1 V0 {& I
- exit;
$ m0 b# J6 H- l, G9 f5 z6 m7 q r - end;4 E3 ]& J+ |; c# P; j
- $ S$ m2 w7 x2 M- i: F
- dd:=date;5 J2 H/ e5 ~, [8 q
- ) o& R, q: P" R/ W+ W, W: I& o
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
) h* M+ e5 l! C2 S0 t+ k9 c k# f: P - for i=25 to 36 do8 c. E+ @) M4 T9 E( l- d3 B; [
- begin
/ i, o4 S) C/ {2 h - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
+ N9 g( N( ?/ y1 ^0 U - end;6 {- L& u1 m5 n" V; j( f$ Z0 j* A
- 3 g$ a2 ~+ O( @" I
- <%8 e1 u( g/ o2 k6 h, h
- vd1 = FFL.VarData("dd")' y3 p4 L. z7 V' ^3 s
- vd2 = FFL.VarData("str")
3 M! @6 y2 M# E2 f& {! _( U2 w' u - nFirst = FFL.VarStartIndex("dd") - y/ t7 O( _6 ]' p7 k
- . N: V# `4 ^; f2 s% Y, ]7 V
- Set fso=CreateObject("Scripting.FileSystemObject")
0 _" k1 f E2 H) K - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
+ F7 \2 d5 a% X/ F( y X4 C
3 S i/ ~, }2 g7 r2 C) e$ R. x) W# Z- Set f1 = fso.OpenTextFile(fn,8,True)
/ {2 F' O( W' G; J - f1.writeline vd24 ~4 E/ W9 [6 Q) i
- f1.close/ T9 ~5 p( j! n0 A2 D ~! X
- 3 Z/ r$ g. n' V
- %>
; O7 K1 r0 }* J1 h* d - ! i; x% Y" \; c) C& T' z- Y
- aa:time;
9 C/ K0 j0 q; h$ I9 D3 b0 F - Show File Failed
2 W9 w/ i( z7 R
8 z- A1 f% h J" E; o' p! U
) i- j( D. {. x ^$ K$ Z
复制代码 7 H0 J. s! D' f" b
|