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

边缘_Michael · 发表于 2014-2-15 14:08:20

计算公式时希望导出一些结算结果，以便用excel统计。

不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。

gc007 · 发表于 2014-2-16 11:00:07

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

边缘_Michael · 发表于 2014-2-16 22:37:36

gc007 发表于 2014-2-16 11:004 ?7 A7 ?& l8 r2 X
是同时计算公式的时候，输出数据到EXCEL吗？

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

mccs · 发表于 2014-2-17 00:45:04

同问，请版主大人指教

醉心 · 发表于 2014-2-17 11:36:35

用VB来写看看

1 d0 o% m( B- Z% w9 \6 Z
$ Q8 ^( a; v6 @! M
if DATAPERIOD<>0 then
; K9 e, M! S6 z# j! {' c$ ]* W
begin+ G1 p% u" a; q+ Y9 W+ X& K
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
" ?1 H! d; `! ^3 b
exit;
) W3 x5 O9 m; ~1 H- k
end;
# Y" R1 y# _, _
9 M9 b: n3 g7 m, |% D
dd:=date;1 ~5 N4 r$ g- J/ V% ]$ ?
8 ?" O! H& C# o+ u& R
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
, v- {: @0 L3 T. d1 K9 V, P
for i=25 to 36 do
' e, i- l X" [- H2 R
begin
5 ~* I4 F: {* L2 ~' k, \$ \" y
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);1 D7 `& h$ {6 H' u. o }
end;
/ s% D- @7 {* `: ~6 i6 _
0 x* e9 W! _; x5 y7 v7 v- s# |
<%! b0 R8 X8 P9 h
vd1 = FFL.VarData("dd")
" X/ ]8 y( p4 m5 C+ a9 ]
vd2 = FFL.VarData("str")0 q: `& U* c& F# g' S5 U. n+ i# \& B
nFirst = FFL.VarStartIndex("dd") 8 j5 ]' u: w& I
* p, I. U3 \6 R5 {# J2 d/ x ^
Set fso=CreateObject("Scripting.FileSystemObject")
6 O2 s$ n, m# Q) J$ B
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
. D1 L" c3 y1 }# H5 }" T
7 V$ H' D& _. k5 P; y
Set f1 = fso.OpenTextFile(fn,8,True)2 m5 F- ^! y% P1 F2 g- ?( Q# V
f1.writeline vd2
* }5 Y& v$ M9 `1 ^4 {4 d
f1.close) u2 Q7 K- V9 w( h" [$ E
2 D" w5 V/ E, @2 \1 Z
%>5 K) i9 K- [ D9 D
2 Z; p) M) [1 s( R
aa:time;: y; h" r) n5 v/ X
Show File Failed: G- Y/ k# W& |! [' s5 e- {
, H3 N3 U* Z3 v( d$ |
) e/ N0 m: r7 H6 f9 n u$ V1 Z

复制代码

边缘_Michael · 发表于 2014-2-17 21:35:39

醉心发表于 2014-2-17 11:36& U0 y7 A& g. Z1 l2 F, T
用VB来写看看

对VB不太熟，先学习着

sxsongchen · 发表于 2014-2-18 17:20:14

学习了，试试

边缘_Michael · 发表于 2014-3-2 21:41:15

醉心发表于 2014-2-17 11:369 M+ c6 K7 D! e6 z
用VB来写看看

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

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

		自动登录	找回密码
密码			手机注册

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