Выгрузка в текстовый файл

vinni
Дата: 12.09.2005 15:06:30
Подскажите, как выгрузить данные в текстовый файл в определенную позицию
Например: в 33 позицию строки
N_A
Дата: 12.09.2005 15:44:42
Я умею только в другой файл и только с 32 позиции, так что врядли подойдет. )

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
snocky
Дата: 12.09.2005 15:50:27
вот так можно:
Print #1,Tab(33); "текст"