Релиб / Программирование / VBA / удаление последнего vbcrlf / Latest Posts

RE: удаление последнего vbcrlf

babken76 — Sat, 09 Jun 2007 15:11:23 GMT

Дорогой Bazile. Я дико извиняюсь! Запутал и тебя и себя. Дал пример с Scripting.FileSystemObject, а сам в процессе изысканий "перелез" на последовательный доступ к файлу. Когда нибудь моя забывчивость меня погубит. :)

С уважением,

RE: удаление последнего vbcrlf

bazile — Sat, 09 Jun 2007 14:45:22 GMT

Я вижу что это форум по VBA, но объект Scripting.FileSystemObject имеет одинаковые свойства и методы не зависимо от среды использования. Поэтому я и удивляюсь.

RE: удаление последнего vbcrlf

babken76 — Sat, 09 Jun 2007 14:12:15 GMT

[quote]Не знаю откуда ты это взял - в справке по VBScript такого нет. Кроме того я вроверил на тестовом файле - Write не добавляет переноса.
[/quote]
Дорогой Bazile, это форум VBA а не VBScript. Все это я взял из стандартной справки Excel VBA. Про print я вспомнил просто потому, что это единственный метод в VBA не добавляющий crlf в строке. В сущности вопрос уже решен.

С уважением,

RE: удаление последнего vbcrlf

bazile — Sat, 09 Jun 2007 13:34:04 GMT

[quote][b]babken76 (09.06.2007)[/b][hr]Кстати write тоже добавляет перенос строки.

[quote]Write # inserts a newline character, that is, a carriage return–linefeed (Chr(13) + Chr(10)), after it has written the final character in outputlist to the file.[/quote][/quote]

Не знаю откуда ты это взял - в справке по VBScript такого нет. Кроме того я вроверил на тестовом файле - Write не добавляет переноса.

[quote][b]babken76 (09.06.2007)[/b][hr]Надо пользоваться print'ом.[/quote]

Ты же говорил что нельзя пользоваться другими методами? :) И непонятно что это за метод Print. У TextStream нет такого метода.

RE: удаление последнего vbcrlf

babken76 — Sat, 09 Jun 2007 12:35:58 GMT

Кстати write тоже добавляет перенос строки.

[quote]Write # inserts a newline character, that is, a carriage return–linefeed (Chr(13) + Chr(10)), after it has written the final character in outputlist to the file.[/quote]

Надо пользоваться print'ом.

С уважением,

RE: удаление последнего vbcrlf

babken76 — Sat, 09 Jun 2007 12:05:37 GMT

Хорошо бы пример такой пост-обработки.

С уважением,

RE: удаление последнего vbcrlf

bazile — Sat, 09 Jun 2007 10:34:55 GMT

Значит надо добавлять пост-обработку этого файла, которая удалит лишний перевод строки.

RE: удаление последнего vbcrlf

babken76 — Sat, 09 Jun 2007 10:22:06 GMT

to Bazile:[quote] Использование других методов, не подходит (долго объяснять почему).
[/quote]

Причины политические.

С уважением,

RE: удаление последнего vbcrlf

bazile — Fri, 08 Jun 2007 19:00:28 GMT

И метод Write вместо WriteLine нельзя использовать?

удаление последнего vbcrlf

babken76 — Fri, 08 Jun 2007 18:58:26 GMT

В файл дописывается строка:
[code]
Set emp1 = CreateObject("Scripting.FileSystemObject")
Set emp2 = emp1.GetFile("c:\hr\emp.csv")
Set emp = emp2.OpenAsTextStream(ForAppending, 0)
emp.writeline str
emp.Close
[/code]

При использовании этого метода, каждый раз добавляется символ переноса строки vbcrlf. В последней строке этого не нужно, т.е. не нужна последняя пустая строка. Использование других методов, не подходит (долго объяснять почему).

С уважением,