Отправляет email-рассылки с помощью сервиса Sendsay

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.822 RSS
←   Январь 2018   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.822 подписчиков
0 за неделю
←   Все выпуски   →

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


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

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

Megaloman
Статус: Академик
Рейтинг: 146
∙ повысить рейтинг » 		mklokov
Статус: 6-й класс
Рейтинг: 42
∙ повысить рейтинг » 		Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 36
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1124
Дата выхода:12.01.2018, 23:15
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:14 / 12
Вопросов / ответов:3 / 7

Консультация # 116842: Здравствуйте, уважаемые эксперты.Как с помощью VisualBassic (6) в тексте можно найти все неизвестные слова идущие после какого нибудь символа или слова в текстовом файле (допустим "/", "*" или "подарок="), которые могут содержать цифры,символы и знак "-" (допустим "кружка-12345"). При поиске инф...
Консультация # 20016: Уважаемые эксперты!!! Подскажите мне как на VB изменить параметры в реестре, а то чето через reg фаил понтово получается. ...
Консультация # 168709: Уважаемые эксперты, подскажите, пожалуйста как сделать текст в Вордовском документе в 1 таблице, в 2 м столбце скрытым? Заранее спасибо Эндрю....

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

Здравствуйте, уважаемые эксперты.Как с помощью VisualBassic (6) в тексте можно найти все неизвестные слова идущие после какого нибудь символа или слова в текстовом файле (допустим "/", "*" или "подарок="), которые могут содержать цифры,символы и знак "-" (допустим "кружка-12345").
При поиске информации, нашел только сравнение строк,но мне надо найти именно в предложении.Потом сохранить все найденные слова в отдельный файл.Буду рад всем советам и ссылкам.

Дата отправки: 04.01.2008, 11:41
Вопрос задал: Sapozhnikov Vladimir
Всего ответов: 3
Страница онлайн-консультации »

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

Здравствуйте, Sapozhnikov Vladimir!
Все это организовывается при помощи команд len и mid
len(text1) - длина строки text1
mid (text1, a, b) - получить строку размером b символов. Строка получется взятием b символов после a из строки text1.
После выполнения даной программы мы получим в text1 слово "иве"
text1="Привет"
a=2
b=3
text1=mid (text1, a, b)
Все организовывается простым сравнением при помощи команд len и mid.

Консультировал: Ualife
Дата отправки: 04.01.2008, 12:00
Рейтинг ответа:

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

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

Здравствуйте, Sapozhnikov Vladimir!
Советами и ссылками не помогу, разбирайтесь сами.
С Новым годом.
Евгений.
P.S. со ссылками погарячился :)
http://ifolder.ru/4464512
http://ifolder.ru/4486094
http://ifolder.ru/4469396

Приложение:

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

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

Консультирует Черников Игорь Владимирович:

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

Вот набросал для Вас то, что Вы просили для текстового файла.

Dim ОдинСимвол As String
Dim Предложение As String
Dim КолЗнакВПредлож As Integer
Dim Счётчик As Integer
Dim НачалоСлова As Integer
Dim КонецСлова As Integer
Dim Слово As String
Dim ВсеСлова As String

Open "c:\txt.txt" For Input As #1 \'путь к файлу и его имя можно указать свои
Do While Not EOF(1) \' Цикл до конца файла.
ОдинСимвол = Input(1, #1)
Предложение = Предложение + ОдинСимвол
If ОдинСимвол = "." Then \' В конце предложения обязательно должна быть точка
КолЗнакВПредлож = Len(Предложение) - 1
If КолЗнакВПредлож <> 0 Then
Do
Счётчик = Счётчик + 1
ОдинСимвол = Mid(Предложение, Счётчик, 1)
If ОдинСимвол = "" Then Exit Do
Select Case ОдинСимвол
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "-", "/", "*", "=" \'Можно добавить ещё что-нибудь или убрать не нужное
НачалоСлова = Счётчик
Do \'Поиск начала слова
НачалоСлова = НачалоСлова - 1
If НачалоСлова = 0 Then
НачалоСлова = 1
Exit Do
Else
If Mid(Предложение, НачалоСлова, 1) = " " Or _
Mid(Предложение, НачалоСлова, 1) = "" Or _
Mid(Предложение, НачалоСлова, 1) = Chr(10) Or _
Mid(Предложение, НачалоСлова, 1) = Chr(13) Then
НачалоСлова = НачалоСлова + 1
Exit Do
End If
End If
Loop
КонецСлова = Счётчик
Do \'Поиск конца слова
КонецСлова = КонецСлова + 1
If Mid(Предложение, КонецСлова, 1) = " " Or _
Mid(Предложение, КонецСлова, 1) = "" Or _
Mid(Предложение, КонецСлова, 1) = "." Or _
Mid(Предложение, КонецСлова, 1) = Chr(10) Or _
Mid(Предложение, КонецСлова, 1) = Chr(13) Then
Exit Do
End If
Loop
Слово = Mid(Предложение, НачалоСлова, КонецСлова - НачалоСлова) \' само слово
If Слово <> "" And Len(Слово) > 1 Then
ВсеСлова = ВсеСлова + Слово + Chr(13) + Chr(10) \'запись найденных слов в переменную
End If
End Select
Loop
End If
Предложение = ""
Счётчик = 0
End If
Loop
Close #1
Open "c:\Слова.txt" For Output As #1
Print #1, ВсеСлова \'запись найденных слов в файл
Close #1

Для Ворда это будет выглядеть совсем по другому.

Консультировал: Черников Игорь Владимирович
Дата отправки: 05.01.2008, 11:50
Рейтинг ответа:

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

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

Уважаемые эксперты!!! Подскажите мне как на VB изменить параметры в реестре, а то чето через reg фаил понтово получается.

Дата отправки: 20.04.2005, 15:15
Вопрос задал: Oleinik D.V
Всего ответов: 3
Страница онлайн-консультации »

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

Здравствуйте, Oleinik D.V!
пример для записи в автозагрузку виедовс. Можно подставлять любые ключи
Private Sub Command1_Click() \'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\ _
CurrentVersion\Run\Имя твоей проги", "Путь к твоей проге"
End Sub
Private Sub Command2_Click() \'Удаление из реестра
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\ _
CurrentVersion\Run\Имя твоей проги"
End Sub
aaa=Reg.Read ("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя твоей проги") \'чтение параметра

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

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

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

Здравствуйте, Oleinik D.V!
Я могу прислать Вам библиотеку для работы с реестром. Напишите на e-mail: info@homerstudios.ru

Консультировал: Евгений Неверов
Дата отправки: 20.04.2005, 16:45
Рейтинг ответа:

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

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

Здравствуйте, Oleinik D.V!
Все необходимые функции для реестра можно найти тут: http://www.1phpstreet.com/vb/scripts/ShowCode.asp?txtCodeId=45471&lngWId=1.

Консультировал: Licvidator
Дата отправки: 20.04.2005, 19:50
Рейтинг ответа:

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

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

Уважаемые эксперты, подскажите, пожалуйста как сделать текст в Вордовском документе в 1 таблице, в 2 м столбце скрытым?
Заранее спасибо Эндрю.

Дата отправки: 01.06.2009, 20:52
Вопрос задал: Ципихович Эндрю
Всего ответов: 1
Страница онлайн-консультации »

Консультирует M@gi$†e®:

Здравствуйте, Ципихович Эндрю.

Думаю, что проще всего использовать встроенную команду (лично я в свое время вывел соответствующую кнопку на панель инструментов). Кнопочку можно найти так: клик правой кнопкой мышки на пустом месте в меню, затем "Настройка...", вкладка "Команды", категории "Формат", команды "Скрытый", и выводите ее на любую панель.

Консультировал: M@gi$†e®
Дата отправки: 02.06.2009, 01:48
Рейтинг ответа:

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

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

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

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