| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2909 人关注过本帖, 1 人收藏
标题:读取TXT数据到数组
取消只看楼主 加入收藏
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
结帖率:85.71%
收藏(1)
已结贴  问题点数:100 回复次数:4 
读取TXT数据到数组
Desktop.zip (103.75 KB)

请大家帮帮忙,我一直没找到读取这个Txt的有效方法,谢谢了
2015-12-11 16:16
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:0 
回复 3楼 风吹过b
谢谢版主,我一直试过好多办法都没搞定!格式是固定的,但行数是变动的
2015-12-14 14:25
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:0 
程序代码:
Private Sub Command1_Click()
    Dim StartLog As Boolean
    Dim Arr, i%
    StartLog = False
    Open "C:\M49855360174X.txt" For Input As #1
    ReDim Arr(1 To 1000, 1 To 4)
    Do While Not EOF(1)
        Line Input #1, a
        If StartLog = True And InStr(a, "Jabil Circuit Pull List Report") > 0 Then Exit Do
        If InStr(a, "Individual Ref.no:") > 0 Then
            i = i + 1
            Arr(i, 1) = Trim$(Mid(a, 19, 15))
            Arr(i, 2) = Mid(Split(a, ":")(1), 11, 4)
        End If
        If InStr(a, "Storage location for replenishment:") > 0 Then Arr(i, 4) = Split(a, ":")(1)
        If InStr(a, "Cost Center:") > 0 Then Arr(i, 3) = Split(a, ":")(1)

        If InStr(a, "Avail Stock") > 0 Then StartLog = True: GoTo NextLine
        If StartLog Then
            If InStr(a, "------------") > 0 Then
                GoTo NextLine
            Else
                If InStr(1, Mid(a, 1, 18), "       ") = 0 Then
                    i = i + 1
                    Arr(i, 1) = Mid(a, 1, 18)
                Else
                    Arr(i, 2) = Arr(i, 2) + CLng(Trim$(Mid(a, 57, 19)))
                    Arr(i, 3) = CLng(Trim$(Mid(a, 77, 8)))
                    Arr(i, 4) = Trim$(Mid(a, 99, 6))
                End If
            End If
        End If
NextLine:
    Loop
    Close #1
    Erase Arr
End Sub

谢谢版主,我继续研究下版主的代码!我附上这个代码是我在版主的基础上写的,基本可以解决问题了!再次感谢!
2015-12-14 17:50
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:0 
回复 6楼 风吹过b
谢谢版主,但我测试时为何提示参数类型不符?   Call Red_Pull_List("C:\M49855360174X.txt", 5)
2015-12-14 18:04
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:0 
回复 9楼 风吹过b
再次感谢版主解答,向你致敬,学习!!
2015-12-15 09:26
快速回复:读取TXT数据到数组
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019234 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved