[原创]导入导出全局变量 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [原创]导入导出全局变量

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有4135人关注过本帖树形打印复制链接主题：[原创]导入导出全局变量

z7c9

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小飞侠帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56

[原创]导入导出全局变量 发帖心情

Post By：2013/10/22 21:46:36 [只看该作者]

dim appname
dim filename

appname="weistock"
filename="c:\weistock.csv"

sub exportgbdata()
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile(filename,2,true)

for i=0 to document.ExtDataNum-1
  value=document.GetExtDataByIndex(i,key)
  file.writeline(key&","&value&","&"数字")
next

for i=0 to document.ExtDataStringNum-1
  value=document.GetExtStringByIndex(i,key)
  file.writeline(key&","&value&","&"字符串")
next

file.close

end sub

sub importgbdata()
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile(filename,1,true)

while file.atendofline<>true
  line=file.readline

  dim array
  array=split(line,",")

  if array(2)="数字" then
   document.SetExtData array(0),array(1)
  elseif array(2)="字符串" then
   document.SetExtString array(0),array(1)
  end if
wend

file.close

end sub