用VB来写看看" ^/ S [$ d/ I
. `( y, K# Z u8 G
9 s" s8 m, R9 B( E! A
# a$ q$ j9 h7 [" ?, H4 t) c# C* Z- if DATAPERIOD<>0 then
$ J% r' P% n' |! d - begin
) m, c: ]4 h1 U1 s* Y3 c2 M - DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
& V; e$ \) M+ ] - exit;2 n, ~8 o, Y" p( L2 G
- end;4 V2 Y% {) G& V2 d1 N
# ^1 E5 e6 `9 J" z0 I6 u- dd:=date;
8 g4 s. ^9 G1 d6 ?9 b0 I: Y - $ j( } t1 `5 Q/ |6 o
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);8 g" w( L0 Q+ v6 ~% N$ p# j8 ^3 T
- for i=25 to 36 do: z! v4 s9 v% l9 k
- begin+ Q* n9 a) m5 n* _; ~- r* n5 Q
- str:=str+';'+NUMTOSTR(DYNAINFO(i),2);; e9 {3 U8 i' t0 h4 m! C$ C" G$ V- w
- end;
( y1 ]4 q# ?$ o7 G/ W- r - : C' _( m+ c/ B
- <%
8 D9 S3 W% [' Z7 G - vd1 = FFL.VarData("dd")$ R1 w( }+ N4 \ |' V# w
- vd2 = FFL.VarData("str")
; u+ u9 r1 h @9 } - nFirst = FFL.VarStartIndex("dd")
3 t+ @: I$ M- i) U4 A - _* E9 d! Z5 |- m
- Set fso=CreateObject("Scripting.FileSystemObject")
5 H+ r3 x% g( m) r5 o - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"5 d8 f0 t C1 k( u/ N0 U: E( t
/ z- n' G" o; i) ?1 G" W3 f- Set f1 = fso.OpenTextFile(fn,8,True)5 X; I! p* n' ~" o: Z. l) m
- f1.writeline vd20 j9 n3 T8 q$ Z+ D9 F9 g! f; @, E
- f1.close
) m% n4 e: V" W$ l# I. x& X1 p g - $ a- n; T$ w' r+ D! n/ H0 n
- %>- z/ e9 L4 ?* [4 O, [& m5 T0 V; {
- 1 V: M8 W8 k3 v0 U* g2 o; h9 u
- aa:time;9 t9 ] U9 S, R) i
- Show File Failed: g. F Q2 ^$ }4 o# O( b/ B$ _
- ; \, q) I X: G# k3 q& s/ I
- 0 o6 q9 {8 f9 G: B2 R' g
复制代码 / |* \. X& s3 s6 ~0 F" S4 H
|