以前是用VBA做的，现在想用VB6。只能输出开头的部分，各位大神可以帮我看下，我的问题出在哪里吗？

我修改过也不行，可以帮我改下嘛

代码我已修改了还是只能出来一点



Open "D:\原始资料\" & arr(1, 42) & "-CJ-" & myDate & ".txt" For Output As #1
    Text1.Text = "D:\原始资料\CS-1-WY-" & VBA.Format(Now(), "yyyymmdd") & ".dat,输出完成"
     Print #1, arr(1, 1) & " "
     If arr(2, 2) < 0 Then
      Print #1, arr(2, 1) & VBA.Format(arr(2, 2), "00000000") & " "
     Else
      Print #1, arr(2, 1) & "+" & VBA.Format(arr(2, 2), "00000000") & " "
     End If
   For b = 1 To C
     If arr(b * 3, 2) < 0 Then
      Print #1, arr(b * 3, 1) & VBA.Format(arr(b * 3, 2), "00000000") & " " & arr(b * 3, 3) & VBA.Format(arr(b * 3, 4), "00000000") & " "
     Else
      Print #1, arr(b * 3, 1) & "+" & VBA.Format(arr(b * 3, 2), "00000000") & " " & arr(b * 3, 3) & VBA.Format(arr(b * 3, 4), "00000000") & " "
     End If
     
     If arr(1 + b * 3, 2) < 0 Then
      Print #1, arr(1 + b * 3, 1) & VBA.Format(arr(1 + b * 3, 2), "00000000") & " " & arr(1 + b * 3, 3) & VBA.Format(arr(1 + b * 3, 4), "00000000") & " "
     Else
      Print #1, arr(1 + b * 3, 1) & "+" & VBA.Format(arr(1 + b * 3, 2), "00000000") & " " & arr(1 + b * 3, 3) & VBA.Format(arr(1 + b * 3, 4), "00000000") & " "
     End If
     
    If arr(2 + b * 3, 2) < 0 Then
     If arr(2 + b * 3, 6) < 0 Then
      Print #1, arr(2 + b * 3, 1) & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     Else
      Print #1, arr(2 + b * 3, 1) & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & "+" & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     End If
    Else
     If arr(2 + b * 3, 6) < 0 Then
      Print #1, arr(2 + b * 3, 1) & "+" & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     Else
      Print #1, arr(2 + b * 3, 1) & "+" & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & "+" & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     End If
    End If
   Next
      Print #1, ""
      Close #1
line1:
        xlBook.Close False    '关闭工作簿，结束进程
        Set xlBook = Nothing
        oExcel.Quit
        Set xlExcel = Nothing
    End If
End Sub

代码我已修改了还是只能出来一点



Open "D:\原始资料\" & arr(1, 42) & "-CJ-" & myDate & ".txt" For Output As #1
    Text1.Text = "D:\原始资料\CS-1-WY-" & VBA.Format(Now(), "yyyymmdd") & ".dat,输出完成"
     Print #1, arr(1, 1) & " "
     If arr(2, 2) < 0 Then
      Print #1, arr(2, 1) & VBA.Format(arr(2, 2), "00000000") & " "
     Else
      Print #1, arr(2, 1) & "+" & VBA.Format(arr(2, 2), "00000000") & " "
     End If
   For b = 1 To C
     If arr(b * 3, 2) < 0 Then
      Print #1, arr(b * 3, 1) & VBA.Format(arr(b * 3, 2), "00000000") & " " & arr(b * 3, 3) & VBA.Format(arr(b * 3, 4), "00000000") & " "
     Else
      Print #1, arr(b * 3, 1) & "+" & VBA.Format(arr(b * 3, 2), "00000000") & " " & arr(b * 3, 3) & VBA.Format(arr(b * 3, 4), "00000000") & " "
     End If
     
     If arr(1 + b * 3, 2) < 0 Then
      Print #1, arr(1 + b * 3, 1) & VBA.Format(arr(1 + b * 3, 2), "00000000") & " " & arr(1 + b * 3, 3) & VBA.Format(arr(1 + b * 3, 4), "00000000") & " "
     Else
      Print #1, arr(1 + b * 3, 1) & "+" & VBA.Format(arr(1 + b * 3, 2), "00000000") & " " & arr(1 + b * 3, 3) & VBA.Format(arr(1 + b * 3, 4), "00000000") & " "
     End If
     
    If arr(2 + b * 3, 2) < 0 Then
     If arr(2 + b * 3, 6) < 0 Then
      Print #1, arr(2 + b * 3, 1) & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     Else
      Print #1, arr(2 + b * 3, 1) & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & "+" & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     End If
    Else
     If arr(2 + b * 3, 6) < 0 Then
      Print #1, arr(2 + b * 3, 1) & "+" & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     Else
      Print #1, arr(2 + b * 3, 1) & "+" & VBA.Format(arr(2 + b * 3, 2), "00000000") & " " & arr(2 + b * 3, 3) & VBA.Format(Left(arr(2 + b * 3, 4), 8), "00000000") & " " & arr(2 + b * 3, 5) & "+" & VBA.Format(arr(2 + b * 3, 6), "00000000") & " "
     End If
    End If
   Next
      Print #1, ""
      Close #1
line1:
        xlBook.Close False    '关闭工作簿，结束进程
        Set xlBook = Nothing
        oExcel.Quit
        Set xlExcel = Nothing
    End If
End Sub

Option Explicit怎么加？

txt dat都可以

  试试这个我转换了下格式

那是时间，还有只是改个a就可以吗？

[此贴子已经被作者于2023-1-16 15:49编辑过]

我新传了一个转换格式的，还有你传出来的数据和我压缩包里的1.txt不对吧

厉害，不过最下面有很多多余的怎么办了