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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
) }  }' ]* y7 ~% q1 a: A/ J1 G1 B
不知道现有公式函数里，有没有可以写文件的函数呢？
$ u% Z6 T; p1 }6 l, P( ~1 c预先谢谢大牛们回答。

0 m1 G( h9 l9 D

gc007

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

边缘_Michael

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

是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看
; Z' ?5 V( O/ M

1. 
   + R! B" e2 g! v6 U9 A2 \
2. 
   
3. if DATAPERIOD<>0 then
   , o  K; H+ ~% j& p* a, n, T
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   
7. end;
   ' }( C& t4 T& E* \" w7 h+ Y+ C
8. 
   4 e3 A6 Z8 s3 [( E5 J. t
9. dd:=date;
   
10. 
    " I' E6 y, L. X5 x! T( e: m/ ~
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    ) u) |% z+ ^5 A% U( \
13. begin
    / G  n4 n: l  o2 e
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    
15. end;
    2 w! [2 r4 h, U9 v& S
16. 
    ) E4 W3 B. B9 J1 [9 h
17. <%
    
18. vd1 = FFL.VarData("dd")
    
19. vd2 = FFL.VarData("str")
    7 a3 L$ G1 |% g& B/ h; y% B
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    . c0 Z% ]8 q) G' Z9 O
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    
27. f1.close
    ' W/ a. {% Q3 |3 q1 g4 t( j2 F
28. 
    8 G0 n0 n0 F/ W8 ^5 I
29. %>
    4 R' ^# k- ?' `, E. f4 N* @
30. 
    
31. aa:time;
    
32. Show File Failed
    
33. 
    , e" m1 D& }* N6 R
34. 
    

复制代码

边缘_Michael

醉心 发表于 2014-2-17 11:36
% X- G$ ?0 k1 K! o用VB来写看看

, f/ p7 f  o; Q对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

哈哈，测试成功了！谢谢！
, a2 D& p7 [9 l, v6 K. l9 L" A
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？