| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 659 人关注过本帖
标题:实时错误 6,数据溢出怎么改
只看楼主 加入收藏
夜雨霖铃
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2014-3-6
结帖率:50%
收藏
已结贴  问题点数:15 回复次数:2 
实时错误 6,数据溢出怎么改
代码如下:
Dim a As String
Dim b As String
    Open sklujing + wenjianm For Input As #1    '读预处理前的实况数据文件
   
    Line Input #1, a
    a = Mid(a, 23)
    If a Like "TEMP" Then
       i = 1
Do Until EOF(1)
        Line Input #1, a
        b = Mid(a, 7, 10)
        MsgBox b
        wenjianm1 = Mid(a, 7, 10) & ".txt" '用时间给分解后实况资料命名
        Open sklujing1 + wenjianm1 For Output As b
         i = i + 1
    Print #b, a
        Loop
Close #1
    Else: MsgBox "非法实况温度资料"
   Close #1
     Exit Sub
    End If
文件内容为:IIIII    OBSTIME    LAT    LON    TEMP
53478    20130920000000    400000    1122700    7.9
53478    20130920030000    400000    1122700    18.0
53478    20130920060000    400000    1122700    19.6
53478    20130920090000    400000    1122700    17.6
53478    20130920120000    400000    1122700    15.9
53478    20130920150000    400000    1122700    13.5
53478    20130920180000    400000    1122700    11.5
53478    20130920210000    400000    1122700    6.6
53478    20130921000000    400000    1122700    9.3
...
我是要把文件按时间分成不同的txt文档,程序在“Open sklujing1 + wenjianm1 For Output As b”报错,本来以为文件是规律的,每个站点88行,用的mod88标记b,结果执行后发现有的站点信息缺几个时间点,就想到直接用时间标记,但是数据溢出了,求各位大神帮忙看看怎么改!
搜索更多相关主题的帖子: 命名 实况 资料 
2014-05-21 15:25
afeibfp
Rank: 2
等 级:论坛游民
威 望:1
帖 子:11
专家分:31
注 册:2007-6-1
收藏
得分:8 
“Open sklujing1 + wenjianm1 For Output As b”
b 不应该是个整形常数或变量么
2014-05-23 16:55
owenlu1981
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:13
帖 子:211
专家分:1130
注 册:2013-5-17
收藏
得分:8 
Open sklujing1 + wenjianm1 For Output As #2
i = i + 1
Print #2, a
Close #2

i是文件计数用吗?没看到用处......
2014-05-23 21:07
快速回复:实时错误 6,数据溢出怎么改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028797 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved