Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)

Вопрос #000516: Копирование файа в Web-папку

Автор вопроса: Александр // 03.10.2007 / 12:31

Нужен скрипт копирующий файл с клиента в Web-папку. На
 set fso = CreateObject("Scripting.FileSystemObject")
 fso.CopyFile "c:\test", "http://."
 говорит, что путь не найден.
 Спасибо.
 
 --------------------------------------
 Категория: --- ASP/VBScript
 
 

Отвечает: Алексей Немиро // 03.10.2007 / 12:45

Здравствуйте, Александр.
 
 Если нужно загрузить файл на сервер, т.е. чтобы клиент его сам выбрал и
 отправил на сервер, то нужно использовать соответствующий html-элемент:
 
 <input type="file" name="myFile" />
 
 На сервере "принять" файл можно так:
 001:
002:
003:
004:
005:
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
'FileName = mySmartUpload.Files.Item(1).FileName 'имя файла
MainPath = Server.MapPath("zip\")
mySmartUpload.Save MainPath 'сохраняем
в указанную папку

 
 Естественно, enctype у формы должен стоять multipart/form-data:
 
 <form method="POST" enctype="multipart/form-data">
 
 Также, желательно, чтобы на сервере был установлен aspSmartUpload.
 
 Если Вы хотите, чтобы некий файл скопировался на сервер без ведома
 клиента, то это противоречит безопасности, посему средствами ASP реализовать невозможно.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000511: CommonDialog + выбор каталога

Автор вопроса: Федоренко Дмитрий Константинович // 03.10.2007 / 08:02

Здравствуйте, эксперты.
 Днем ранее вам задавал вопрос: как используя компонент диалогового окна в VB 
 6.0 сделать так, чтоб оно открывалось в нужном мне каталоге.
 Ответ я получил немного другой:
 
 CommonDialog1.FileName = "C:\Windows\notepad.exe"
 CommonDialog1.ShowOpen.
 
 Но в этом случае я вижу, что
в нижней части диалогового окна в низпадающем 
 списке "Имя файла" действительно появилось "C:\Windows\notepad.exe".
 А меня интересовало все таки, как сделать так, чтоб в верхней части 
 диалогового окна в поле (низпадающем списке) "Папка", при открытии был 
 нужный мне каталог.
 Подскажите пожалуйста.
 Заранее благодарен.

Отвечает: Алексей Немиро // 03.10.2007 / 08:16

Здравствуйте, Дмитрий!
 
 001:
002:
CommonDialog1.InitDir = "C:\Windows"
CommonDialog1.ShowOpen

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000505: Копирование папки в Web-папку

Автор вопроса: Александр // 02.10.2007 / 14:35

Надо назначить задание, по которому папка копируетя в Web-папку. Для этого предполагалось написать скрипт на VB. CopyFolder из Scripting.FileSystemObject не работает. Что посоветуете.
 Спасибо.
 
 --------------------------------------
 Категория: --- ASP/VBScript

Отвечает: Алексей Немиро // 03.10.2007 / 04:52

Вполне возможно, что проблема в том, что папка содержит подкаталоги и
файлы. В таком случае надо скопировать сначала их. Т.е. надо не копировать, а создать папку, а в нее уже перенести остальные файлы и подкаталоги.
 
 примерно так:
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
NewFolderLocation = "C:\Temp"
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(NewFolderLocation) Then FSO.CreateFolder(NewFolderLocation)

FolderForCopy = "C:\Source"

Set fldr = FSO.GetFolder(FolderForCopy)

'копируем папки
For Each
f In fldr.Subfolders
  f.Copy(NewFolderLocation & "\" & f.Name)
Next

'копируем файлы
For Each f In fldr.Files
  f.Copy(NewFolderLocation & "\" & f.Name)
Next

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000504: Новый вопрос без темы

Автор вопроса: Федоренко Дмитрий Константинович // 02.10.2007 / 10:39

Здравствуйте.
 Скажите пожалуйста, как можно сделать так, чтоб диалоговое окно открывалось
 в нужном мне каталоге.
 
 
 Например, кроме этого CommonDialog1.ShowOpen можно ли передать в качестве
 параметра путь из которого можно открыть окно.

Отвечает: Алексей Немиро // 03.10.2007 / 04:28

Здравствуйте, Дмитрий.
 
 Вопрос неполный, не указан язык программирования, поэтому ответ будет такой же :)
 
 VB 6.0:
 001:
002:
CommonDialog1.FileName =
"C:\Windows\notepad.exe"
CommonDialog1.ShowOpen

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000502: Работа с буфером обмена Windows

Автор вопроса: Денис // 02.10.2007 / 05:28

Здравствуйте уважаемые Эксперты. Пожалуйста подскажите как в .NET(C#) работать с буфером обмена Windows... Заранее спасибо.
 
 --------------------------------------
 Категория: --- C# (Си шарп)

Отвечает: Алексей Немиро // 02.10.2007 / 06:08

Здравствуйте, Денис!
 
 Поместить строку в буфер:
 001:
Clipboard.SetDataObject("Kbyte.Ru
- хороший сайт!");

 
 Получить строку из буфера:
 001:
002:
003:
004:
005:
IDataObject data = Clipboard.GetDataObject();
if (data.GetDataPresent(DataFormats.Text)) // если буфер содержит текст
{ // то получаем его в текстовое поле textBox1
 textBox1.Text
= data.GetData(DataFormats.Text).ToString();
}

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

Давайте сделаем новый СуперБлокнот | Автор: pasha
Добавлено: 05.10.2007 / 18:48 | ответов: 1 | просмотров: 24

Смотрели программу "Соло на клавиатуре"? Там есть изображение клавиатуры (внизу) и буквы выделяются.
Так вот. Давайте сделаем Блокнот с такой клавой внизу, с сабклассингом (выделятся будет та клавиша, которая нажата.
Все-таки не все пишут слепым методом, а так можно набирать и на экран смотреть.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:07.10.2007 / 07:46
Не вижу смысла. А делать блокнот на .NET - это по-моему вообще извращенье.
Сделай лучше блокнот для программистов с широкими возможностями поиска и замены.
Например, чтобы можно было запросто найти все переводы строки, или еще какой-нибудь специфический символ.
А также, чтобы можно было одним нажатием кнопки заменить найденные
символы на любые другие. И еще поиск и замену по шаблону, с
использованием регулярных выражений. Ну и просмотр документа в различных вариантах (текстовой, HEX, BIN и т.п.), перекодировка и т.п.

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

копирование файла в web-папку | Автор: Aleks
Добавлено: 03.10.2007 / 13:06 | ответов: 2 | просмотров: 83

Нужен скрипт на VB для копирования файла с клиента в web-папку. На

set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "c:\test", "http://."

пишет, что путь не найден.

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:03.10.2007 / 13:11
http://kbyte.ru/Expert/Show.aspx?id=516

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Алексей
Добавлено:03.10.2007 / 13:25
Нужен скрипт на VB для копирования файла с клиента в web-папку.

VB - Visual Basic 6.0?
Если так, то можно отправить файл методом POST на страницу, которая его примет.
Либо по протоколу FTP, либо по любому своему протоколу, но для этого
на сервере должно стоять соответствующее приложение, которые будет
принимать файл(ы). В любом случае придется использовать соккеты.

FileSystemObject - в данном сулчае никак не поможет :))

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Алексей, С Днем Рождения!!! | Автор: EROS
Добавлено: 03.10.2007 / 08:11 | ответов: 5 | просмотров: 98

В День рождения поздравления от нас - это раз.
Шлем мы добрые слова - это два.
Быть все время впереди - это три.
Жить со всеми в дружбе, в мире - это, кажется, четыре.
Никогда не унывать - это пять.
Приумножить все что есть - это шесть.
Быть внимательным ко всем - это семь.
Быть всегда в нормальном весе - это восемь, девять, десять.
Ну, а к этому впридачу - Счастья, радости, удачи!

С Днем рождения!!!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: AWP
Добавлено:03.10.2007 / 08:17
http://cards.mail.ru/cardedit.html?G=4&E=2029&S=84291&tid=94885

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: BiT
Добавлено:03.10.2007 / 08:25
Леша желаю всего хорошего и будь таким как есть - ;) девелопером

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Игорь Голов
Добавлено:03.10.2007 / 08:41
Поздравляю с Днём Рождения!
Желаю Счастья и Удачи во всём!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Алексей
Добавлено:03.10.2007 / 13:28
Спасибо!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: pasha
Добавлено:04.10.2007 / 20:23
Присоединяюсь к поздралениям, желаю всех успехов и спасибо за критику

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Блокнот | Автор: pasha
Добавлено: 01.10.2007 / 13:50 | ответов: 4 | просмотров: 89

Я сделал усовершенствованный Блокнот. Пожалуйста посмотрите, оцените, и сжажите, есть ли баги.
Установка: http://pave-borisov.narod.ru/setup.exe

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:01.10.2007 / 14:24
А что такая "морда" у смайлика не веселая? :)

1. У меня менюшка как-то странно смотрится, левый край (какой-то серый
квадратик) заходит за края формы (перекрывает рамку формы).
Windows XP SP 2 дефолтная тема оформления.
Как я понял, там используется какой-то левый компонент, видимо для его
корректной работы нужен офис 2007, у меня он не стоит, и еще не скоро
встанет :)

2. Неплохо было бы реализовать функцию Drag-And-Drop, чтобы можно было файлы открывать перетаскиванием в блокнот.

3. При установке параметров шрифта, имя шрифта не передается. (рич)

4. Функция "Верхний/Нижний регистр" не работает (рич)

5. Меню Правка => Вернуть - как-то странно, зачем там список открытых файлов?

6. Я сделал изменения в документе и спокойно его закрыл, программа
меня ничего не спросила, а жаль.

7. Прикол, когда я зыкрыл все документы, меню вообще исчезло! Хотя
нет, меню вроде есть, но оно пустое. (было открыто 2 рич)

8. Файл -> Открыть -> Unicode - просто появлется новый документ

9. Файл -> Открыть -> Кодировка - почему-то открывается новый экземпляр блокнота.
окно выбора кодировки так и остается висеть в первом экземпляре
блокнота.

10. Почему я могу написать свой текст в ComboBox при выборе кодировки?

11. А как открыть обычный текстовой файл? Вообще операция открытия
файла как-то не удобно сделана.

12. "О программе", а что такое маленькое окно, почему бы не сделать его
размером в процентов 120 от размера экрана :))
Оно кстати растягивается, причем его содержимое на это никак не
реагирует.

13. Нажал на "Help" получил ошибку:

See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.ComponentModel.Win32Exception: Не удается найти указанный файл
at System.Diagnostics.Process.StartWithShellExecuteEx(ProcessStartInfo startInfo)
at System.Diagnostics.Process.Start()
at System.Diagnostics.Process.Start(ProcessStartInfo startInfo)
at System.Diagnostics.Process.Start(String fileName)
at My_Block.frmMain.mnuH_Click(Object sender, EventArgs e)
at System.Windows.Forms.MenuItem.OnClick(EventArgs e)
at System.Windows.Forms.MenuItemData.Execute()
at System.Windows.Forms.Command.Invoke()
at System.Windows.Forms.Control.WmCommand(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

пока, все :)

--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: EROS
Добавлено:02.10.2007 / 12:11
есть ли баги

есть

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: pasha
Добавлено:04.10.2007 / 21:50
Алексей

1. У меня всё корректно (menu.dll)
2. С этим нужно работать отдельно
3. Спасибо, бум лечить
4. Исправлено
5. Исправлено, для списка откр. окон вставил меню 'Окна'
6. Вообще не знаю что делать, т. к. когда имеешь дело событием Close, нужно открывать форму заново (Show)
7. У меня менюшка корректная
8. Переименовал Unicode в Пустое окно
9. Мне так нравится, окно больше не висит
10. Исправлено
11. Файл --> Открыть в кодировке или Файл --> Пустое окно --> Открыть
12. :))))
13. Это сделано специально. Если в субдиректории Help будет файл Help.hlp тогда бага не будет. :)
Спасибо.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Алексей
Добавлено:07.10.2007 / 07:46
2. Это довольно просто, см. события Drag
6. Делаешь переменную типа Boolean, которая будет принимать значение
True, если текст документ был изменен. Далее, при закрытии документа
проверяешь значение этой переменной, и если она равна True, то
спрашиваешь, сохранить изменения или нет:

001:
002:
003:
004:
005:
006:
007:
008:
If _IsChange Then
If MsgBox("Сохранить изменения?") Then
'код сохранения изменений
End If
End If

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

Вообще не знаю что делать, т. к. когда имеешь дело событием Close, нужно открывать форму заново (Show)

а что мешает написать код в это самое событие Close?

7. У меня менюшка корректная

хорошая отмазка, типа: у меня работает, а на остальных мне пофиг. :))

9. Мне так нравится, окно больше не висит

хм, а в чем тогда смысл MDI?

11. Файл --> Открыть в кодировке или Файл --> Пустое окно --> Открыть

это гемор, вряд ли кто-то будет искать, как это делается, особенно так
далеко, даже два уровня в данном случае будет многовато.

13. Это сделано специально. Если в субдиректории Help будет файл Help.hlp тогда бага не будет. :)

специально сделан вылет программы? :)) Подобные исключения надо
обрабатывать самому:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
Try
'код вызова справки
Catch ex As Exception
'сообщение об ошибке
'+еще какой-нибудь код
MsgBox(ex.Message)
End Try

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Сетевые папки. Как определить? | Автор: Игорь Голов
Добавлено: 30.09.2007 / 21:06 | ответов: 0 | просмотров: 52

Как определить сетевые папки на моём компьютере?

(Особенно интересуют примеры - мне так разобраться проще.)

Большое спасибо!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 941

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 1601

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 445

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 2355

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 2248

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Как узнать свой IP-адрес?
Дата добавления: 31.07.2006 / 12:53 | просмотров: 1881 | платформа: VB

Как поменять стиль у всех контролов на форме (Form)?
Дата добавления: 24.03.2007 / 11:59 | просмотров: 380 | платформа: VB .NET

Как разрешить вводить в TextBox только цифры?
Дата добавления: 04.08.2006 / 16:55 | просмотров: 1064 | платформа: ASP .NET (VB)

Как узнать текущее разрешение экрана?
Дата добавления: 24.03.2007 / 12:25 | просмотров: 703 | платформа: VB .NET

Как сделать Label с тенью?
Дата добавления: 16.08.2006 / 23:42 | просмотров: 843 | платформа: VB

Форма поверх всех окон
Дата добавления: 01.08.2006 / 17:23 | просмотров: 967 | платформа: VB .NET

Как программно установить/получить значение текстового поля (HtmlInputTextBox)?
Дата добавления: 31.07.2006 / 16:15 | просмотров: 1029 | платформа: ASP .NET (VB)

Получение многоразрядного числа
Дата добавления: 31.07.2006 / 12:32 | просмотров: 676 | платформа: VB

Как узнать IP-адрес посетителя?
Дата добавления: 01.09.2006 / 12:23 | просмотров: 1514 | платформа: ASP .NET (VB)

Поиск и замена символов/слов/строк
Дата добавления: 31.07.2006 / 12:28 | просмотров: 1776 | платформа: VB

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

Учительница:
- Петя, составь предложение со словами "вылупился" и "цыплёнок".
Петя:
- Вася вылупился на мои новые кроссовки как новорождённый цыплёнок.

Рейтинг: 187
Всего голосов: 313