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

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

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Ноябрь 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

Автор

Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю

← Все выпуски →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Выпуск # 404

http://www.kbyte.ru/

Новый выпуск!

Если у Вас возникнут какие-либо вопросы, замечания, пожелания или предложения, пишите, мы детально рассмотрим каждое Ваше сообщение – mailto: admin@kbyte.ru.

Содержание выпуска

Система ЭКСПЕРТ

Вопрос #001017: Бесплатные программы

Вопрос #001014: Avi и Mpeg4 в Visual Basic

Вопрос #000952: Обработка файлов в C# (.NET 2.0)

Вопрос #000947: Секундомер

Вопрос #000937: DLOOKUP??

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

Запрос к базе ACCESS с параметрами типа Date

Отправка файла Web-Server'у с передачей пераметров в теле запроса.

помогите найти курсы по C#!

Поэлемнетное сложение

гм

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

Нестандартная форма

Как узнать размер базы данных MySQL через php

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)

Работа с SQL – Запросы

Использование XML.Serialization

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

Юмор на Kbyte.Ru

Система ЭКСПЕРТ

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

Вопрос #001017: Бесплатные программы

Автор вопроса: Sarj // 03.06.2008 / 08:56

Уважаемые эксперты, поскажите пожалуйста
бесплатный аналог Corel Draw. Очень надо...
 
 .....

Отвечает: Алексей Немиро // 03.06.2008 / 09:02

Здравствуйте, Sarj.
 
 http://inkscape.org/
 

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

Вопрос #001014: Avi и Mpeg4 в Visual Basic

Автор вопроса: алексей // 02.06.2008 / 12:36

Как можно проигрывать эти форматы в вижал бэйсик? Пример на сайте не работает.
 
 .....

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

Здравствуйте, Алексей.
 
 Можно использовать MediaPlayer. Для
этого его нужно подключить к
 проекту через меню Project (Проект) -> Components (Компоненты), в
 появившемся окне найти и выбрать Windows Media Player. Далее, в
 панели инструментов должна появиться иконка плеера, который можно
 разместить на форме. Указать файл для проигрывания можно
 в свойство URL, или FileName в зависимости от версии проигрывателя.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000952: Обработка файлов в C# (.NET 2.0)

Автор вопроса: Сергей // 09.05.2008 / 18:07

Доброе время суток!
 В общих словах, такая задача поставлена передо мной: На веб-странице 
 пользователь выбирает файл,
нажимает кнопку "Импорт" и из этого файла 
 данные импортируются в таблицу БД Oracle.
 Файл должен быть текстовым, первые 2 строки- информация о времени и 
 логине того, кто выгружал. После них идут строки данных, поля 
 разделяются симоволом | .
 Просьба дать ссылки на документацию по работе с файлами, которые могут 
 помочь :-)

Отвечает: Алексей Немиро // 12.05.2008 / 10:34

Здравствуйте, Сергей.
 
 Необходимые классы и функции для работы с файлами лежак в пространстве имен System.IO. Также Вам могут понадобиться классы для работы с регулярными выражениями, которые лежат в пространстве имен System.Text.RegularExpressions.
 Что касается импорта
файлов, то данные можно взять прямо из потока FileUpload.PostedFile.InputStream, передать их в StreamReader и обработать при помощи регулярных выражений. 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000947: Секундомер

Автор вопроса: Александр // 08.05.2008 / 17:40

Добрый день!
 Как сделать секундомер на сайте kbyte.ru много но вот все они выдают результат как 345сек, а мне надо 1:45:01 то есть в временом формате. Как сделать???
 
 .....

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

Здравствуйте, Александр.
 
 Зная, что в минуте 60 секунд, в часе 60 минут, а в сутках 24 часа, можно легко превратить 345 секунд в нужный формат.
 001:
002:
003:
004:
005:
006:
007:
008:
009:
Dim sec As Integer
sec = 345
Dim ssec As Integer, min As Integer, hour As Integer
If sec > 59 Then
 min = Int(sec / 60)
 ssec = sec Mod 60
End If
If min > 59 Then hour = Int(min / 60)
MsgBox sec & "
сек. = " & hour & " ч. " & min & " мин. " & ssec & " сек."

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

Вопрос #000937: DLOOKUP??

Автор вопроса: Алексей // 05.05.2008 / 16:37

Почему те поля формы, которые имеют в ControlSource функцию Dlookup не записывают значение полей в конечную таблицу?
 
 --------------------------------------
 Категория: --- MS Access

Отвечает: Алексей Немиро // 06.05.2008 / 05:24

Здравствуйте, Алексей.
 
 Из справки MS Access: Функция Dlookup
 При использовании этой функции не учитываются
 несохраненные изменения записей подмножества. Если функция
 DLookup должна использовать измененные значения, необходимо сначала сохранить
 изменения с помощью команды Сохранить запись в меню
 Записи, с помощью перемещения
фокуса на другую запись или
 метода Update.

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

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

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

Наверх

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

Запрос к базе ACCESS с параметрами типа Date | Автор: mn
Добавлено: 22.11.2008 / 20:23 | ответов: 1 | просмотров: 36

Доброго всем вечера.
Начала изучать VBScript недавно.

Подключаю базу данных ACCESS через ADO. Нужно сделать выборку, используя запрос с параметрами:
SELECT * FROM t_curr WHERE c_dt>:P1 and c_dt<:P2
Как мне эти параметры объявить в коде и задать их тип и значение? Эти значения передаются через переменные типа STRING в формате "dd.mm.yyyy hh:nn:ss" из формы.

Спасибо.

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

Ответ # 1 | Автор: Алексей
Добавлено:23.11.2008 / 08:01
Попробуйте использовать функцию DateDiff

Функция DateDiff

Возвращает значение типа Variant (Long), указывающее число интервалов времени между двумя указанными датами.

Синтаксис

DateDiff(интервал, дата1, дата2 [, первый_день_недели] [, первая_неделя_года] )

Пример

SELECT * FROM [Table1] WHERE DateDiff("d", "01.01.2008 01:02:59", [DateFiled]) > 0

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

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

Отправка файла Web-Server'у с передачей пераметров в теле запроса. | Автор: MrLink
Добавлено: 21.11.2008 / 22:34 | ответов: 2 | просмотров: 66

Здравствуйте!
Подскажите пожалуйста как отправить файла Web-Server'у с передачей пераметров в теле post запроса.

Пример запроса, отправляемого браузером:

Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/xaml+xml, application/vnd.ms-xpsdocument, application/x-ms-xbap, application/x-ms-application, application/x-silverlight, application/x-silverlight-2-b2, */*
Referer: http://site.ru/upload.php
Accept-Language: ru
Content-Type: multipart/form-data; boundary=---------------------------7d82ee2b451462
UA-CPU: x86
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)
Connection: Keep-Alive
Content-Length: 1152639
Host: site.ru
Pragma: no-cache
Cookie: cookie=123456

Само тело запроса:

-----------------------------7d82ee2b451462
Content-Disposition: form-data; name="securityhash"

e9999a073abc
-----------------------------7d82ee2b451462
Content-Disposition: form-data; name="starttime"

929799290999
-----------------------------7d82ee2b451462
Content-Disposition: form-data; name="hash"

a9999c999a9999b999da9cede59cdf4a99
-----------------------------7d82ee2b451462
Content-Disposition: form-data; name="MAX_FILE_SIZE"

33554432
-----------------------------7d82ee2b451462
Content-Disposition: form-data; name="file[]"; filename="D:\file.rar"
Content-Type: application/octet-stream

Rar!

Написал следующий код:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
Dim req As New
List(Of Byte)
    Dim Cookies As String = "cookie=123456"
    Dim securityhash As String = "e9999a073abc"
    Dim starttime As String = "929799290999"
    Dim hash As String = "a9999c999a9999b999da9cede59cdf4a99"
    Dim
MAX_FILE_SIZE As String = "33554432"
    Dim flname As String = "D:\file.rar"
    Dim ContentType As String
= "application/octet-stream"
    Dim boundary As String = "---------------------------7d835b26191293"
  
    Dim ByteArr1 As Byte() =
System.Text.Encoding.Default.GetBytes(boundary & Chr(10))
    Dim ByteArr3 As Byte() = System.Text.Encoding.Default.GetBytes("Content-Disposition: form-data; name=" & Chr(34) & "securityhash"
& Chr(34) & Chr(10) & Chr(10))
    Dim ByteArr4 As Byte() = System.Text.Encoding.Default.GetBytes(securityhash & Chr(10))
    Dim ByteArr9 As Byte() = System.Text.Encoding.Default.GetBytes("Content-Disposition: form-data; name=" & Chr(34) & "starttime" & Chr(34) & Chr(10) & Chr(10))
    Dim ByteArr10 As Byte() = System.Text.Encoding.Default.GetBytes(starttime
& Chr(10))
    Dim ByteArr13 As Byte() = System.Text.Encoding.Default.GetBytes("Content-Disposition: form-data; name=" & Chr(34) & "hash" & Chr(34) & Chr(10) & Chr(10))
    Dim
ByteArr14 As Byte() = System.Text.Encoding.Default.GetBytes(hash & Chr(10))
    Dim ByteArr15 As Byte() = System.Text.Encoding.Default.GetBytes("Content-Disposition:
form-data; name=" & Chr(34) & "MAX_FILE_SIZE" & Chr(34) & Chr(10) & Chr(10))
    Dim ByteArr16 As Byte() = System.Text.Encoding.Default.GetBytes(MAX_FILE_SIZE & Chr(10))
    Dim ByteArr17
As Byte() = System.Text.Encoding.Default.GetBytes("Content-Disposition: form-data; name=" & Chr(34) & "file[]" & Chr(34) & "; filename=" & Chr(34) & flname & Chr(34) & Chr(10) & "Content-Type:
" & ContentType & Chr(10))
    Dim ByteArr18 As Byte() = System.Text.Encoding.Default.GetBytes(Chr(10))
    Dim ByteArr19 As Byte() = System.Text.Encoding.Default.GetBytes("Content-Disposition: form-data; name=" & Chr(34) & "upload" & Chr(34) & Chr(10) & Chr(10) & "Загрузить" & Chr(10))
    Dim ByteArr21 As Byte() = System.Text.Encoding.Default.GetBytes(boundary & "--")

    Dim ByteArr_ As Byte() = File.ReadAllBytes("D:\file.rar")
  
    req.AddRange(ByteArr1)
    req.AddRange(ByteArr3)
    req.AddRange(ByteArr4)
    req.AddRange(ByteArr1)
    req.AddRange(ByteArr9)
    req.AddRange(ByteArr10)
    req.AddRange(ByteArr1)
    req.AddRange(ByteArr13)
    req.AddRange(ByteArr14)
    req.AddRange(ByteArr1)
    req.AddRange(ByteArr15)
    req.AddRange(ByteArr16)
    req.AddRange(ByteArr1)
    req.AddRange(ByteArr17)
    req.AddRange(ByteArr18)
    req.AddRange(ByteArr_)
    req.AddRange(ByteArr18)
    req.AddRange(ByteArr1)
    req.AddRange(ByteArr19)
    req.AddRange(ByteArr1)
    req.AddRange(ByteArr21)
  
    Dim re As
Array = req.ToArray
  
    Dim myHttpWebRequest As HttpWebRequest = HttpWebRequest.Create("http://site.ru/upload.php")
    myHttpWebRequest.Method = "POST"
    myHttpWebRequest.Accept =
"image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"
    myHttpWebRequest.Referer = "http://site.ru/"
    myHttpWebRequest.Headers.Add("Accept-Language", "ru")
    myHttpWebRequest.ContentType
= "multipart/form-data; boundary=---------------------------7d835b26191293"
    myHttpWebRequest.Headers.Add("UA-CPU", "x86")
    myHttpWebRequest.Headers.Add("Accept-Encoding", "gzip, deflate")
    myHttpWebRequest.UserAgent
= "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)"
    myHttpWebRequest.Headers.Add(HttpRequestHeader.KeepAlive, "True")
    myHttpWebRequest.Headers.Add(HttpRequestHeader.Pragma, "no-cache")

    myHttpWebRequest.Headers.Add(HttpRequestHeader.Cookie,
Cookies)
  
    Dim ByteArr As Byte() = re
    myHttpWebRequest.ContentLength = ByteArr.Length()
    myHttpWebRequest.GetRequestStream().Write(ByteArr, 0, ByteArr.Length)

    Dim myHttpWebResponse As
HttpWebResponse = myHttpWebRequest.GetResponse()

    myHttpWebResponse.Close()

Colorized by: Eros.CodeSyntaxColor Engine

В ответ на данный програмный запрос получаю что securityhash не верный.
Замена на System.Text.Encoding.UTF8.GetBytes() результата не изменило. Но если убрать куки, то в ответе от сервера приходит запрос на авторизацию, следовательно параметры передаваемые в заголовках доходят до сервера и они верны, а тело POST запроса он получается разобрать не может.

001:
002:
003:
web.UploadData("http://site.ru/upload.php", "POST", ByteArr)

Colorized by: Eros.CodeSyntaxColor Engine

тоже не работает

001:
002:
003:
web.UploadFile("http://site.ru/upload.php", "POST", "D:\file.rar")

Colorized
by: Eros.CodeSyntaxColor Engine

загружает указанный файл, НО там нельзя передать параметры в теле POST запроса.

P.S. Если отправлять запрос браузером, то Fiddler показывает, что каждый параметр в запросе начинается с новой строки (или через две), а при отправке запроса программой, все параметры отображаются в строчку и разделяются квадратиками(некоректно отображается(обрабатывается) символ char(10) ???).
Может проблема в этом?

Подскажите пожалуйста как ее все-таки можно сформировать правильный запрос такова вида?

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

Ответ # 1 | Автор: Алексей
Добавлено:22.11.2008 / 15:26
(некоректно отображается(обрабатывается) символ char(10) ???).
Может проблема в этом?

мб.

...Также, в C# (да и вообще в Framework .Net) может возникнуть ошибка типа «The server committed a protocol violation. Section=ResponseHeader Detail=CR must be followed by LF», происходящая на почве неразберихи в стандартах. Для её предотвращения, необходимо в файл конфигурации проекта (app.config или web.config) добавить следующие строки:
C#:

001:
002:
003:
004:
005:
<system.net>
  <settings>
    <httpWebRequest useUnsafeHeaderParsing="true" />
  </settings>
</system.net>

Dim ByteArr3 As Byte() = System.Text.Encoding.Default.GetBytes("Content-Disposition: form-data; name=" & Chr(34) & "securityhash" & Chr(34) & Chr(10) & Chr(10))

это, по-моему извращение.
Если уж хочется явно поставить Chr(10), то проще написать все в одну
строку и сделать Replace(vbcrlf, chr(10)).
Хотя, это вообще лишнее.

boundary=---------------------------7d835b26191293

...Подтип mixed определяет сообщение, состоящее из нескольких (multi) частей (part), разделенных друг от друга границей (boundary). Граница определяется в параметре boundary в поле Content-Type. Граница представляет собой набор ASCII-символов. Каждая часть сообщения, помимо основных данных, может содержать свои заголовки, определяющие тип контента и информацию об используемой кодировке. Части сообщения разделены друг от друга именем границы, причем имя границы в теле сообщения всегда начинается с символов --, а последняя граница также дополнительно заканчивается символами --.
Чтобы вам было более понятно, о чем идет речь, посмотрите на следующий фрагмент MIME:

Content-Type: multipart/mixed; boundary="moia granica"
--moia granica
Content-Type: text-plan

Hello! Is sample my boundary!

--moia granica
Content-Type: text/plan

А это следующая часть сообщения!

--moia granica--

Как видите, это сообщение имеет тип содержимого multipart с подтипом
mixed, здесь указано имя границы – moia granica. Сообщение состоит из
двух частей, каждая часть имеет тип text с подтипом plan. Первая часть сообщения содержит текст: «Hello! Is sample my boundary!», а вторая часть сообщения содержит текст: «А это следующая часть сообщения!». Кончено, текстовое сообщение никто делить на части не будет, обычно это делается, если в сообщении присутствуют какие-либо вложения (аттачи)...

В ответ на данный програмный запрос получаю что securityhash не верный.

А какой верный, от куда он вообще берется? Сомневаюсь, что данный
параметр всегда один и тот же.

starttime, hash

тоже динамичные должны быть.
starttime - скорей всего TimeSpan.Ticks

Но если убрать куки, то в ответе от сервера приходит запрос на авторизацию, следовательно

надо делать несколько запросов, программно авторизироваться, получить
куки и сессию, и передавать при следующем запросе.

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

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

Ответ # 2 | Автор: MrLink
Добавлено:22.11.2008 / 18:39
(некоректно отображается(обрабатывается) символ char(10) ???).
Может проблема в этом?
мб.
Заменил char(10) на vbcrlf в Fiddler стало правильное отображение переносов, тоесть запрос получается идентичный браузерному. Но ошибка про хешь всеравно осталась.

Может возникнуть ошибка типа «The server committed a protocol violation. Section=ResponseHeader Detail=CR must be followed by LF»
Такая ошибка не возникала. Можите поподробнее написать куда добавить эти строчки в app.config:
001:
002:
003:
004:
005:
006:
007:
<system.net>
<settings>
<httpWebRequest useUnsafeHeaderParsing="true" />
</settings>
</system.net>

Colorized by: Eros.CodeSyntaxColor Engine

Dim ByteArr3 As Byte() = System.Text.Encoding.Default.GetBytes("Content-Disposition: form-data; name=" & Chr(34) & "securityhash" & Chr(34) & Chr(10) & Chr(10))
это, по-моему извращение.
Если уж хочется явно поставить Chr(10), то проще написать все в одну
строку и сделать Replace(vbcrlf, chr(10)).
Хотя, это вообще лишнее.
А как по другому можно это записать? Все Chr(10) я заменил на vbcrlf, в конечном виде я объединю весь этот запрос в одну строку. А что тут лишнего?

boundary=---------------------------7d835b26191293
boundary к сожалению у меня статическое, т.к я не смог найти информацию о его формировании, но это и не важно т.к. этот параметр генерируется браузером(или в VB Net при передаче файлов так: web.UploadFile()) Формат boundary вточности совпадает с преведенным Вами описанием и совпадает с данными Fiddler.

В ответ на данный програмный запрос получаю что securityhash не верный.
А какой верный, от куда он вообще берется? Сомневаюсь, что данный
параметр всегда один и тот же.
securityhash берется с WEB-страницы, где находится форма отправки файла на сервер. Действительно этот параметр не статичен. Но для наглядности я этот обозначил этот параметр. При тестировании данного кода я все время меняю данные пераметры вручную. Также меняю starttime, hash.

Но если убрать куки, то в ответе от сервера приходит запрос на авторизацию, следовательно

надо делать несколько запросов, программно авторизироваться, получить
куки и сессию, и передавать при следующем запросе.
Куки я так и беру в основной программе. А тут я пока беру их из Fiddler.

Мне кажется, что тут проблема в кодировке посылаемого POST запроса, а именно тут:

001:
002:
003:
004:
Dim ByteArr1 As Byte() = System.Text.Encoding.Default.GetBytes()
Dim ByteArr_ As Byte() = File.ReadAllBytes("D:\file.rar")

Colorized by: Eros.CodeSyntaxColor Engine

Из RFC 1867 Form-based File Upload in HTML November 1995:

While the HTTP protocol can transport arbitrary BINARY data, the
default for mail transport (e.g., if the ACTION is a "mailto:" URL)
is the 7BIT encoding.
Может все дело в этом? Неправильная кодировка?

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

помогите найти курсы по C#! | Автор: Sasha
Добавлено: 21.11.2008 / 14:49 | ответов: 1 | просмотров: 55

Ищу курсы программирования на языке C# Куда пойти? Книги не советовать! Не буду я их читать!

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

Ответ # 1 | Автор: Том
Добавлено:22.11.2008 / 18:13
Из всего что знаю - это CyberBionic Systematics...
У них Курсы программирования чисто по .NET.
Есть отдельные курсы WPF, WCF, Silverlight, XNA, Microsoft Robotics Studio, AGEIA Physx, ASP.NET и др.

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

Поэлемнетное сложение | Автор: TillLinderman
Добавлено: 19.11.2008 / 15:13 | ответов: 1 | просмотров: 80

Уважаемый Алексей здравствуйте! Если припомните на днях Вы мне очень помогли со сложением чисел находящихся в текстовом поле. Теперь пытаюсь вычсилить другое, а именно: Сложить поэлементно значения двух текстовых полей и заполнить результатами третье. То есть я так понимаю, что надо задать два массива (наборы чисел) это уж я сделал, задать третий массив пустой (скажем С) который потом будет заполнятся просуммированными значениями. И как мне кажется, поэлементное сложение выполнить посредством цикла типа for i = 0 to a(i) и for j = 0 to b(j) записью внутри цикла типа с(k) = а(i) + b(j). Все бы хорошо но при таком подходе программа мне сообщила, что не может обьявить массив. (Can't assign array). Это она про тот самый пустой так сказала. В чем я не прав?

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

Ответ # 1 | Автор: Алексей
Добавлено:20.11.2008 / 06:25
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
Option Explicit

'разместить на форме кнопку (Command1) и три TextBox
Private Sub Command1_Click()
Dim a() As String
Dim b() As String
Dim c() As String

a = Split(Text1.Text)
b = Split(Text2.Text)
If Not UBound(a) = UBound(b) Then MsgBox ("текстовые поля должны содержать одинаковое число параметров"): Return
ReDim c(UBound(b))

Text3 = ""

Dim i As Long
For i = 0 To UBound(a)
If IsNumeric(a(i)) And IsNumeric(b(i)) Then
  c(i) = a(i) + b(i)
  'массив "c" можно вообще не использовать
  If Len(Text3) > 0 Then Text3 = Text3 & " "
  Text3 = Text3 & CStr(CDbl(a(i)) + CDbl(b(i)))
End If
Next i

End Sub

Private Sub Form_Load()
Text1.Text = "1 2 3"
Text2.Text = "4 3 2"
Text3.Text = ""
Command1.Caption = "Calculate!"
End Sub

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

гм | Автор: Steel Brand
Добавлено: 18.11.2008 / 22:33 | ответов: 1 | просмотров: 70

You loginSteel Brand | Last visit: 18.11.2008 в 21:49

После login нет проблела, между датой и временем "в" на русском языке, а не на английском.

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

Ответ # 1 | Автор: Алексей
Добавлено:19.11.2008 / 05:19
Да, известный глюк, в англоязычной и украинской локализации много
языковых глюков :)

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

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

Наверх

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

Нестандартная форма
Автор: Zhenik Ipatov | добавлено: 05.05.2008 / 12:42 | просмотров: 1591

Первое что бросается в глаза, когда первый раз используешь программу это конечно же её облик, внешний вид. Есть вероятность что если пользователю не понравится внешний вид окна, то он не будет пользоваться продуктом. Значит нам, не побоюсь этого слова, программистам нужно как можно лучше, удобнее, понятнее, красивее и приветливее сделать лицо программы. Нужно как можно эффектнее преподнести программу. С самого первого появления Windows окна получили прямоугольный стандарт и все User Control’ы

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 1898

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

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

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

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Проверить существование файла
Дата добавления: 31.07.2006 / 17:34 | просмотров: 1899 | платформа: ASP .NET (VB)

Как узнать, отправлялись данные форме или нет?
Дата добавления: 31.07.2006 / 14:23 | просмотров: 2006 | платформа: ASP .NET (VB)

Анализ E-Mail
Дата добавления: 24.03.2007 / 10:54 | просмотров: 1664 | платформа: RegEx

DataGridView: Как добавить новую колонку?
Дата добавления: 02.08.2006 / 09:53 | просмотров: 2833 | платформа: VB .NET

Как отправить E-Mail?
Дата добавления: 01.08.2006 / 11:52 | просмотров: 3862 | платформа: ASP

Получение данных из куков (Cookies)
Дата добавления: 31.07.2006 / 15:55 | просмотров: 2029 | платформа: ASP .NET (VB)

Как сделать поле для ввода пароля?
Дата добавления: 01.08.2006 / 22:08 | просмотров: 1970 | платформа: VB .NET

Как можно скрыть курсор мышки?
Дата добавления: 16.08.2006 / 19:48 | просмотров: 2044 | платформа: VB

Как установить фокус на определенный элемент?
Дата добавления: 31.07.2006 / 16:55 | просмотров: 1994 | платформа: ASP .NET (VB)

Анализ чисел
Дата добавления: 24.03.2007 / 11:09 | просмотров: 1751 | платформа: RegEx

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

Наверх

Юмор на Kbyte.Ru

Знаете, что такое Plug&Play в Windows? "Нашёл у вас не знаю что, подайте мне диск не знаю с чем".

Прислал MAGICIAN

Рейтинг: 1386
Всего голосов: 2072