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

. @: ?; \$ {! P7 N {
- L9 d! N) Q6 m7 Z& Q0 \
if DATAPERIOD<>0 then
, o6 ~+ S1 Z3 k8 p
begin7 z5 b4 y8 x- n0 f( Q4 ]0 @
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');4 P9 Z9 s9 N; [7 b9 w
exit;
2 n) X0 ?% \1 l, X; s( O: m) g
end;
# j8 [$ a- w/ O5 p4 w1 G, P. V% P
3 b4 _% k$ ]* E# o6 b: ?
dd:=date;2 ]! b5 C& e. V
( L; p- V* J# g
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
6 S& c4 S2 M8 u- H2 r
for i=25 to 36 do$ m5 q+ u( |1 q7 c2 ?9 c% `
begin5 J/ i, W G* g" F5 t
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);; h! {! ?. P y {# e6 u" `
end;! v! M" Y6 d( G9 |5 N0 V* f* X
3 m2 c \& m. h+ x& [& K
<%
6 w: y* g4 `8 T
vd1 = FFL.VarData("dd"), u6 `4 V. D9 Z1 y- [- Y& k
vd2 = FFL.VarData("str")* Z; {+ e T6 n$ S. o# C
nFirst = FFL.VarStartIndex("dd")
$ k! ~1 J0 F; D& \
- s( P- v' b6 |$ q% Z( P+ ?& j
Set fso=CreateObject("Scripting.FileSystemObject")
3 ], e& R& @7 L- _6 J; f
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
; B% r/ [8 _! V1 @6 |
) |/ l- M- _3 p4 g* T! e- K3 t- d) O
Set f1 = fso.OpenTextFile(fn,8,True)
. U& y5 y9 @# B; O7 |: \* x
f1.writeline vd25 I) w* V" G% Q4 R+ h
f1.close1 m/ m7 K6 b$ n3 |3 D
" T7 O7 E5 c" A: I `
%>
* Z( a% D+ y' f, v" H2 g2 r
aa:time;$ _+ a. s, B7 @3 u1 ^ Z! l
Show File Failed- y5 N. E- S" @9 L" @
9 q, \- w' G+ D4 X1 u6 {
2 }1 s) q8 m8 I2 J2 a b& o

复制代码