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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
) `; u+ E* A' w' e  M9 |
不知道现有公式函数里，有没有可以写文件的函数呢？
* W. P9 s. {2 M& L& O0 v8 l$ I/ J1 o预先谢谢大牛们回答。

+ b3 T3 M( s7 ^2 H' ?1 C

边缘_Michael

醉心 发表于 2014-2-17 11:36
用VB来写看看

; o# M. g; \5 s1 z哈哈，测试成功了！谢谢！
% M& u9 d: h4 ], A; g
$ J4 e8 U6 \1 N6 B2 I6 c* [公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
8 q# X: G- H& D2 c' q8 c用VB来写看看

4 O; C8 r2 ^; l! c  ~0 e7 j对VB不太熟，先学习着

醉心

用VB来写看看
/ ^4 n% `( @+ j  G# {% |

1. 
   9 G, S7 [+ _; i* o1 Y$ E$ C
2. 
   
3. if DATAPERIOD<>0 then
   ! R; ?4 c; F3 R  _7 k! d
4. begin
     K2 ]6 U! ?2 ]" ]5 d+ p, t" G
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   $ M- b0 _8 a0 g( o0 f
6. exit;
   * }' q2 ^# [- C0 K
7. end;
   
8. 
   : i) L- u2 T, G! s9 K3 Q
9. dd:=date;
   
10. 
    ' e% ]) P1 K1 j% M5 x
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    1 j6 G$ S6 N% K8 J2 s* R7 _; e
12. for i=25 to 36 do
    
13. begin
    . q/ d7 d) d" _/ z6 ]
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    6 k$ N$ r, u- x" E4 `$ X: h' X; E2 n
15. end;
    ; e8 @2 Y- |( E, N
16. 
    8 s: m! Z* l" S$ V. D  z/ d
17. <%
    
18. vd1 = FFL.VarData("dd")
    6 u6 C/ m+ X, b# l7 ~# N
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    " A0 e/ V( |$ ]6 p
22. Set fso=CreateObject("Scripting.FileSystemObject")
    
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    % n. q! Y8 q1 o
25. Set f1 = fso.OpenTextFile(fn,8,True)
    6 q$ O+ a% j, E# q
26. f1.writeline vd2
    
27. f1.close
    " m9 H  o8 A* I% }6 P1 _
28. 
      V) }8 X& ]& l
29. %>
    
30. 
    9 `/ p( s$ W2 _
31. aa:time;
    
32. Show File Failed
    
33. 
    6 P8 d/ r8 ]) s( o! }. @; y
34. 
    5 N. i* U! C5 r9 H; v& H& K# Z

复制代码

mccs

同问，请版主大人指教

边缘_Michael

gc007 发表于 2014-2-16 11:00
是同时计算公式的时候，输出数据到EXCEL吗？

6 ?2 w5 N4 {* A) S! X2 O$ [9 h, p是的，就是这个意思。输出格式能灵活些更好。

gc007

是同时计算公式的时候，输出数据到EXCEL吗？