下载
登录/ 注册
主页
论坛
视频
热股
可转债
下载
下载

请教vbs，为什么这几行读不到文本文件里面的东西

10-05-02 13:41 2302次浏览
TIGERtiger
+关注
博主要求身份验证
登录用户ID：
下面几行，是飞狐里面公式条用vbscript的语句，8，9，10行读文本文件：

－－－－－－－－－－－－－－
variable:str1='11111111';
<%
vstr1=ffl.vardata("str1")
vstkcode=FFL.VarData("stkcode")
vdate1=ffl.vardata("date1")
vstknum=ffl.vardata("stknum")
vstkgu=ffl.vardata("stkgu")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("D:\FoxTrader4.9.60901\stknum\600000.txt",1,false)
vstr1 = MyFile.Readline
MyFile.close
FFL.VarStartIndex("vstr1")=str1
%>
EXPLAIN(1,str1);
－－－－－－－－－－－－－－－－－
有懂的帮忙看一下，为什么str1还是'11111111'
没有试过文件的用法，也查不出来
谢谢！
打开淘股吧APP
0
评论(6)
收藏
展开
热门 最新
TIGERtiger

10-05-03 18:08

0
做出来了，几年没写这玩意，差不多都丢光了

对筹码分析来说，股东人数的增减是很重要的一个方面
查f10不直观
做个指标，直接显示在图形里面，更加直观
介绍一下指标，兴趣各位可以自己写写
思路是从网页直接读取股东户数资料，再做成指标
例如 600879的图：


去年第三季度股东人数增加93%，但第四、今年第一季度分别减少27%和20%
看上去比较直观和明显
TIGERtiger

10-05-02 15:36

0
自由，肯定不是这么弱智的，否则根本编译不通过
放飞心灵

10-05-02 15:22

0
variable:str1="11111111";
放飞心灵

10-05-02 15:22

0
VB没怎么用过，VC倒是以前用过
 variable:str1='11111111';，是不是为双引号码"  ";
TIGERtiger

10-05-02 14:10

0
vstr1，本来赋值是11111111，完了之后还是11111111
文本文件肯定不空，这么简单的错误能犯吗
biubiu

10-05-02 13:53

0
vstr1 有数值吗 打出来看一下
另， D:\FoxTrader4.9.60901\stknum\600000.txt 这个文本是否为空

许久不用VBScript了 仅供参考
刷新 首页上一页 下一页末页
提交