vb大侠帮忙（读取数据问题）

来源：百度知道编辑：UC知道时间：2024/05/22 20:09:13

1 0.0 0.0 0.0 0.0 8 1 1 45.0 0 18.0
2 2 45.0
3 1 315.0
4 2 315.0
5 1 225.0
6 2 225.0
7 1 135.0
8 2 135.0
2 0.0 0.0 0.0 5.0 8 1 1 45.0 0 18.0
2 2 45.0
3 1 315.0
4 2 315.0
5 1 225.0
6 2 225.0
7 1 135.0
8 2 135.0
3 0.0 0.0 0.0 10.0 8 1 1 45.0 0 19.4
2 2 45.0
3 1 315.0
4 2 315.0
5 1 225.0
6 2 225.0
7 1 135.0
8 2 135.0
以上数据共有3大组，每大组数据有（8行）×（10列）个数，每一大组中第二行到第八行数据中的最后两个数和每一大组第一行最后两个数一样，例如（2 2 45.0）是（0.0 0.0 0.0 0.0 8 2 2 45.0 0 18.0）的简写形式。

怎么变成以下格式输出？每一行的第一、六、七个数不输出。
{
{{1,45.0,0,18.0},{2,45.0,0,18.0},{1,315.0,0,18.0},{2,315.0,0,18.0},
{1,225.0,0,18.0},{2,225.0,0,18.0},{1,135.0,0,18.0},{2,135.0,0,18.0}},
{{1,45.0,0,18.0},{2,45.0,0,18.0},{1,315.0,0,18.0},{2,315.0,0,18.0},
{1,225.0

'调试了我老长时间
'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
    Dim s$, sResult$, a, i%
    Open "C:\1.txt" For Input As #1 '假设要处理的文件为C:\1.txt
    s = StrConv(InputB$(LOF(1), #1), vbUnicode)
    Close #1
    a = Split(s, vbCrLf)
    s = "{" & vbCrLf
    For i = 0 To UBound(a)
        DoEvents
        If i Mod 8 = 0 Then
            Dim a1
            a1

vb大侠帮忙（读取数据问题） vb和sql中读取数据问题用VB读取EXCLE数据的问题 VB的数据读取 vb 读取网页数据关于VC,VB读取EXCEL表格中数据的问题关于VB读取内存数据 vb查找 sql数据读取 VB读取内存地址数据 vb 读取网页中的数据