VB 读取txt文件中的数，上千个数，但是40个一组，

答案:1 悬赏:60 手机版

解决时间 2021-03-17 07:17

提问者网友：無理詩人
2021-03-16 18:59

最佳答案

五星知识达人网友：痴妹与他
2021-03-16 19:25

你的提问.好乱好乱.40个一组?是指40个数字还是指40个字符?123这样算1个还是3个?中间有没有别的字符?还有40个一组.是40个一行?还是不分行?还有比如第36,37,38个数是1,1,1，那么就是一年一班一号，那么前面的数都是他的?是谁的?做什么处理呢?追问就是比如数字是126334432，这种都在一起没有间隔，然后这些数是40个为一组，一组数又要分别放入数组中比如a(1)=1,a(2)=2,a(3)=6,通过判断a(36)a(37,a(38)来确定前面都数组中的数，是哪个班级的，这样就可以将a(1)=1,a(2)=2,a(3)=6给一班了追答你看看吧.是不是你要的效果?

Private Sub Command1_Click()
Text1.Text = ReadFile(App.Path & "1.txt")
a = Split(Text1, vbCrLf)
For i = 1 To UBound(a)
List1.AddItem "     " & Mid(a(i - 1), 36, 1) & "    " & Mid(a(i - 1), 37, 1) & "    " & Mid(a(i - 1), 38, 1)
Next
End Sub
Public Function ReadFile(ByVal FileName As String) As String
    Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")
    With objStream
        .Type = 2
        .Mode = 3
        .Open
        .Charset = "gb2312"
        .LoadFromFile FileName
         ReadFile = .ReadText
        .Close
    End With
End Function
这个是代码.附件里是源码.
追问太谢谢了，虽然和我的不太一样，不过对我也有很大帮助，我是一点都不会，先学现卖都不赶趟，我再弱弱的问一个问题，就是可以将txt中的数，40个40个读过来么，就是40个放一个数组，然后我判断完了之后，将数据分配好之后，再读下一个40个数追答那也容易.附件里就是.不管你原本数据是不是40一行.用这个代码后都是40个一组.

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息