ник: Анатолий (Киев)
У большинства текстовых файлов признак перевода строки - последовательность символов с кодами 13 и 10 (vbCrLf), но встечаются и такие, где только vbC или только vbLf. Последнее - ваш случай. Попробуйте так:
Dim f%
f = FreeFile: Open "C:\Файл.txt" For Binary As f
s = "Строка1" & vbLf & "Строка2" & vbLf & "Строка3..."
'Если методу передана строка, VBA выполняет преобразование Unicode->ANSI
Put f, , s
Close f
|