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

24小时热门版块排行榜    

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

铁杆木虫 (职业作家)

【答案】应助回帖

感谢参与，应助指数 +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的回帖

deephill

铁杆木虫 (职业作家)

【答案】应助回帖

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

你要让结果正确，应该向大家讲出你程序的目的，说明数据和结果。
赞一下 回复此楼
5楼2015-06-01 20:26:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

43fd6ys

木虫 (正式写手)

【答案】应助回帖

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

york1996

新虫 (初入文坛)

【答案】应助回帖

你要干什么呢，用固定数组来读取
赞一下 回复此楼
7楼2016-03-03 20:09:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 RwingRWING 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料求调剂 一志愿哈工大总分298分，前三科223分 +5 dongfang59 2026-03-27 5/250 2026-03-28 04:53 by wxiongid
[考研] 086502化学工程342求调剂 +4 阿姨复古不过 2026-03-27 4/200 2026-03-28 04:41 by wxiongid
[考研] 291求调剂 +7 孅華 2026-03-22 7/350 2026-03-28 04:02 by fmesaito
[考研] 求调剂 +8 张zz111 2026-03-27 9/450 2026-03-28 03:41 by fmesaito
[考研] 0703化学求调剂，各位老师看看我！！！ +5 祁祺祺 2026-03-25 5/250 2026-03-27 21:44 by 东方猪猪
[考研] 265求调剂11408 +3 刘小鹿lu 2026-03-27 3/150 2026-03-27 20:53 by nihaoar
[考研] 一志愿211院校 344分 东北农业大学生物学学硕，求调剂 +5 丶风雪夜归人丶 2026-03-26 8/400 2026-03-27 19:22 by 丶风雪夜归人丶
[考研] 一志愿北化085600材料专硕275|有文章专利｜求调剂 +3 Micky11223 2026-03-25 3/150 2026-03-27 14:52 by 醉在风里
[考研] 复试调剂，一志愿南农083200食品科学与工程 +5 XQTJZ 2026-03-26 5/250 2026-03-27 14:49 by 狂炫麦当当
[考研] 085600材料与化工306 +10 z1z2z3879 2026-03-21 11/550 2026-03-27 11:31 by wangjy2002
[考研] 调剂求收留 +7 果然有我 2026-03-26 7/350 2026-03-27 00:26 by wxiongid
[考研] 324求调剂 +4 wysyjs25 2026-03-21 4/200 2026-03-26 20:38 by fmesaito
[考研] 081700 调剂 267分 +11 迷人的哈哈 2026-03-23 11/550 2026-03-26 15:41 by zzll406
[考研] 打过很多竞赛，085406控制工程300分，求调剂 +3 askeladz 2026-03-26 3/150 2026-03-26 09:08 by 给你你注意休息
[考研] 334分 一志愿武理-080500 材料求调剂 +4 李李不服输 2026-03-25 4/200 2026-03-25 21:26 by 星空星月
[考研] 0854人工智能方向招收调剂 +4 章小鱼567 2026-03-24 4/200 2026-03-25 13:29 by 2177681040
[考研] 求调剂 +6 研研，接电话 2026-03-24 7/350 2026-03-24 17:01 by barlinike
[考研] 307求调剂 +3 余意卿 2026-03-21 6/300 2026-03-24 15:03 by 余意卿
[考研] 341求调剂(一志愿湖南大学070300) +5 番茄头--- 2026-03-22 6/300 2026-03-23 23:45 by Txy@872106
[考研] 考研调剂 +3 呼呼？~+123456 2026-03-21 3/150 2026-03-21 20:04 by 无际的草原
信息提示
关闭
请填处理意见
关闭