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

边缘_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; m) h, q' I2 G- a/ ~- H
是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

# \4 h2 \8 d9 V+ x( S
) m) |6 Q8 `( k* p; i8 A& Y$ J. a
if DATAPERIOD<>0 then
' O$ Z. H( a* K4 @' {
begin; Q& j$ U5 O7 g9 A% C
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');0 c2 d! F" a# g9 v
exit;8 F% X& Z6 a, [1 f
end;" ^' f! j: M1 r) w# O9 C% j7 s
" A* U/ _7 h- Q+ d8 [9 z: M
dd:=date;( H7 ^6 `0 D- p3 ~2 D s% x/ S! M
- J$ Y3 B+ n' s. c9 t, c
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
7 d& @; C, x+ n. @+ i
for i=25 to 36 do K) c8 r' S% i! V- D
begin+ o) o0 E% ~8 j k
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);* M0 T! c+ w5 r4 ~# A" k4 |% z
end;% a6 p% R5 T1 v9 p
5 P! E5 |" Q' C
<%
6 \' q, I* {) m4 q% {/ p
vd1 = FFL.VarData("dd")
& r( b2 c# y i$ ^0 Z% U# x" A
vd2 = FFL.VarData("str")
% T z4 }: I( o7 ~
nFirst = FFL.VarStartIndex("dd") $ ], K* |, i3 W y0 n
" A% h% t4 w- a2 V5 g) e
Set fso=CreateObject("Scripting.FileSystemObject")6 {) W5 a( ]+ U$ z8 S
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
+ [+ \% { ~4 Y+ O8 k
* U' n% |, }# M! x8 {0 k
Set f1 = fso.OpenTextFile(fn,8,True)
( \/ Z L% d+ c7 Y8 e
f1.writeline vd2* b- t9 M( s+ _" s$ B/ B
f1.close
3 l7 y! ]2 C. k( _
3 @( \# ^% @0 x' o2 I& U
%>
( ? U8 F0 {! [% _' d
6 ^5 V, s) M# e; m! m8 X4 z
aa:time;) F0 g2 g7 {+ {/ z" t
Show File Failed& P% m0 R' a. j- A0 n- @2 X
" U$ a! M2 o- ^# k
& \0 L0 C2 U& d7 S, a: r& j

复制代码

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

醉心发表于 2014-2-17 11:36
* @0 Y, }. N* p3 @用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36, `8 G! a7 h8 [
用VB来写看看

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

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

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

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