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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » VB文件读取的问题！！！急
142/2返回列表上一页12
查看: 1266  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

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的回帖

zjzc511

银虫 (小有名气)
代码如下
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
赞一下 回复此楼
23
14楼2014-05-31 21:06:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 huzijun888 的主题更新
142/2返回列表上一页12
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0703 物理化学调剂 +3 我可以上岸的对� 2026-03-13 5/250 2026-03-16 10:50 by 我可以上岸的对�
[考研] 0856求调剂 +3 刘梦微 2026-03-15 3/150 2026-03-16 10:00 by houyaoxu
[考研] 环境工程调剂 +3 大可digkids 2026-03-16 3/150 2026-03-16 09:09 by DDDddddmm
[考研] 326求调剂 +4 上岸的小葡 2026-03-15 5/250 2026-03-16 08:39 by Linda Hu
[考研] 调剂 +8 调剂的考研学生 2026-03-09 8/400 2026-03-15 22:14 by Winj1e
[基金申请] 国自科面上基金字体 +4 iwuli 2026-03-12 5/250 2026-03-15 17:07 by 风云无泪
[考研] 材料与化工 323 英一+数二+物化，一志愿：哈工大 本人本科双一流 +4 自由的_飞翔 2026-03-13 5/250 2026-03-14 19:39 by hmn_wj
[基金申请] 面上和青基一样限30页不合理 +5 wowsunflower 2026-03-10 7/350 2026-03-14 17:21 by kingkocxr
[考研] 308 085701 四六级已过求调剂 +7 温乔乔乔乔 2026-03-12 14/700 2026-03-14 10:49 by JourneyLucky
[考研] 考研材料与化工，求调剂 +8 戏精丹丹丹 2026-03-09 8/400 2026-03-14 01:14 by JourneyLucky
[考研] 312求调剂 +6 陌宸希 2026-03-10 6/300 2026-03-14 00:40 by JourneyLucky
[考研] 308求调剂 +3 是Lupa啊 2026-03-10 3/150 2026-03-14 00:30 by JourneyLucky
[考研] 318求调剂 +3 李新光 2026-03-10 3/150 2026-03-14 00:21 by JourneyLucky
[考研] 材料与化工（0856）304求B区调剂 +6 邱gl 2026-03-12 7/350 2026-03-13 23:24 by 邱gl
[考研] 【考研调剂求收留】 +3 Ceciilia 2026-03-11 3/150 2026-03-13 20:18 by JourneyLucky
[考研] 310求调剂 +3 【上上签】 2026-03-11 3/150 2026-03-13 16:16 by JourneyLucky
[考研] 材料301分求调剂 +5 Liyouyumairs 2026-03-12 5/250 2026-03-13 14:42 by JourneyLucky
[考研] 070303一志愿西北大学学硕310找调剂 +3 d如愿上岸 2026-03-12 5/250 2026-03-13 10:56 by houyaoxu
[考研] 哈工大材料324求调剂 +6 闫旭东 2026-03-10 8/400 2026-03-10 22:49 by 星空星月
[考研] 收调剂 +7 调剂的考研学生 2026-03-10 7/350 2026-03-10 17:57 by 麦茶汤圆
信息提示
关闭
请填处理意见
关闭