Все выпуски  

RFpro.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Megaloman
Статус: Мастер-Эксперт
Рейтинг: 203
∙ повысить рейтинг »
Gluck
Статус: 8-й класс
Рейтинг: 195
∙ повысить рейтинг »
Sergey V. Gornostaev
Статус: Профессионал
Рейтинг: 2
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1152
Дата выхода:04.03.2021, 22:45
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:1 / 14
Вопросов / ответов:3 / 11

Консультация # 55460: Вопрос следующий: У меня есть TextBox в котором есть некий текст на несколько строк. Мне нужно его расчленить на строки, то есть каждую отдельную строку допустим записать в отдельную переменную. Как это можно в VB/VBA грамотно сделать? Заранее спасибо. ..
Консультация # 139929: Здравствуйте уважаемые эксперты! Подскажите, пожалуйста, начинающему программировать в VBA. У меня есть таблица с данными, которые записываются непериодически с шагом примерно около 10 сек от 00:00:00 до 23:59:59. Шаг записи неустойчив и постоянно меняется. Мне необходимо сделать выборку по получасовым значениям и записать их на другой ...
Консультация # 27644: Здрасте, надо что бы при выходе из программы стандартным путём(то есть на крестик вверху формы :)) программа сворачивалась, а не закрывалась(закрываться будет на кнопочку). Или может быть можно вообще убрать этот крестик?...

Консультация # 55460:

Вопрос следующий:
У меня есть TextBox в котором есть некий текст на несколько строк. Мне нужно его расчленить на строки, то есть каждую отдельную строку допустим записать в отдельную переменную. Как это можно в VB/VBA грамотно сделать?
Заранее спасибо.

Дата отправки: 14.09.2006, 16:06
Вопрос задал: Pithon
Всего ответов: 3
Страница онлайн-консультации »


Консультирует Филатов Евгений Геннадьевич:

Здравствуйте, Pithon!

Посмотрите мой ответ на вопрос 40011.
А для ответа привожу код преобразования и определения количества предложений, слов и букв в вводимом тексте.

На форме Form1 имеется TextBox1 и Label1.
Данные вводятся в TextBox1 по правилам, описанным в приложении, а в Label1 выводится результат.

С уважением.

Приложение:

Консультировал: Филатов Евгений Геннадьевич
Дата отправки: 14.09.2006, 16:20
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует fsl:

Здравствуйте, Pithon!
Например так:

k = Len(vbNewLine)
For i = 1 To Len(Text1)
If Mid(Text1, i, k) = vbNewLine Then
List1.AddItem Mid(Text1, l, i - l) \' - добавляем строку в listbox
l = i + k
i = i + k - 1
End If
Next
List1.AddItem Mid(Text1, l, Len(Text1))

Консультировал: fsl
Дата отправки: 14.09.2006, 16:30
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует HookEst:

Здравствуйте, Pithon!
Если нужно просто разбить техт на строки оканчивающиеся на "перевод строки", можно использовать Split():
например:

Dim lines() as String

lines = Split ( TextBox1.text , vbCrLf )

теперь lines - это одномерный массив каждый элемент которого строка из TextBox1

Консультировал: HookEst
Дата отправки: 15.09.2006, 07:05
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 139929:

Здравствуйте уважаемые эксперты!
Подскажите, пожалуйста, начинающему программировать в VBA.
У меня есть таблица с данными, которые записываются непериодически
с шагом примерно около 10 сек от 00:00:00 до 23:59:59. Шаг записи неустойчив и постоянно меняется. Мне необходимо сделать выборку по получасовым значениям и записать их на другой лист в столбец по временным интервалам 00:00-00:30, 00:30-01:00, 01:00-01:30....23:30-00:00.
Тип таблицы такой:
дата время значения
1 05.07.2008 23:59:57 6,15
2 06.07.2008 0:00:18 6,14
3 06.07.2008 0:01:48 6,15
4 06.07.2008 0:01:58 6,14
5 06.07.2008 0:02:38 6,15
6 06.07.2008 0:04:09 6,15
7 06.07.2008 0:04:49 6,15
8 06.07.2008 0:04:59 6,15
9 06.07.2008 0:05:19 6,15
10 06.07.2008 0:07:00 6,15
11 06.07.2008 0:07:10 6,15
12 06.07.2008 0:08:00 6,15
13 06.07.2008 0:09:00 6,15
14 06.07.2008 0:09:10 6,15
15 06.07.2008 0:09:41 6,15
16 06.07.2008 0:10:01 6,15
. . .
. . .
. . .
2132 06.07.2008 23:50:01 6,07
2133 06.07.2008 23:50:31 6,07
2134 06.07.2008 23:51:52 6,07
2135 06.07.2008 23:52:42 6,07
2136 06.07.2008 23:53:52 6,07
2137 06.07.2008 23:54:02 6,07
2138 06.07.2008 23:55:33 6,07
2139 06.07.2008 23:56:33 6,07
2140 06.07.2008 23:57:43 6,07
2141 06.07.2008 23:58:44 6,07
2142 06.07.2008 23:59:44 6,07
2143 07.07.2008 0:00:15 6,07
Написал код, он у меня при отладке выдает ошибку(1004) на
строке VrmStr = Cells(L, 4).Value ???
Помогите разобраться,очень Вас прошу, мне негде даже проконсультироваться.
От этого сейчас во многом зависит моя работа..
--
С уважением,
Вадим Солоненко
vvs@lutek.ru

Дата отправки: 14.07.2008, 05:02
Вопрос задал: Солоненко Вадим Владимирович
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Тесленко Евгений Алексеевич:

Здравствуйте, Солоненко Вадим Владимирович!
В приложении код на базе которого Вы сможете создать конструкцию для выполнения этой задачи.
Евгений.

Приложение:

Консультировал: Тесленко Евгений Алексеевич
Дата отправки: 14.07.2008, 21:10
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 27644:

Здрасте, надо что бы при выходе из программы стандартным путём(то есть на крестик вверху формы :)) программа сворачивалась, а не закрывалась(закрываться будет на кнопочку). Или может быть можно вообще убрать этот крестик?

Дата отправки: 13.10.2005, 16:32
Вопрос задал: Dushin Igor
Всего ответов: 7
Страница онлайн-консультации »


Консультирует Александр Шевченко:

Здравствуйте, Dushin Igor!
Нужно прописать в событие Form_Unload такое:
Cancel=1 \'отмена закрытия окна
Me.WindowState=vbMinimized \'сворачивание окна

Консультировал: Александр Шевченко
Дата отправки: 13.10.2005, 16:46
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Чурсанов Евгений Ильич:

Здравствуйте, Dushin Igor!
Свойство формы ControlBox=false.

Консультировал: Чурсанов Евгений Ильич
Дата отправки: 13.10.2005, 17:20
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Евгений Неверов:

Здравствуйте, Dushin Igor!
Скопируйте нижеприведённый код в необходимую форму:

Приложение:

Консультировал: Евгений Неверов
Дата отправки: 13.10.2005, 18:38
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Puma:

Здравствуйте, Dushin Igor!
>>Или может быть можно вообще убрать этот крестик?
Можно, только не убрать, а деактивировать. Это можно сделать с помощью функций WinAPI для работы с меню.
Удаление пунктов из системного меню DeleteFromSystemMenu. Можно также удалить пункт меню Закрыть. При этом кнопка Х станет неактивной, т.е. на нее нельзя будет нажать.

Приложение:

Консультировал: Puma
Дата отправки: 13.10.2005, 22:02
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Licvidator:

Здравствуйте, Dushin Igor!
Я лишь добавлю как действительно можно заблокировать "крестик":) См приложение

Приложение:

Консультировал: Licvidator
Дата отправки: 13.10.2005, 22:51
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Miklucho:

Здравствуйте, Dushin Igor!

Option Explicit

Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
Me.WindowState = 1 \'Сворачивание формы на панель
End Sub

Консультировал: Miklucho
Дата отправки: 14.10.2005, 09:14
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Залетин Виталий Викторович:

Здравствуйте, Dushin Igor!

Dim IsClose as Boolean
Private Sub Form_Unload(cancel as Integer)
If Not IsClose Then
Cancel=1
Me>WindowState=vbMinimized
End If
End Sub

Private Sub cmdClose_Click()
IsClose=True
Unload Me
End Sub

Насчет убирания креста, то смотри рассылку - там есть ответ на такой вопрос. Да, убрать крестик не выйдет, можно сделать его только недоступным (не считая случая, когда в форме вообще панель контроля отключена и при наличии Caption появляется строка вверху для тоскания формы, а при отсутствии - исчезает)

Консультировал: Залетин Виталий Викторович
Дата отправки: 15.10.2005, 15:00
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное