Sub test1()
Dim TextLine As String
Open "C:\TESTFILE" For Input As #1
Open "C:\TESTFILE2" For Output As #2
While Not EOF(1)
Line Input #1, TextLine
' TextLine = "12345678901234567890123456789012"
If Len(TextLine) >= 32 - 1 Then
TextLine = Left(TextLine, 32 - 1) & "данные" & Right(TextLine, (Len(TextLine) - 32 + 1))
Else
TextLine = TextLine & String(32 - 1 - Len(TextLine), " ") & "данные"
End If
Debug.Print TextLine
Print #2, TextLine
Wend
Close #1
Close #2
End Sub |