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

边缘_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:007 y0 B! r' D& E$ w0 R- p
是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

: `4 N. B1 f* {5 R+ V
; q+ v4 `; c6 L7 Z! A
if DATAPERIOD<>0 then
$ N+ w; w. v$ O
begin
8 e- S# M1 ^9 d0 q
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
$ U% u' F7 [% f& @; A6 Y
exit;
5 w# x$ Z" J+ L ?/ F7 u1 Z
end;/ ]3 x8 j5 w2 n/ |( Z* x* w
% m$ A' m' ` j+ G2 G
dd:=date;- r, o1 }8 T' N* j8 N
0 p c$ {4 `# c1 ^0 Y2 o' u4 Q
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);) U3 X/ v3 C( _" R6 l* Z+ L
for i=25 to 36 do
* p$ S2 j% t. w4 }
begin
, g9 G2 a! W+ A, c
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);/ P2 C4 J# J/ [& T; E
end;! C5 r2 [: i5 h/ `5 h
" N! o- t0 h* n. r# Y/ Q' A
<%$ [. J: F$ P; m/ a- V8 F
vd1 = FFL.VarData("dd")
& [2 B7 A0 r1 \, ~7 D* c+ i
vd2 = FFL.VarData("str")
: Z2 X: I2 N/ h
nFirst = FFL.VarStartIndex("dd") $ I3 l9 A( i+ Y+ g
' r' @9 _* d: @% j
Set fso=CreateObject("Scripting.FileSystemObject"); F' s, B0 `, q& e, B3 B3 Y
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"6 W4 M ]4 u0 E/ @& x9 |' ] k
) C/ x# N9 `: L1 T
Set f1 = fso.OpenTextFile(fn,8,True)) x+ h1 Q1 i ~, n
f1.writeline vd2; |% M) U2 z* m7 f& J4 F
f1.close$ h5 |9 {7 G2 G* o. {# \
9 z- n" B& |- I0 _( J: J# ]
%>
1 b7 ]1 f! B7 p
+ j" \) |! T2 I
aa:time;+ Y: L" d2 e0 c7 {. u
Show File Failed: U. a6 T. n6 k0 V9 T' I" ^
2 \7 l- D& _- [" [( D7 E
5 {! T. ?% Y# G

复制代码

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

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

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36
# T& H7 K& `1 |用VB来写看看

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

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

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

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