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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
; U1 W/ u! ?2 n* {. o
5 d4 {# W1 j% Z不知道现有公式函数里，有没有可以写文件的函数呢？
! b8 b7 c+ S! k! k5 R预先谢谢大牛们回答。
$ p8 O5 R( n0 J3 u

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
; j, s# `" m4 v8 k- C2 D' j2 Q8 W% ]是同时计算公式的时候，输出数据到EXCEL吗？

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

mccs

同问，请版主大人指教

醉心

用VB来写看看

1. 
   ( @) x) r5 @/ f/ f6 i6 k' ]
2. 
   ! j+ q, R+ n$ z& @$ P3 f7 N
3. if DATAPERIOD<>0 then
   
4. begin
   - r; }- G& O6 J/ \1 j
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   6 k- `* \) L/ [
6. exit;
   & P6 L9 d1 Q8 z; N1 }# G9 K
7. end;
   , A0 B6 {6 z$ T' e
8. 
   
9. dd:=date;
   ! b6 m) k- b0 a2 G) v" |
10. 
    " M% `9 |) ^" {1 E5 E! m# T* t
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    ( p/ m3 r5 S+ _( A6 c# W" @
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    # ]- a) t' q9 H; c" y/ F% j+ D1 `
15. end;
    ; H' e9 o/ _8 I/ T( O, s
16. 
    , x3 X+ l6 x& Z
17. <%
    9 \8 g/ K3 O. D' u7 [* `# M& o" T
18. vd1 = FFL.VarData("dd")
    ! S. g+ ]' M7 v8 f3 M# ^1 G
19. vd2 = FFL.VarData("str")
      b' o$ R2 R1 N" _, l
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    4 K7 R$ k7 Q% k( a1 k* c/ H
22. Set fso=CreateObject("Scripting.FileSystemObject")
    5 i7 R2 j; c, M+ K% q9 f
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    . d4 M) g% ^8 \6 B6 p" c8 _
24. 
    8 f" X, c& F/ h5 B9 V" |+ h- x
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    ! [1 w- @2 S  f. ~/ X
27. f1.close
    
28. 
    # W' ?/ b+ O. V" m
29. %>
    5 f" W3 g) a) _: C2 @( Q
30. 
    
31. aa:time;
    
32. Show File Failed
    
33. 
    % a+ x! P- n+ J5 }1 ~, }4 A; ^
34. 
    . ^3 _! O4 P8 O  V) l/ x( I" M# s

复制代码

) o8 Y" y, _7 m

边缘_Michael

醉心 发表于 2014-2-17 11:36
& r. A' T+ C$ n6 c0 q用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
8 \  t6 {" c3 [! J: n用VB来写看看

哈哈，测试成功了！谢谢！

公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？