Программирование "удобняшек" на VBScript - [84] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Программирование "удобняшек" на VBScript

Модерирует : ShIvADeSt
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

mozers Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору YURETS777 Мой примерчик работает нормально (win7 32bit). (Естественно, вначале comdlg32.ocx зарегистрировал в системе и лицензию в реестр добавил).
	Всего записей: 2187 \| Зарегистр. 03-01-2002 \| Отправлено: 20:24 04-06-2010

YURETS777 Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Ага, спасибо, заработало, а что означают следующие параметры: .FilterIndex = 2 .Flags = 2621952 ?
	Всего записей: 2161 \| Зарегистр. 29-04-2005 \| Отправлено: 22:48 04-06-2010

mozers Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору YURETS777 FilterIndex - какой по счету из заданных в параметре Filter фильтр будет выбран. Flags - сумма констант-параметров.
	Всего записей: 2187 \| Зарегистр. 03-01-2002 \| Отправлено: 00:31 05-06-2010

SomeCherry Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору подскажите, пожалуйста, можно ли как-то с помощью vbscrip проверить равен ли password login'у? (у пользователя в active directory)
	Всего записей: 17 \| Зарегистр. 18-03-2010 \| Отправлено: 14:29 09-06-2010 \| Исправлено: SomeCherry, 14:32 09-06-2010

wolf0425 Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору можно ли как-то скриптом посчитать/проверить md5 или sha1 от файла (не ставя дополнительного софта)?
	Всего записей: 2928 \| Зарегистр. 25-04-2007 \| Отправлено: 22:37 09-06-2010 \| Исправлено: wolf0425, 22:37 09-06-2010

YURETS777

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Как через ADO Connection подключиться к текстовому файлу (разделитель - табуляция)
что-то типа такого
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path_txt & ";Extended Properties=DIF;"

Всего записей: 2161 | Зарегистр. 29-04-2005 | Отправлено: 11:40 10-06-2010 | Исправлено: YURETS777, 11:45 10-06-2010

mugil_cephalus

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

wolf0425

Цитата:

можно ли как-то скриптом посчитать/проверить md5 или sha1 от файла (не ставя дополнительного софта)?

http://ru.wikipedia.org/wiki/MD5#.D0.A1.D1.81.D1.8B.D0.BB.D0.BA.D0.B8
например, JavaScript: Реализация MD5 от Пола Джонсона

Всего записей: 1072 | Зарегистр. 07-09-2009 | Отправлено: 13:43 10-06-2010

wolf0425

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

mugil_cephalus не, собственная реализация хэша на языке скрипта - неинтересна.
Хочется использования какой-то УЖЕ имеющейся в виндах реализации - в .net точно входит, осталось понять как добраться

Всего записей: 2928 | Зарегистр. 25-04-2007 | Отправлено: 18:55 10-06-2010

vlth Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору YURETS777 Программирование "удобняшек" на VBScript, стр. 82
	Всего записей: 258 \| Зарегистр. 22-01-2008 \| Отправлено: 19:52 10-06-2010

YURETS777

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

vlth

Спасибо, получилось, правда первую строку съедает хотя явно указано HDR=No

Код такой:

Код:

'---------------------------------------------------------------
Dim i
Dim cn,rs,astrValue
path_txt = "."
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & path_txt & ";Extended Properties='text;HDR=No'"
cn.Open
Set rs = cn.Execute("SELECT * FROM " & InFile)
i = 0
Do Until rs.EOF
If Not IsNull(rs(0)) Then
objTextFile2.WriteLine rs(0)
End If
rs.MoveNext
i = i + 1
Loop
cn.Close
Set cn = Nothing
Set rs = Nothing
'---------------------------------------------------------------

А как теперь сделать сортировку записей в алфавитном порядке в загруженном текстовике ?

Добавлено:
Не удалось задать сортировку

Код:

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & path_txt & ";Extended Properties='text;HDR=NO;FMT=Delimited'"
cn.Open
Set rs = cn.Execute("SELECT * FROM " & InFile & " ORDER BY SortField ASC") ' <-Ошибка

Всего записей: 2161 | Зарегистр. 29-04-2005 | Отправлено: 22:12 10-06-2010 | Исправлено: YURETS777, 23:15 10-06-2010

vlth

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

Set rs = cn.Execute("SELECT * FROM " & InFile & " ORDER BY SortField ASC") ' <-Ошибка

Если HDR=NO, то нужно задавать не имя поля, а F & Num_of_Field (вместо SortField - F1, F2 и т.д.)

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 00:12 11-06-2010

mugil_cephalus

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

wolf0425

Цитата:

в .net точно входит,

может это - http://msdn.microsoft.com/en-us/library/9eat8fht(vs.71).aspx
или спроси - http://forum.ru-board.com/topic.cgi?forum=33&topic=3706#1

Всего записей: 1072 | Зарегистр. 07-09-2009 | Отправлено: 07:33 11-06-2010 | Исправлено: mugil_cephalus, 07:34 11-06-2010

YURETS777

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

vlth

Та же ошибка

Код:

Set rs = cn.Execute("SELECT * FROM " & InFile & " ORDER BY F1 ASC")

Всего записей: 2161 | Зарегистр. 29-04-2005 | Отправлено: 10:58 11-06-2010

vlth

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

YURETS777
За кадром остались содержащиеся в переменных path_txt и InFile значения. Может быть в них собака зарыта?

Добавлено:

Цитата:

path_txt = "."

Это неверно: должен быть полный путь к файлам, причём строка должна заканчиваться слэшем.
InFile должна содержать имя файла с расширением (у Вас, похоже, эта переменная вообще значения не получает)

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 23:52 11-06-2010

YURETS777

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

vlth

InFile выбирается диалоговым окном, "." в пути работает
то что заремлено "'Set rs = cn.Execute("SELECT * FROM " & InFile)" прекрасно работает.
Как только я в запрос включаю ORDER вылетает ошибка.
Проблема именно в параметре ORDER
еще прокатывает так:
Set rs = cn.Execute("SELECT * FROM " & InFile & " ORDER BY 'F1' ASC")
но при таком запросе сортирует как-то хаотично те совсем не сортирует, но ошибки не выдает

Код:

Set objTextFile2 = objFSO.CreateTextFile(OutFile, True)
'---------------------------------------------------------------
Dim i
Dim cn,rs,astrValue
path_txt = "."
SortField = 0
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & path_txt & ";Extended Properties='text;HDR=NO;FMT=Delimited'"
cn.Open
Set rs = cn.Execute("SELECT * FROM " & InFile & " ORDER BY F1 ASC")
'Set rs = cn.Execute("SELECT * FROM " & InFile)
i = 0
rs.MoveFirst
Do Until rs.EOF
objTextFile2.WriteLine LCase(rs(0))
rs.MoveNext
i = i + 1
Loop
cn.Close
Set cn = Nothing
Set rs = Nothing
'---------------------------------------------------------------

Всего записей: 2161 | Зарегистр. 29-04-2005 | Отправлено: 00:22 12-06-2010 | Исправлено: YURETS777, 00:24 12-06-2010

kolyas Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору на VBS можно получить информацию из exif ?
	Всего записей: 137 \| Зарегистр. 19-03-2007 \| Отправлено: 00:24 12-06-2010

vlth

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

YURETS777

Цитата:

"." в пути работает...

Проверил - да, Вы правы - работает.

И код в целом рабочий.
У меня аналогичный запрос работает как надо - данные сортируются.

Остаётся предположить, что в файле InFile имеется какое-то нарушение структуры полей...
Хотя, изменяя свой файл, я так и не смог добиться появления сообщения об ошибке,
поэтому утверждать этого не могу.

Попробуйте на всякий случай, если это позволяет система, изменить поставщика данных
(В строке подключения - Provider=Microsoft.ACE.OLEDB.12.0)

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 12:31 12-06-2010 | Исправлено: vlth, 12:45 12-06-2010

mugil_cephalus

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

kolyas

Цитата:

на VBS можно получить информацию из exif ?

не vbs , а консольная прога устроит?

Всего записей: 1072 | Зарегистр. 07-09-2009 | Отправлено: 12:56 12-06-2010

vlth

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

YURETS777
Кстати, может быть, замена поставщика и поможет: я, наконец, используя уже Microsoft.ACE.OLEDB.12.0, получил Вашу ошибку.
Странно всё это...

С ACE.OLEDB.12.0 причину появления ошибки выяснил: FMT=Delimited он почему-то игнорирует, и в итоге рекордсет содержит одно поле (я пытался отсортировать набор по второму)...

С ACE.OLEDB.12.0... Заменил разделитель с точки с запятой на запятую: так он поля различает...

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 12:56 12-06-2010 | Исправлено: vlth, 14:51 12-06-2010

vlth Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Если победить ошибку не удастся, можете выложит здесь фрагмент Вашего файла... посмотрим...
	Всего записей: 258 \| Зарегистр. 22-01-2008 \| Отправлено: 15:08 12-06-2010

Страницы: 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Программирование "удобняшек" на VBScript
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC