乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 43|回复: 1

多谢efan2000的回复,再请问:

[复制链接]

1

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
5
发表于 2003-1-8 19:33:00 | 显示全部楼层 |阅读模式
我已编了两个数据文件:(数据文件中的数据已在前面赋过值了)
一个是写入数据的(在同事的工程中)
Dim filename As String
filename = Application.Path & "\cs.data"
Open filename For Output As #1
Write #1, lzw
Write #1, lzg
Write #1, lzc
Write #1, ytm
Write #1, ywm
Write #1, yrj
Write #1, yc
Write #1, yw
Write #1, yg
Write #1, pbc
Write #1, pbk
Write #1, pbh
Write #1, dyh
Write #1, deh
Write #1, dsh
Write #1, qyh
Write #1, qeh
Write #1, qsh
Write #1, cyh
Write #1, ceh
Write #1, csh
Write #1, cg
Write #1, ydk
Close (1)
一个是读出数据的:(在我的工程中)
Dim filename As String
filename = Application.Path & "\cs.data"
Open filename For Input As #2
Do
Input #2, lzw
Input #2, lzg
Input #2, lzc
Input #2, ytm
Input #2, ywm
Input #2, yrj
Input #2, yc
Input #2, yw
Input #2, yg
Input #2, pbc
Input #2, pbk
Input #2, pbh
Input #2, dyh
Input #2, deh
Input #2, dsh
Input #2, qyh
Input #2, qeh
Input #2, qsh
Input #2, cyh
Input #2, ceh
Input #2, csh
Input #2, cg
Input #2, ydk
Loop Until EOF(2)
Close (2)
我想用#2写入的数据作为参数来完成我的绘图工作,但运行时出错
不知你所说的接口是怎么实现的??
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2003-1-9 18:07:00 | 显示全部楼层
这样子不行,每个变量的值的长度是变化的,可能你写入的时候是一种格式,但读出的时候就错位了,返回的值跟写入的值不一样,简单一点的就是将变量声明为记录型的,这样长度一定,或者每行只写一个数据也行。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-13 03:54 , Processed in 0.666928 second(s), 56 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表