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

, S* g. J! _) W- B0 D3 z, u
6 \5 k9 ]( M5 _, R1 S$ y1 T, H" Y
if DATAPERIOD<>0 then
$ Q1 ^ O5 u. Z) w- [
begin9 s: g! Q' r! i" s
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
4 k8 t5 u( `1 N8 f. W9 C7 g
exit;
2 v4 l# e4 d# n7 R( Z' J; \1 v7 o: k
end;, L! T6 R3 g, C& e" f! a
" p; }2 {( Y- T& W; K- t
dd:=date;- N* M) M0 ]5 L4 d: c& J# i
& b. T! n3 E. b. A
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
8 J% ^' c0 L( `- k- r5 ~2 c
for i=25 to 36 do# q4 I3 ?+ g6 Y) l' s/ i6 |3 Z1 q
begin
; ]: ?7 p3 A$ W( }; }
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);$ Q9 Z a5 d0 `& p
end;% `' f" r1 U3 G; d m/ D- c! b
2 R8 g. n3 i1 @" |' O F" R
<%
( F/ K$ s! e4 `" Y# B: h' C
vd1 = FFL.VarData("dd")$ f& F& {0 c+ m1 @( X8 R
vd2 = FFL.VarData("str")* L! j. b& B5 ]' R; J7 `% n
nFirst = FFL.VarStartIndex("dd")
- Q/ c& T& N/ d$ i: N( n: v) T; U
7 B5 J5 _5 z& _2 Z/ }: V! C w0 f1 w
Set fso=CreateObject("Scripting.FileSystemObject")
+ x3 z9 M0 n1 h9 [/ r
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"7 h0 B( y0 i- V. W. j# r' w5 t ~
+ W, e) g$ ]/ e
Set f1 = fso.OpenTextFile(fn,8,True)# r7 ~' u$ K2 r: u9 D
f1.writeline vd2) j; n$ P) l9 `! P( v
f1.close
1 d r* m: q/ ~7 |
2 @! A8 _ [0 l1 q" B) Z
%>" ]/ C/ o0 ?- y* [) f! H) e l
+ x$ M$ x1 p- U) B+ l) M* e
aa:time;' T/ B, z! B" I7 p: P+ Z
Show File Failed( v* B% M; r7 Z
* s# u3 R) c1 H: M2 z
! X: W1 q2 Y! d. C+ J' S

复制代码