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

边缘_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:00
2 s$ B J6 c1 } |是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

( T" c( w% b( b
: V$ ~% }# T3 X$ a& G. G
if DATAPERIOD<>0 then ) r& V* ?% {1 D( V9 z1 }! \
begin
( C5 h# k8 s% V7 ~3 G- c. L
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');! n% a5 w1 n* K0 Q
exit;* s ~- N$ A2 M& e: y# a
end;* V# X1 V0 ~8 G* ?1 c
' a5 r# G9 ^+ ~
dd:=date;
4 h( q' i9 w" M8 `
0 M% C$ X8 o- R$ R0 ]
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);* w) Y9 ?( i1 U- m$ B8 A# ^; V
for i=25 to 36 do7 D/ |; k( a7 m. V
begin9 h& [1 P+ k* m+ n6 g" R
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
, D. Q; B( h7 J. g: Y8 N$ D
end;& I; [& Q$ M+ i# z s$ p, G/ b
. t6 Q/ s! `( o3 D4 _) c i
<%
5 b. J; h( {6 ~' h+ {5 J+ [2 C
vd1 = FFL.VarData("dd")" ^, @% L' C7 F% K
vd2 = FFL.VarData("str")1 a0 q4 I6 H7 X! @
nFirst = FFL.VarStartIndex("dd") # g t z: D7 Y+ p/ l
" v/ ?- N" S2 k' l
Set fso=CreateObject("Scripting.FileSystemObject")$ O3 y' u. y, f' R% N3 e. ^
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"1 `. p. Z! ^& z1 h/ r4 s
) b) ^# z& D W1 z+ E5 `
Set f1 = fso.OpenTextFile(fn,8,True)" w/ g6 H4 `/ B
f1.writeline vd2
/ ] d! E ]8 i. v
f1.close+ Q0 p) t! W/ Y* g) e" }0 p
0 E( J3 L9 x& Z# u8 j1 w+ S. Y, N
%>
1 i. D7 j7 j( D
* O: x3 r) u/ W
aa:time;! y2 @5 V2 x- R% S8 @: F
Show File Failed
|8 r) z, V" W h# c- T; i: k3 L
, k7 l* J, k( Z% `$ m
% o) V, F; a& D6 S: X. E0 ~

复制代码

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

醉心发表于 2014-2-17 11:36
$ O3 Y4 M, M1 A- h. r! n- c用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36$ a V8 k' H& G0 Y1 C
用VB来写看看

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

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

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

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