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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 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
24.03.2008
18:32:48
18:32:57
25
26
27
28
29
30
31


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


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

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

Статистика

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

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


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

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

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

Выпуск № 738
от 25.03.2008, 18:35

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

Вопрос № 128188: Здравствуйте! Помогите пожалуйста начинающему. Есть текстовый файл в рядах которого числа (до 5знаков после запятой см приложение в нем одна строка)всего их 31 в строке.Подскажите как грамотно считать эти данные в таблицу типа DataGrid чтобы данные и...
Вопрос № 128289: Уважаемые эксперты! подскажите, пожалуйста, какой цикл обработает приблизительно такую базу данных в экселе ЛИСТ1 C D E F G H I J K L M N 61,7 71,6 987,0 61,0 72,6 988,0 60,5 72,3 985,0 61,0 74,7 989,0 ...

Вопрос № 128.188
Здравствуйте! Помогите пожалуйста начинающему. Есть текстовый файл в рядах которого числа (до 5знаков после запятой см приложение в нем одна строка)всего их 31 в строке.Подскажите как грамотно считать эти данные в таблицу типа DataGrid чтобы данные из строк были размешены в соответствующие строки таблицы и можно было бы проводить дальнейший анализ и строить графики из данных в колонках этой таблицы.Заранее спасибо!

Приложение:

Отправлен: 19.03.2008, 22:26
Вопрос задал: Pilot40 (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 4)
Отвечает: Черников Игорь Владимирович
Здравствуйте, Pilot40!
http://myproga.net/index.php?newsid=40
здесь всё подробненько описано как можно импортировать и экспортировать данные из разных файлов, в том числе текстовых в DataGrid
Если будет не понятно,пишите, растолкуем.
Удачи!
---------
От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 8-ой класс)
Ответ отправлен: 20.03.2008, 19:09
Оценка за ответ: 5

Вопрос № 128.289
Уважаемые эксперты!
подскажите, пожалуйста, какой цикл обработает приблизительно такую базу данных в экселе
ЛИСТ1

C D E F G H I J K L M N

61,7 71,6 987,0 61,0 72,6 988,0 60,5 72,3 985,0 61,0 74,7 989,0

62,7 63,0 996,0 63,4 62,3 995,0 62,3 62,6 997,0 62,7 62,3 997,0

33,0 35,0 1008,0 30,0 35,1 1008,0 29,3 35,2 1008,0 30,2 34,9 1006,0

3,0 39,8 1016,0 2,8 39,2 1016,0 -2,2 36,5 1016,0 5,4 39,6 1017,0

-29,9 63,4 997,0 -29,5 62,3 999,0 -41,9 65,7 1000,0

-16,7 64,8 999,0 -16,4 65,4 999,0 -17,6 63,3 1001,0

2,5 75,2 1004,0 -4,1 72,5 1003,0

чтобы на ЛИСТ2 записалось:
C D E

H2-E2 K2-E2 N2-E2
H4-E4 K4-E4 N4-E4
H6-E6 K6-E6 N6-E6
H10-E10 K10-E10 N10-E10
H12-E12 K12-E12 N12-E12
H14-E14 K14-E14 N14-E14

как сделать так, чтобы пустые строки и ячейки не обрабатывались?
чтобы они так и оставались пустыми?
н-р: H14-E14 (на ЛИСТ2) должна быть пустой и нечётные строки не надо обрабатывать - они пустые...
Помогите мне, пожалуйста!
Заранее Вам благодарна!
Маргарита.
Отправлен: 20.03.2008, 15:30
Вопрос задала: Шубейко Маргарита (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Черников Игорь Владимирович
Здравствуйте, Шубейко Маргарита!
Мне кажется у Вас ошибка, надо вот так:
H2-E2 K2-E2 N2-E2
H4-E4 K4-E4 N4-E4
H6-E6 K6-E6 N6-E6
H8-E8 K8-E8 N8-E8
H10-E10 K10-E10 N10-E10
H12-E12 K12-E12 N12-E12
Тогда код будет выгдлядеть как в приложении, но если Вы всё написали верно, то код существенно увеличится и не будет выполняться условие, что H12-E12 - пустая стока, т.к. в них обоих записаны данные. Конечно Вы можете удалить нанные из этой ячейки и тогда всё будет в порядке:

For i = 1 To 7
'пропускаем строку H8-E8 K8-E8 N8-E8 и делаем поправку i1,
'чтобы в ответе эта строка не осталась пустой
If i = 4 Then i = 5: i1 = 1
For j = 1 To 3
'Лист1.Cells(i * 2, j * 3 + 5) <> "" - если ячейка пустая, то пропускаем
If Лист1.Cells(i * 2, j * 3 + 5) <> "" Then
Лист2.Cells(i - i1, j + 2) = Лист1.Cells(i * 2, j * 3 + 5) - Лист1.Cells(i * 2, 5)
End If
Next j
Next i

Приложение:

---------
От каждого по способностям, каждому по труду

Ответ отправил: Черников Игорь Владимирович (статус: 8-ой класс)
Ответ отправлен: 20.03.2008, 18:32
Оценка за ответ: 5
Комментарий оценки:
ОГРОМНОЕ СПАСИБО!!!

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

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

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

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

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


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

© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.72.6 beta от 22.03.2008 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное