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

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


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

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

Выпуск № 451
от 09.01.2007, 12:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 226, Экспертов: 27
В номере:Вопросов: 2, Ответов: 3


Вопрос № 69420: Сложить строки двух RichTextBox-ов в тратим Строка RichTextBox3.TextRTF = RichTextBox1.TextRTF + RichTextBox2.TextRTF возвращает только значения второго? ..
Вопрос № 69446: Здравствуйте уважаемые эксперты! У меня такое дело...сложное или нет Вам судить: хотелось бы автоматизировать обновление моего сайта с помошью VisualBasic. Чтобы прога при подключении сама из директории допустим из папки Update моего компа к...

Вопрос № 69.420
Сложить строки двух RichTextBox-ов в тратим
Строка RichTextBox3.TextRTF = RichTextBox1.TextRTF + RichTextBox2.TextRTF возвращает только значения второго?
Отправлен: 03.01.2007, 17:13
Вопрос задал: Баркалов Александр (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PsySex
Здравствуйте, Баркалов Александр !
На форму 2 ричтекстбокса и кнопку. Код для кнопки:
===================================================
Private Sub Command1_Click()
Dim sStr1 As String
Dim sStr2 As String
Dim lCnt As Long

lCnt = InStrRev(RichTextBox1.TextRTF, "par")
sStr1 = Mid(RichTextBox1.TextRTF, 1, lCnt - 1)
sStr2 = Right(RichTextBox2.TextRTF, Len(RichTextBox2.TextRTF) - 1)
RichTextBox3.TextRTF = sStr1 + sStr2
End Sub
=================================================
Похоже так ;-)
---------
Bom Shankar!
Ответ отправил: PsySex (статус: Студент)
Ответ отправлен: 03.01.2007, 22:33


Вопрос № 69.446
Здравствуйте уважаемые эксперты! У меня такое дело...сложное или нет Вам судить:
хотелось бы автоматизировать обновление моего сайта с помошью VisualBasic.
Чтобы прога при подключении сама из директории допустим из папки Update моего компа копировала файлы обновления на ftp моего сайта. Возможно ли это?
Опишите по подробнее, если можно с примерами. Надеюсь на Вашу помошь!!!
Отправлен: 03.01.2007, 21:06
Вопрос задал: Чалагаев И.Г (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PsySex
Здравствуйте, Чалагаев И.Г!
Пример работы по фтп на ВБ, думаю сможете извлечь для себя выгоду.

http://www.freevbcode.com/ShowCode.Asp?ID=731
http://www.freevbcode.com/ShowCode.Asp?ID=5311
---------
Bom Shankar!
Ответ отправил: PsySex (статус: Студент)
Ответ отправлен: 03.01.2007, 22:42

Отвечает: HookEst
Здравствуйте, Чалагаев И.Г!
Могу предложить решение с помощью WinInet API, для начала скачайте модуль с описаниями функций Wininet с
http://download.microsoft.com/download/vb40ent/Sample37/1/W9XNT4/EN-US/VbInet.exe

в приложении пример их использования:
на форме 5 текстовых полей:
Text1 - для ввода адреса ftp сервера(ex: ftp.microsoft.com);
Text2 - для ввода имени ftp пользователя;
Text3 - для ввода пароля ftp пользователя;
Text4 - для ввода имени локального файла который нужно закачать (ex: d:WBINET.Bas)
Text5 - для ввода имени файла на сервере;

один CheckBox: Check1 - для переключения м/д текстовым и бинарным режимами;

и одна кнопка Command1 - по нажатию на которую, на сервер Text1.Text закачается файл Text4.Text.

я проверял в Excel VBA - все работает.
подробности по WinInet можно посмотреть в любом справочнике по Windows API.
как закачивать все файлы из папки, я думаю разберетесь.
Будут вопросы, пишите.
Успехов.

Приложение:

Ответ отправил: HookEst (статус: Студент)
Ответ отправлен: 04.01.2007, 09:34


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

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

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

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

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


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


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.38 от 20.12.2006
Яндекс Rambler's Top100

В избранное