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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 读取TXT文件中的数据
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 879  |  回复: 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的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

★
xzhdty: 金币+1, 谢谢参与 2015-06-02 06:51:00
SAdd = Not (SAdd)
来历不明，也没有初始值。 我以为你给我们看的只是你程序的一段代码。

你要让结果正确，应该向大家讲出你程序的目的，说明数据和结果。
赞一下 回复此楼
5楼2015-06-01 20:26:13
已阅   回复此楼   关注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 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿南昌大学324求调剂 +7 hanamiko 2026-03-27 7/350 2026-03-28 09:56 by 李上岸0921
[考研] 材料与化工考研调剂 +17 孅華 2026-03-22 17/850 2026-03-28 08:35 by WYUMater
[考研] 291求调剂 +6 HanBeiNingZC 2026-03-24 6/300 2026-03-28 07:55 by baoball
[考研] 一志愿厦门大学化学学硕307求调剂 +9 y7czhao 2026-03-26 9/450 2026-03-28 07:53 by Iveryant
[考研] 一志愿中南大学化学0703总分337求调剂 +4 niko- 2026-03-27 4/200 2026-03-28 07:26 by fungyao
[考研] 320分，材料与化工专业，求调剂 +7 一定上岸aaa 2026-03-27 9/450 2026-03-28 07:07 by wangy0907
[考研] 340求调剂 +5 jhx777 2026-03-27 5/250 2026-03-28 04:18 by fmesaito
[考研] 食品工程专硕一志愿中海洋309求调剂 +3 小张zxy张 2026-03-26 5/250 2026-03-27 18:42 by 小张zxy张
[考研] 274求调剂 +17 顾九笙要谦虚 2026-03-24 23/1150 2026-03-27 15:16 by caszguilin
[考研] 复试调剂，一志愿南农083200食品科学与工程 +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by 狂炫麦当当
[考研] 一志愿吉大071010，316分求调剂 +3 xgbiknn 2026-03-27 3/150 2026-03-27 10:36 by guoweigw
[考研] 329求调剂 +7 钮恩雪 2026-03-25 7/350 2026-03-27 04:28 by wxiongid
[考研] 351求调剂 +4 麦克阿磊 2026-03-24 4/200 2026-03-27 00:32 by wxiongid
[考研] 321求调剂 +5 材料cailiao 2026-03-21 5/250 2026-03-26 20:41 by fmesaito
[考研] 化学工程085602 305分求调剂 +17 RichLi_ 2026-03-25 17/850 2026-03-26 19:44 by plmuchong
[考研] 302求调剂 +4 锦衣卫藤椒 2026-03-25 4/200 2026-03-25 16:29 by 功夫疯狂
[考研] 311求调剂 +3 冬十三 2026-03-24 3/150 2026-03-24 21:31 by peike
[考研] 080500求调剂 +3 zzzzfan 2026-03-24 3/150 2026-03-24 16:38 by barlinike
[考研] 生物学调剂 +5 Surekei 2026-03-21 5/250 2026-03-22 14:39 by tcx007
[考研] 材料学硕301分求调剂 +7 Liyouyumairs 2026-03-21 7/350 2026-03-21 22:31 by peike
信息提示
关闭
请填处理意见
关闭