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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » VB文件读取的问题！！！急
71/1返回列表
查看: 1162  |  回复: 13
查看全部回帖 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

huzijun888

铜虫 (小有名气)

[求助] VB文件读取的问题！！！急

我有一个TXT文件想用VB编个小程序来处理一下，请问在VB里如何把这个data.txt读入，并且每行数据分别赋值给a(i,i)   a(i,2)   a(i,3)直至文件中的数据被读取完。下面是我的思路，被提示下标越界，求指点！！！

Private Sub Command1_Click()
Dim a() As Single, i As Long
i = 1
Open "data.txt" For Input As #1
Do While Not EOF(1)
    Input #1, a(i, 1), a(i, 2), a(i, 3)
   i = i + 1
Loop
Close #1
End Sub

未命名.jpg
回复此楼

» 收录本帖的淘帖专辑推荐

柴米油盐酱醋茶

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
致力于更合理、更有效、更准确地应用计算流体力学软件解决实际问题
1楼 2013-04-06 21:18:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chelator

木虫 (小有名气)

【答案】应助回帖

感谢参与，应助指数 +1
你用的是什么VB，若是VB6
Preserve只能增加最后一维空间
ReDim Preserve a(3, i)

建议先计算行数

dim LineNum  As Long
dim TextLine as String
LineNum = 0
Open "data.txt" For Input As #1
Do While Not EOF(1)   
   LineInput #1, TextLine
  LineNum =LineNum + 1
Loop
Close #1

再申请数组
Redim A(LineNum，3)
Open "data.txt" For Input As #1
Do While Not EOF(1)   
   Input #1, a(i, 1), a(i, 2), a(i, 3)
   i = i + 1
Loop
Close #1


另VB.NET 才使用二维数组定义
赞一下(1人) 回复此楼
4楼2013-04-07 11:58:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chelator

木虫 (小有名气)
把数据给我，我编一下。
赞一下 回复此楼
7楼2013-04-08 09:02:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chelator

木虫 (小有名气)
程序已做好，你的数据在某些行有四个数据，我删掉第三个数据。给个邮箱地址，我传给你。
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

huzijun888
9楼2013-04-10 11:41:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chelator

木虫 (小有名气)
代码如下
Dim a() As Single
Dim LineNum  As Long

Private Sub Command1_Click()

Dim i, j, k As Long

Dim TextLine As String
Dim EachText() As String
LineNum = 0
Open App.Path & "\data.txt" For Input As #1
Do While Not EOF(1)
   Line Input #1, TextLine
   LineNum = LineNum + 1
Loop
Close #1

ReDim a(LineNum - 1, 2)

Open App.Path & "\data.txt" For Input As #1

i = 0
Do While Not EOF(1)
    Line Input #1, TextLine
    EachText = Split(TextLine, " ", -1, vbTextCompare)
    k = 0
    For j = 0 To UBound(EachText)
        If EachText(j) <> "" Then
            a(i, k) = CSng(EachText(j))
            k = k + 1
        End If
    Next
   i = i + 1
Loop
Close #1

Command2.Enabled = True

MsgBox ("读取数据成功"
End Sub

Private Sub Command2_Click()
Dim Xmax, Xmin, Ymax, Ymin, Zvalue As Single
Dim Count As Long

If IsNumeric(TextXMax.Text) And IsNumeric(TextXMin.Text) And _
IsNumeric(TextYMax.Text) And IsNumeric(TextYMin.Text) And _
IsNumeric(TextZ.Text) Then
    Xmax = CSng(TextXMax.Text)
    Xmin = CSng(TextXMin.Text)
    Ymax = CSng(TextYMax.Text)
    Ymin = CSng(TextYMin.Text)
    Zvalue = CSng(TextZ.Text)
   
    If Xmax < Xmin Then
        MsgBox ("X最大最小值有误"
        Exit Sub
    End If
   
    If Ymax < Ymin Then
        MsgBox ("Y最大最小值有误"
        Exit Sub
    End If
   
   
    Open App.Path & "\result.txt" For Output As #1
        For i = 0 To LineNum - 1
            If a(i, 0) <= Xmax And a(i, 0) >= Xmin And _
                a(i, 1) <= Ymax And a(i, 1) >= Ymin And _
                a(i, 2) <> Z Then
                Print #1, a(1, 0) & "  " & a(i, 1) & "  " & a(i, 2)
                Count = Count + 1
            End If
        Next
    Close #1
   
    MsgBox ("有" & CStr(Count) & "行输出"
Else
    MsgBox ("请输入数字"
End If
End Sub
赞一下 回复此楼
11楼2013-04-11 09:31:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chelator

木虫 (小有名气)
其中
Xmax = CSng(TextXMax.Text)
    Xmin = CSng(TextXMin.Text)
    Ymax = CSng(TextYMax.Text)
    Ymin = CSng(TextYMin.Text)
    Zvalue = CSng(TextZ.Text)

TextXMax 是你的TextBox，我重新命名了。
赞一下 回复此楼
12楼2013-04-11 09:33:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

chelator

木虫 (小有名气)
错误数据的行号

1771
2158
3453
4806
5256
5446
8162
8549
9844
12091
12478
13773
赞一下 回复此楼
13楼2013-04-11 09:33:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 huzijun888 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭