vb 使txt文件每6个数字加一个空格

比如你要读取E盘下111.txt文件  加空格后放到222.txt中

   Open "E:\111.txt " For Input As #1
   Dim str    As String
   str = StrConv(InputB(LOF(1), 1), vbUnicode)
   Close #1

   Dim strlen As Long

   strlen = Len(str)

   Dim intstr As String

   For i = 1 To strlen

   If strlen - i < 6 Then

    Exit For

   End If

   intstr = intstr & Mid(str, i, 6) & Space(1)

   i = i + 5

   Next
   intstr = intstr & Right(str, strlen - i + 1)
   
   Open   "E:\222.txt "   For   Output   As   #2
   Print   #2,   intstr  
   Close   #2