用VB来写看看/ n0 m7 B+ C' D+ v7 v h+ ]# B3 q
/ x% c3 c- F7 Y( a* {. t v, x
& |# S% Y' }" k" B- ; v+ t! V/ A3 h7 A- |
- if DATAPERIOD<>0 then 5 J$ v7 k R- O0 Z0 C
- begin
0 `0 B, m9 d. g/ g5 U' c F- R - DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
: O* [/ B) I# [) _& x% Y) n - exit;2 O) i7 S4 V! \# ^* L3 P% d
- end;0 Z8 g4 m# w; n1 d: A8 [
/ [2 F. F! E0 I: l j+ b- dd:=date;
+ x9 m1 `7 W9 ^. R, `9 }. P
3 q8 P# z2 G) ~5 n) S: D- str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);7 B& a. ^5 G- V- P( R ^* B9 G
- for i=25 to 36 do- {0 U5 k4 g+ g7 U% f" k" @) @
- begin$ Y4 p- G( y9 D% e+ W' c5 j$ V
- str:=str+';'+NUMTOSTR(DYNAINFO(i),2);8 J) B3 V c* ?* u$ W& D% C# S
- end;8 Q" f- B# t* b5 N
4 f" {8 f* {# n0 t$ w4 |* L0 ?- <%
& N0 S+ A: _% b- t; @) h* O G+ o5 o - vd1 = FFL.VarData("dd") w+ q& x: E1 Z$ ^# p' \
- vd2 = FFL.VarData("str")
A+ y v/ ?6 ?9 A& | { - nFirst = FFL.VarStartIndex("dd") ( G# F* c& ]. G% C+ h: B0 h
# O; t& d; ^: D7 r- Set fso=CreateObject("Scripting.FileSystemObject")0 }. h) x0 _# l3 c$ s, H8 M
- fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt". ~4 N5 K* d$ S) y- d( x* h# y
- / o+ B- }. H) w+ |# [ L/ p
- Set f1 = fso.OpenTextFile(fn,8,True)
4 }' P. t5 p- A- D - f1.writeline vd2) ~, b8 @+ G4 i3 T- [
- f1.close
/ J! t+ b- B& R8 g( H: X* H - ' {8 E2 H' S; z; W( A
- %>% _/ L; S7 N, k$ z
* E* P0 f3 `2 Q# \. |* E) s% j+ O- aa:time;
/ m' v2 Y5 ?# L, g1 \ - Show File Failed
; w3 {( B$ j( Z$ G$ B' m1 f1 { - 7 B% ^1 Z8 W* L' m; P$ _
% j p: K4 ^+ I0 q- S
复制代码 * G- G( J" T1 t) S! @% p# E
|