用VB来写看看
$ ]2 c( D. F7 S
: \6 i4 E- r( P& G6 R
( g: |3 R$ ~" P& `$ F- 6 R) F8 Z6 `- g/ W) T4 t H
- if DATAPERIOD<>0 then
$ }3 T5 s1 u* ^. i7 f - begin
$ {" K) W; X: v; u* U: y - DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');6 e7 m* f9 Y- B2 ?" N( z. W
- exit; `+ D: u- p4 V! ?$ o' A a& Z
- end;4 |/ o) H. w; }2 Z% Q
% r( T# X! k1 b- dd:=date;- k$ I! k" R. _7 ~" k
- ` q8 ^3 A4 X' W# E- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
. P& I% K s* e: G6 C* H - for i=25 to 36 do+ r$ y6 N' U, w+ h
- begin
: ~+ g0 ?5 T( { p - str:=str+';'+NUMTOSTR(DYNAINFO(i),2);% @) n/ b0 w/ k
- end;
, A) J0 y$ J9 D `3 i6 O
3 ^) Y3 f1 {6 H( M. n- <%9 p v- a4 ~; D2 X; _
- vd1 = FFL.VarData("dd")+ s1 s- C7 m9 p3 _* v- o8 f
- vd2 = FFL.VarData("str")
5 f$ @8 t! z& o - nFirst = FFL.VarStartIndex("dd") 4 K9 d8 I8 | D Z4 |2 A% J2 l* o
j$ _, {( w8 O$ z* Z" N5 V- Set fso=CreateObject("Scripting.FileSystemObject")
' v/ m: { R) T) o - fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
C0 ~; G7 {+ D0 u6 H3 c+ _8 c - ) \) ^8 \$ s5 u
- Set f1 = fso.OpenTextFile(fn,8,True) W* p5 Y" |' ^- f
- f1.writeline vd2" Z& |$ k# t: a3 c$ W# k. D
- f1.close
; q4 r P# T9 N" K
. x% K3 q. D$ [5 q, S3 i5 v. @# S- %>7 o5 ^9 ~5 ~- T2 O
# S4 \& P( L) q1 p& C. d- aa:time;. W; ]$ R, q7 N6 M1 F
- Show File Failed
5 Z* h! y& C; P1 V: A) X
' D5 a2 ^- i" r+ u
1 n3 F; j& K Q1 J
复制代码
' C5 \- K! k9 u2 i |