用VB来写看看! d' G$ _! I: u2 x$ I) T7 |$ f
1 V7 o6 J+ D; k/ c4 n- N& O
# q/ C% d6 X) p& l
5 [* J3 @4 o |6 R8 o% A0 M- if DATAPERIOD<>0 then 8 I4 ]- z- A# Z; R
- begin
* H2 B% k4 ]6 ?) l/ d' D - DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');/ \* G1 z5 R3 A( _
- exit;% H0 m' D# d0 b( Q/ _2 M. t
- end;% e) G1 F8 i6 M5 f5 _' F
& v7 I+ @( T- b6 B" T6 `- dd:=date;# @& V" r# B/ U) c6 ?$ F+ M
- 6 W5 h: B1 X7 ~8 {
- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);. ^0 ]! G# h" L+ E$ C$ `
- for i=25 to 36 do
0 c$ z: f( U7 V! H9 l5 S5 T - begin8 S! @9 U& y) }4 K
- str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
) f; \! {$ }1 s/ _ - end;
* l* E" E7 W: v. ?& P, h& @8 ? {
! P- A# p) T0 p/ L- <%8 ?% W" V1 h1 o3 n+ m# S
- vd1 = FFL.VarData("dd")1 K5 `9 p3 J7 K% m' [- v
- vd2 = FFL.VarData("str")& ~- s9 Q X8 v& ~0 h( [
- nFirst = FFL.VarStartIndex("dd") 1 ~8 C0 y* t" C+ K) F7 m6 z/ z
- % T4 w5 \; t- r' A$ h6 R2 k- M
- Set fso=CreateObject("Scripting.FileSystemObject")/ ^' a. T9 {5 y! U! E
- fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
|- M! M$ `1 o+ k# ]7 ]4 m) H
- ?/ A% Q9 V! U6 e4 I% K8 s- Set f1 = fso.OpenTextFile(fn,8,True)1 m }" L0 Y9 m+ e$ Q6 F
- f1.writeline vd2
6 u7 x' j; \, `; P6 `6 d - f1.close, V# X2 F) \7 x# N7 ]+ G
- 9 H- T% I+ G1 r& K+ [* r, u# @
- %>
& ], W* @5 k, N1 X+ w
" S4 n: B# P4 l; D& z) y4 \- aa:time;( A: E& r W: u
- Show File Failed, s8 D% v) E0 q8 G
/ U3 ]. t0 Y/ D) V( M- 8 K7 r& @9 u1 z ~- H
复制代码 5 L% p6 f/ w2 ^' L8 h( t1 ^0 u: w5 {
|