Страницы: 1
RSS
Вопрос не по форуму, но по сайту, Код в некоторых статьях Приёмов расположен в одну строку
 
Доброго времени суток, Уважаемые!
Заметил, что в некоторых статьях раздела Приёмы (например), код расположен в одну строку, и, соответственно, при его копировании с сайта он так же вставляется в модуль одной строкой. Приходится его вручную разносить по строкам
Это только у меня так?
Можно ли это поправить?
Спасибо
Изменено: Sanja - 11.08.2017 19:43:10
Согласие есть продукт при полном непротивлении сторон
 
У меня по ссылке тоже в одну строку.
 
Это глюк движка сайта иногда так проявляется - убираются все переносы строк в листингах.
Если где увидите еще - дайте знать, пожалуйста - поправлю.

Спасибо!
 
Цитата
Николай Павлов написал: Если где увидите еще - дайте знать, пожалуйста - поправлю.
Даю знать
Согласие есть продукт при полном непротивлении сторон
 
Sanja, спасибо за наводку - подправил!
 
Перестало воспроизводиться видео с сайта, ранее проблем не было. В программном обеспечении компьютера ничего не менялось.
 
Здравствуйте Николай!
Разбираясь в ЭТОЙ теме обратил внимание на то, что в Вашем коде (в теме тоже есть ссылка на этот Прием) есть такая строка
Код
X = SourceFolder.Path
при наличии которой Ваш код не отрабатывает как задумывалось, выводит данные только по одному файлу и выходит из цикла перебора файлов в указанной папке. Если эту строку удалить, то все работает как надо.
Для чего это строка? Остатки от отладки?
Согласие есть продукт при полном непротивлении сторон
 
Sanja, А вот и не правда, строка не полезная, но и невредная, просто  в ЭТОЙ теме ТС поставил лишнюю точку
Код
X = Source.Folder.Path 
и в этом причина сбоя. А так что SourceFolder что SourceFolder.Path вернет полное имя папки. Но то что сама строка лишняя - спорить не стану.
Изменено: БМВ - 18.03.2019 21:10:04
По вопросам из тем форума, личку не читаю.
 
Николай Павлов, приношу извинения за свою невнимательность. БМВ, спасибо. Мда, стареем, стареем... :oops:  
Согласие есть продукт при полном непротивлении сторон
 
Здравствуйте Николай. Пользуюсь Вашей замечательной функцией RegExpExtract но столкнулся с такой ситуацией, что когда функция должна возвратить ошибку
Код
ErrHandl:
    RegExpExtract = CVErr(xlErrValue)
то функция вылетает с ошибкой 13 (Type Mismatch). Думаю из-за того, что Вы определяете ее как String
Код
Public Function RegExpExtract(Text As String, Pattern As String, Optional Item As Integer = 1) As String
а CVErr(xlErrValue) это все таки не строковый тип данных
Спасибо
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх