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

: K3 N. I' q6 q9 S8 O: I; O9 p
7 u/ m6 j( i) ]* S' Z% B" d0 d* h
if DATAPERIOD<>0 then
* G1 i& T+ l) I3 x# ]: b/ h
begin9 _ N6 h/ [$ o7 b
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
# D& `- J9 F& v1 s" j8 G
exit;
) B# r" s: ?+ b& d- P2 q6 ~
end;
v7 Q+ a7 @+ L& b' k3 S5 r* L
0 A _$ k7 V$ G1 D2 Q) n& I
dd:=date;
7 B9 o. x# {$ o/ y$ G
* z$ _& d$ j' C% q1 B( O# ~# Q! W. _
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);: H3 x$ a1 u' p/ c; c0 J5 ^
for i=25 to 36 do
& @: o1 x! R% E: D- D+ R% w7 ^5 ?
begin Z& _4 z9 ?) c: V0 y3 C3 T
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
5 H! [; k3 L* Z! d' Y# E K
end;. ~7 h& P& K% W( K( \5 V
2 |& G) B- E% x d& \
<%2 f; I0 _$ x5 c4 G) O' T
vd1 = FFL.VarData("dd")
" E" M6 o$ b0 F" b# w4 D7 I, I* A4 }
vd2 = FFL.VarData("str")
9 f" l% H* ~* i$ g) {
nFirst = FFL.VarStartIndex("dd") & g/ o, Z& O( l0 {
9 v( u' N8 g: e' p
Set fso=CreateObject("Scripting.FileSystemObject")% Y; q& F5 {) M; ^6 N1 f
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"* K: D9 E/ A8 t- |# Q
- v. K# f3 I- o# D
Set f1 = fso.OpenTextFile(fn,8,True) f' V! P& c1 [* U8 j5 G& ~
f1.writeline vd2
7 T$ }- d* z9 \) m9 }
f1.close
* U4 i) r+ w" i& _+ V
1 l4 s- L6 F+ t5 |! ]' I7 Q( [8 c3 D
%>
n2 p% E7 c" g, ]
9 M+ ^# R- z# D+ A, U& F! Y/ n
aa:time;
2 }- f2 _& Y+ a3 H# M) v7 W0 Q: ~
Show File Failed8 x0 W$ Y8 I7 x. C+ b4 C
& ^: X, J; c; P8 Q
6 y: J3 S! d+ I# n* w1 f

复制代码