应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 读取TXT文件中的数据
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 883  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

RwingRWING

新虫 (初入文坛)

[求助] 读取TXT文件中的数据 已有3人参与

这是我编写的程序代码，可是读取的结果似乎不对，因为我后面的计算中要用到这些数据，一运行就提示溢出，我发现我不知道怎么改，谢谢帮助
Dim TempLine As String
  Dim temp() As String
  Dim I As Integer
  Dim J As Integer
  Dim SAdd As Boolean
Open App.Path & "\jilu.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, TempLine
      TempLine = FormatStr(TempLine)
      temp = Split(TempLine, " "
      Select Case UBound(temp)
        Case Is = 3
          HL = temp(0)
          Q = Val(temp(1))
          NN = Val(temp(2))
          Z(1) = Val(temp(3))
        Case Is = 4
          SAdd = Not (SAdd)
         
          If SAdd = False Then J = 1
           I = Val(temp(0))
           L(I) = Val(temp(1))
           M(I) = Val(temp(2))
           GG(I) = Val(temp(3))
           n(I) = Val(temp(4))
       Case Is = 1
          AX(I, J) = Val(temp(0))
          GCH(I, J) = Val(temp(1))
          If J <= M(I) Then
          J = J + 1
          End If
       End Select
    Loop
    Close #1
Function FormatStr(temp As String) As String
  FormatStr = Trim(temp)
  Do While InStr(1, FormatStr, "  " > 0
     FormatStr = Replace(FormatStr, "  ", " "
   Loop
End Function

附上TXT中的数据
ALGOU          320           2             90
1             0             11            0             .04
0             96
0             88.7
4             86.1
12            85.9
17.2          85.6
19.5          86.1
20            86.4
27.2          88.5
32.6          88.8
42.3          88.5
42.3          96
2             39            12            0             .04
0             97
0             90.2
3.4           88
7.2           86
12.5          86.3
21.6          86.7
27.4          87.2
33            90.1
40            90.1
40.6          89.7
46.4          87.3
46.4          97
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2015-05-30 10:55:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

43fd6ys

木虫 (正式写手)

【答案】应助回帖

不知程序何处结束. END
赞一下 回复此楼
6楼2015-07-23 22:00:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

感谢参与，应助指数 +1
老是数据溢出可能是你的 temp() 数组多次调用，在新的一次调用时要重新定义大小，要 redim 下。
赞一下 回复此楼
2楼2015-05-30 19:56:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

我试了一下，不是temp()的问题.， 我在前面定义字符类型中加上了这两行后运行没有问题。
  Dim z(100), L(100), M(100), GG(100), n(100) As Single
  Dim ax(100, 100), gch(100, 100) As Single
因为你的数据少，我定义到100，应该足够了。 运行没有问题。
可能是你的这几个数组定义有问题。
赞一下 回复此楼
3楼2015-05-30 20:32:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

RwingRWING

新虫 (初入文坛)
引用回帖:
3楼: Originally posted by deephill at 2015-05-30 20:32:44
我试了一下，不是temp()的问题.， 我在前面定义字符类型中加上了这两行后运行没有问题。
  Dim z(100), L(100), M(100), GG(100), n(100) As Single
  Dim ax(100, 100), gch(100, 100) As Single
因为你的数据少 ...

我没有给J赋过值，可是为什么最后会J=13呢，所以显示下标越界
赞一下 回复此楼
4楼2015-06-01 09:32:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 7 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085602 307分 求调剂 +7 不知道叫什么！ 2026-03-26 7/350 2026-03-28 09:57 by 神马都不懂
[考研] 085405 考的11408求各位老师带走 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 09:19 by 乐呵呵的追梦人
[考研] 291求调剂 +6 HanBeiNingZC 2026-03-24 6/300 2026-03-28 07:55 by baoball
[考研] 352分 化工与材料 +5 海纳百川Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
[硕博家园] 北京林业大学硕导招生广告 +6 kongweilin 2026-03-26 8/400 2026-03-27 10:18 by FF_16
[考研] 材料学硕，求调剂 6+5 糖葫芦888ll 2026-03-22 10/500 2026-03-27 08:18 by hypershenger
[考研] 316求调剂 +5 江辞666 2026-03-26 5/250 2026-03-27 08:08 by hypershenger
[考研] 349求调剂 +5 杰斯塔里斯 2026-03-21 5/250 2026-03-27 00:31 by wxiongid
[考研] 294分080500材料科学与工程求调剂 +4 柳溪边 2026-03-26 4/200 2026-03-26 21:14 by XPU李庆
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-03-26 3/150 2026-03-26 19:57 by nihaoar
[考研] 一志愿河工大 081700 276求调剂 +4 地球绕着太阳转 2026-03-23 4/200 2026-03-26 14:27 by zzll406
[考研] 0856求调剂 +8 zhn03 2026-03-25 9/450 2026-03-26 13:42 by zzll406
[考研] 284求调剂 +15 Zhao anqi 2026-03-22 15/750 2026-03-25 12:51 by wht0531
[考研] 289材料与化工（085600）B区求调剂 +4 这么名字咋样 2026-03-22 5/250 2026-03-25 08:20 by mx.yue
[考研] 300分，材料，求调剂，英一数二 +5 超赞的 2026-03-24 5/250 2026-03-24 21:07 by 星空星月
[考研] 0703化学调剂，求导师收 +7 天天好运来上岸� 2026-03-24 7/350 2026-03-24 20:26 by peike
[考研] 307求调剂 +3 余意卿 2026-03-21 6/300 2026-03-24 15:03 by 余意卿
[考研] 接收2026硕士调剂(学硕+专硕) +4 allen-yin 2026-03-23 6/300 2026-03-23 15:04 by 汪！？！
[考研] 308求调剂 +3 墨墨漠 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
[考研] 285求调剂 +6 ytter 2026-03-22 6/300 2026-03-22 12:09 by 星空星月
信息提示
关闭
请填处理意见
关闭