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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
8 {, A. x& K% h% [6 ~
/ ^5 k5 H. x6 ?& j不知道现有公式函数里，有没有可以写文件的函数呢？
7 A1 I/ O) j  B) z# [) }( s  T/ K预先谢谢大牛们回答。
. r5 R. d) b' c- C+ l( f

边缘_Michael

醉心 发表于 2014-2-17 11:36
5 c. j7 S% B: {2 \: |用VB来写看看

6 |& Z" Z2 _2 L; Y. v, ?9 d1 K哈哈，测试成功了！谢谢！
% {7 Z6 }/ s. P  C2 R* b
6 X5 [& X. J: Z+ G9 X; i公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？

sxsongchen

学习了，试试

边缘_Michael

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

; s% [, L* `. A" S对VB不太熟，先学习着

醉心

用VB来写看看

1. 
   2 |4 d- X. L5 z4 R( z" W8 A
2. 
   8 z% _4 a3 K% |: m
3. if DATAPERIOD<>0 then
   4 Y( t5 u- b1 t5 j
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   4 }4 V* w: r( _; H+ L
7. end;
   
8. 
   
9. dd:=date;
   & z1 Y( }( q- Z- i! e
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    " D; ^. ?3 c* z4 ^) {5 H: u* Q
12. for i=25 to 36 do
    
13. begin
    , x9 g7 |0 U/ d/ `: c9 i
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
      ^; W; u& n  w# x5 T
15. end;
    
16. 
    
17. <%
    
18. vd1 = FFL.VarData("dd")
    
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    6 |  z! e' D! _1 H) J1 ~
22. Set fso=CreateObject("Scripting.FileSystemObject")
    2 H1 l. f. p! O% i* F* \8 u
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    3 B% w1 \' V! w/ K
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    ( E8 {/ d, E$ N0 \% n  x
26. f1.writeline vd2
    6 ~$ g' S- @. f8 P7 f& I$ g% ]7 |7 p
27. f1.close
    9 H8 W9 G1 K2 Y# Z/ Q+ }
28. 
    - D  M+ t& s; ~  e
29. %>
    4 s4 V$ S- `( i$ Z: j6 g7 f
30. 
    
31. aa:time;
    
32. Show File Failed
    3 S: \! Y+ [* @' D# w# c# d
33. 
    3 u; `  y# V0 s7 H7 V; }
34. 
    

复制代码

5 N9 s' L2 U7 P0 R

mccs

同问，请版主大人指教

边缘_Michael

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

6 q2 a/ ^" s. V$ Z是的，就是这个意思。输出格式能灵活些更好。

gc007

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