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

边缘_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
4 k% Z9 ^0 E5 }" p* p( t" j! `是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

+ E9 q9 u! Z8 ~) r# s5 ~
3 {2 Z8 N7 N3 t% ^$ H
if DATAPERIOD<>0 then
1 K( d. H+ U" ?3 X
begin* ?+ f2 t7 w% ~1 o* `
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
+ P3 }' }- w [% ?: x* R1 N
exit;' i& `' c# h9 t% p2 q# u
end;6 I _7 p5 W% u( K, m9 `
9 Y. {* x$ d; ~5 n
dd:=date;5 ?1 n8 A& l3 T+ C( e1 s
# E. g* M' _; n. T! O2 E
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);7 S" \, }# v1 X+ \
for i=25 to 36 do$ ~3 Q* G/ C3 g# F- |
begin3 F3 F3 ]+ z6 i4 B& q
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
+ u2 W+ }7 h( o' N5 e3 w
end;, z9 K9 ?! _4 h* _& I' U
( z5 H/ H! ^4 I% o+ f) B# l
<%$ y1 H# d. M3 J: ?' |6 \
vd1 = FFL.VarData("dd")& V1 Y s2 z y
vd2 = FFL.VarData("str")# X9 v; @6 F- a7 H+ c! s! ~
nFirst = FFL.VarStartIndex("dd")
% m& x7 ^" z& Q; R4 R- a4 C
' {9 Z+ q/ d) T7 U' S( U6 H
Set fso=CreateObject("Scripting.FileSystemObject")
8 m- k1 I1 `- D4 S# _% `1 _+ \
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"" a$ R) J& G% T# c0 Q
. U* ]" ~ k! i6 }, [6 m
Set f1 = fso.OpenTextFile(fn,8,True)* e' m" G; a& q e/ H, M+ Q8 w
f1.writeline vd2: t0 S) ^ _+ D" p
f1.close
+ B% c" N0 O5 Q6 w
! e5 r0 Y: _' S- r
%>- [' G* D E9 V* w- B4 H* F
! m- L ` i$ H2 j* f) q
aa:time;
$ v$ `' H# I$ p: E: o
Show File Failed5 y; B" Q. x( r
5 c" D E+ I8 `. N u1 t" K
( V3 a3 j) C1 n5 ~$ j7 D' B) q

复制代码

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

醉心发表于 2014-2-17 11:36) P6 C+ M \+ A0 h/ d
用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36
. P8 D$ l! t( Y' k用VB来写看看

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

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

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

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