用VB来写看看
. P; _" @, ^4 `' V$ }/ |9 f! z4 l3 b' \/ P& `: @
& v4 f7 q6 M9 L& W- 7 R( E/ M: l5 D9 {- z
- if DATAPERIOD<>0 then 3 w% H& D* g) [1 h2 t
- begin
( T W2 |1 z6 a8 ~# g- u' f1 p - DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
4 d! t2 p9 G' x, G4 {! Y4 D - exit;2 S! T5 y9 h( I; e: F" h! ]
- end;( H* B X; U$ G9 c3 Q W0 Q
- ; _& c' i+ B6 t+ X- M ^
- dd:=date;
3 J4 a8 G0 d `0 @6 G. A# o: D( O
' y; a+ ~1 s6 i) E. F6 G7 f- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
" u! W0 M! C. U3 k g - for i=25 to 36 do# z, ]1 G' ?# N" [7 D P
- begin
) T) w. X5 A7 h: Z; ^- K7 U9 O - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);5 A2 X9 c* y" D$ C
- end;
# F+ n$ I8 K* H% F2 w( E
5 X6 s* c" u" [- <%
: ~% L: B6 \# V' S, n. i1 v0 ] - vd1 = FFL.VarData("dd")- q" @9 E1 I: t/ a! B/ _
- vd2 = FFL.VarData("str")
( A `; l$ T. {( X! m - nFirst = FFL.VarStartIndex("dd")
8 A3 U2 m- N& P8 e. S2 X8 H - ) i3 x H5 p W( X+ ^1 z
- Set fso=CreateObject("Scripting.FileSystemObject")/ u4 W% J. B1 i, ~0 E
- fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
, h$ W) k* `) u% _7 r. [
2 M" r7 A% z5 k* f* ]- Set f1 = fso.OpenTextFile(fn,8,True)5 \3 q$ g' d+ a1 E7 b
- f1.writeline vd2
: @ ?! \# L1 A/ L6 ` - f1.close& t$ N7 z9 k7 z" K* J7 Z, W
- " L `6 V+ u6 l% J0 a
- %>
: i" O4 u3 {0 W% i* a+ y - 7 G7 y" `# t) u, E3 u
- aa:time;( r+ ~1 ]! d1 a6 p7 \7 L
- Show File Failed" F# j+ H5 M0 |% W+ T: _' a
- . i5 W; ~' R2 {; j9 N y/ Z4 @, o
- K" h s# h, P# f9 F3 w( P
复制代码
+ }. _ r* m) \ |