请问公式中有可以写文件的函数吗？ - 步步汇盈

4 K/ j2 l; Q, u' J
. |3 o% W! k* ^% E5 o
if DATAPERIOD<>0 then + C1 y6 b9 S) ?8 I5 l
begin
* `+ C4 @- e& s* c4 R6 C
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
5 c% h* n$ r7 k0 m( @
exit;
2 q, l% s. ?8 @: [- y! Q
end; s9 u" \( }, v" N# q7 {" C% n. U
' v. b4 C) U+ ]" e8 ]; Z6 d
dd:=date;
' u1 W/ ^$ [* C% ]
7 ?$ V+ G" R5 I; Q$ X
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
( }/ l' B% k9 d+ x5 \% v
for i=25 to 36 do
* f9 I! u; ~, W
begin
, o1 h6 g7 G9 E
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);& o. F0 G [& b
end;
2 Q- g9 s' C5 k1 |/ O2 f
Z: Q) h9 _: u! Q1 K0 n
<%6 j6 E; m- [1 Z( w" z2 c. G
vd1 = FFL.VarData("dd")
# s: r' ?( f3 O2 J7 @
vd2 = FFL.VarData("str"): b; d! W' F2 s7 m7 ~5 A( E% S! o1 k
nFirst = FFL.VarStartIndex("dd") # D J& w3 [7 x& \ L3 u
$ r, ^# V0 e" e' i4 @7 q
Set fso=CreateObject("Scripting.FileSystemObject")
& b0 }3 O' w( f" W6 N/ g9 c& v
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"& b% F" n, s: g: m& p
! L1 d, `: R- v% u8 f
Set f1 = fso.OpenTextFile(fn,8,True)% U* b' K6 w- J/ \+ Q P3 }
f1.writeline vd2
7 Q @1 {- Q0 ^2 P B+ G
f1.close8 ?) w) b& \* X' b; R3 U
. e# |. S3 m. I, Z, o
%>
, E: X2 p: C! A& F& b1 C
! y$ ], ~1 k. @* Z* P2 l1 }
aa:time;
% q, J2 f* g# f
Show File Failed( h& j3 ~6 h# c' s1 E) |0 M% t5 K
, s& O# G# u* C% B* ^2 u$ ?/ X2 ^1 y' O
0 J" k5 W+ E! A$ ]4 I9 \

复制代码