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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.822 RSS
←   Август 2008   →
 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 за неделю
←   Все выпуски   →

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


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

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

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 779
от 03.08.2008, 22:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 266, Экспертов: 27
В номере:Вопросов: 5, Ответов: 8
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 140897: Здравствуйте, уважаемые эксперты! Вопрос к теме VB не очень относится. Хочу спросить у Вас совета. Есть задача написать что то типа сервера ICQ. Вот думаю - на чём писать - на VB, Дельфях или, в крайнем случае, C++. ...
Вопрос № 140960: Здравствуйте уважаемые эксперты! Помогите, пожалуйста, с VBA для Excel 2003-2007. Необходим макрос чтобы он находил слово No difference и удалял эту строку, а также стоку выше этого слова и ниже этого слова. Заранее спасибо...
Вопрос № 140970: Здравствуйте! Я хочу написать программу для того, чтобы захватывать данные, которые содержатся в файле в переменную. Язык программирования: VB 6.0. Мой вариант кода в приложении, но он почему-то не работает. Помогите мне, пожалуйста, испр...
Вопрос № 140996: Уважаемые эксперты, подскажите в чем ошибка. Параметр ы Excel Calculation Options = Automatic. Я написал вызов простого макроса: Public Function myNow() As Date myNow = Now() End Function на листе Excel в ячейке "B3"...
Вопрос № 141016: Уважаемые эксперты.У меня такой вопрос.Имеется массив строк,каждая из которых содержит по два слова,разделённых одним пробелом профессия и фамилия,например:ИНЖЕНЕР ИВАНОВ КОНСТРУКТОР КОЗЛОВ.Надо составить программу на Бейсике для выделения фамилий...

Вопрос № 140.897
Здравствуйте, уважаемые эксперты! Вопрос к теме VB не очень относится. Хочу спросить у Вас совета. Есть задача написать что то типа сервера ICQ. Вот думаю - на чём писать - на VB, Дельфях или, в крайнем случае, C++.
Отправлен: 28.07.2008, 16:12
Вопрос задал: Сергеев Иван Иванович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: xackera
Здравствуйте, Сергеев Иван Иванович!
Вопрос хороший... а какой язык Вы лучше знаете????
я бы посоветал на с++ так как инофрмации по работе с сокетами в сети очень много
---------
Больше быть, чем казаться! Много делать, но мало выделяться
Ответ отправил: xackera (статус: 6-ой класс)
Ответ отправлен: 28.07.2008, 16:19
Оценка за ответ: 5
Комментарий оценки:
Xackera, спасибо за ответ. Лучше всего VB. С++ много писал раньше под DOS. Под винду не пробовал. :(

Вопрос № 140.960
Здравствуйте уважаемые эксперты!
Помогите, пожалуйста, с VBA для Excel 2003-2007. Необходим макрос чтобы он находил слово No difference и удалял эту строку, а также стоку выше этого слова и ниже этого слова.

Заранее спасибо.

Отправлен: 29.07.2008, 10:18
Вопрос задал: Johnny2000 (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Пахолюк Артем Владимирович
Здравствуйте, Johnny2000!
Примерно вот так, но если нет "No difference" - удаляет выделенную строку. Надо немного доработать

Приложение:

Ответ отправил: Пахолюк Артем Владимирович (статус: 1-ый класс)
Ответ отправлен: 29.07.2008, 15:41
Оценка за ответ: 5
Отвечает: HookEst
Здравствуйте, Johnny2000!
В приложении код, который "находит слово No difference и удаляет эту строку, а также строку выше этого слова и ниже этого слова" на первом листе.
Единственно, в случае если No difference найдется в первой строке, возникнет ошибка, т.к. нет строки выше этой. Этот случай если надо, нужно предусмотреть.

Приложение:

Ответ отправил: HookEst (статус: Специалист)
Ответ отправлен: 31.07.2008, 03:27
Оценка за ответ: 5

Вопрос № 140.970
Здравствуйте!
Я хочу написать программу для того, чтобы захватывать данные, которые содержатся в файле в переменную.
Язык программирования: VB 6.0.
Мой вариант кода в приложении, но он почему-то не работает.
Помогите мне, пожалуйста, исправить ошибку.
P.S. А, вообще, возможно ли захватить всё содержимое файла в переменную ?
Заранее спасибо!

Приложение:

Отправлен: 29.07.2008, 12:45
Вопрос задал: AkaProc (статус: 1-ый класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Коровин Александр
Здравствуйте, AkaProc!
Предлагаю вам считать файл построчно. Вот пример кода:
Dim MyFile
Dim S As String
Dim MyText As String
MyFile = FreeFile
Open ("C:TEST.txt") For Input As #MyFile
Do Until EOF(MyFile )
Line Input #MyFile , MyText
S = S & MyText & vbCrLf
Loop
Close #MyFile

Приложение:

Ответ отправил: Коровин Александр (статус: 4-ый класс)
Ответ отправлен: 29.07.2008, 13:22
Оценка за ответ: 4
Комментарий оценки:
Спасибо за ответ. Я знаю, как считать файл построчно. Меня интересовал вопрос: а можно ли захватить содержимое файла в ОДНУ переменную, а считывать построчно я умею ?
Отвечает: PsySex
Здравствуйте, AkaProc!
>>Мой вариант кода в приложении, но он почему-то не работает.
Не работает потому как в функции Input установлены неправильные параметры...зачем там математическая функция LOG ..нужно использовать LOF.
Вот описание функции.
=======
Функция Input
Возвращает значение типа String, содержащее символы из файла, открытого в режиме Input или Binary.
Синтаксис
Input(число, [#]номерФайла)
Синтаксис функции Input содержит следующие элементы:
число Обязательный. Любое допустимое числовое выражение, задающее число возвращаемых символов.
номерФайла Обязательный. Любой допустимый номер файла.
=========
Итак исправленный вариант вашего кода в приложении.
>> вообще, возможно ли захватить всё содержимое файла в переменную ?
Да можно, как раз в вашем примере, только работа с такой переменной, если она будет довольно большого размера будет медленной.

Приложение:

---------
Bom Shankar!

Ответ отправил: PsySex (статус: Специалист)
Ответ отправлен: 29.07.2008, 13:37
Оценка за ответ: 5
Комментарий оценки:
Огромное спасибо! Всё работает!

Вопрос № 140.996
Уважаемые эксперты, подскажите в чем ошибка. Параметры Excel Calculation Options = Automatic. Я написал вызов простого макроса:

Public Function myNow() As Date
myNow = Now()
End Function

на листе Excel в ячейке "B3" прописываю вызов формулы =Now()
В ячейке "B4" прописываю вызов моего макроса =Test.xls!module1.myNow()

при вводе любых символов в другие ячейки значение ячейки "B3" показывает текущее время, а значение ячейки "B4" не пересчитывается. При вызове вручную режима "Calculate Now F9" значение ячейки "B3" пересчитывается регулярно, что не скажешь про ячейку "B4".

Почему так происходит? И нет стабильности при пересчете. В чем проблема?
Отправлен: 29.07.2008, 17:46
Вопрос задал: Яськов Анатолий Викторович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Коровин Александр
Здравствуйте, Яськов Анатолий Викторовим!
Для того, чтобы Ваша функция автоматически пересчитывалась при изменении любой ячйки листа, необходимо добавить в ее код следующую строку:
Application.Volatile True

Приложение:

Ответ отправил: Коровин Александр (статус: 4-ый класс)
Ответ отправлен: 30.07.2008, 08:27
Оценка за ответ: 5
Комментарий оценки:
Спасибо.

Вопрос № 141.016
Уважаемые эксперты.У меня такой вопрос.Имеется массив строк,каждая из которых содержит по два слова,разделённых одним пробелом профессия и фамилия,например:ИНЖЕНЕР ИВАНОВ
КОНСТРУКТОР КОЗЛОВ.Надо составить программу на Бейсике для выделения фамилий в отдельный массив.
Отправлен: 29.07.2008, 21:30
Вопрос задал: Плескацевич Андрей Казимирович (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: AlexanderZh
Здравствуйте, Плескацевич Андрей Казимирович!
Используйте в цикле функцию split()
или конструкцию из Right() и instrrev() такого вида: right(элемент_массива, instrrev(элемент_массива," ")-1)
Верхний (и нижний, при необходимости) элемент массива можно узнать с помощью функции ubound() ( и, соответственно, lbound())
---------
Плохому танцору - один раз отрежь...
Ответ отправил: AlexanderZh (статус: Специалист)
Ответ отправлен: 29.07.2008, 22:35
Оценка за ответ: 4
Отвечает: Коровин Александр
Здравствуйте, Плескацевич Андрей Казимирович!
Предлагаю Вам попробовать следующий код.
Пусть MassStrok(n) - массив строк.
Код смотрите ниже:

Приложение:

Ответ отправил: Коровин Александр (статус: 4-ый класс)
Ответ отправлен: 30.07.2008, 08:09
Оценка за ответ: 4

Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 5.0 alpha от 21.07.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное