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

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

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

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

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

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

Открыть новую тему

Написать ответ в эту тему

Moderator

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

Вопросы, задачи и их решения по VBScript.

Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1

Смежные темы:
Сценарии Windows
Командная строка, батники\сценарии (bat, cmd)
Скрипты KiXtart

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018

Tilks Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору msmih .vbs только в таком виде On Error GoTo 0 The On Error GoTo 0 statement is used to disable error handling.
	Всего записей: 2688 \| Зарегистр. 14-08-2005 \| Отправлено: 18:42 22-03-2014

Platinum Member

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

Можно ли через vbs сбрасывать/устанавливать эту опцию для файлов и папок?

Пытался найти в Гугле, но безрезультатно. В стандартном скрипте такого не значится:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\FSO\TestScript.vbs")
If objFile.Attributes = objFile.Attributes AND 1 Then
objFile.Attributes = objFile.Attributes XOR 1
End If

Name Value Description Read/Write attribute
Normal 0 Normal file Read/write
ReadOnly 1 Read-only file Read only
Hidden 2 Hidden file Read/write
System 4 System file Read/write
Volume 8 Disk drive volume label Read only
Directory 16 Folder or directory Read-only
Archive 32 File has changed since last backup Read/write
Alias 64 Link or shortcut Read-only
Compressed 2048 Compressed file Read-only

----------
Per warez ad scientiam

Всего записей: 11717 | Зарегистр. 16-05-2003 | Отправлено: 19:01 22-03-2014

destiny_child

Silver Member

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

доброго всем читающим и помогающим.
Вопрос - есть строка длинной ХХХ символов. Ее надо преобразовать(виртуально разбить на подстроки) - путем вставки в каждую следующую позицию НН символа перенос строки + сдвиг каретки + пробел. Причем при очередном подсчете следующей позиции НН символа - нужно учитывать вставленный пробел - ибо он становится обязательным первым символом для следующей подстроки
Пример на начальной строке из 15 символов:

Код:

dgk74gjje63830k

вставку надо сделать за каждым 6 символом:

Код:

dgk74g
jje63
830k

соответственно, если вывести эту же строку для показа непечатных вставленных символов,
так сказать показать распределение в памяти = вышеприведенное разбиение должно храниться так:
dgk74g^| jje63^| 830k
где ^| символизирует символ перевод строки и перенос каретки.
т.е. итоговая строка в 15 символов превратилась в строку из 19. ^| приравняем к vbCrLf = т.е. к одному символу '\n'

как это на vbscript сделать?

Всего записей: 3843 | Зарегистр. 01-04-2006 | Отправлено: 22:56 29-03-2014

Alex_Piggy

Advanced Member

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

Доброе время
Astra55
Разве? "Archive 32 File has changed since last backup Read/write"
Устанавливать при помощи "objFile.Attributes=objFile.Attributes OR 32" снимать - "If objFile.Attributes AND 32 Then objFile.Attributes=objFile.Attributes XOR 32"

destiny_child

~~Прошу прощения, пропустил пробел... Секундочку...~~

UPDATE : (?:XXX) все-таки учавствует в выражении... Исправлено.

Код:

vStr = "dgk74gjje63830k" & vbCrLf & "dgk74gjje63830k" & vbCrLf & "dgk74gjje63830kdgk74gjje63830k"
MsgBox vStr
Set objRegEx = CreateObject("VBscript.regexp")
With objRegEx
.Global = True : .IgnoreCase = False : .MultiLine = False
End With
objRegEx.Pattern = "(\n|^)([^\r\n\t]{6})"
vStr = objRegEx.Replace(vStr,"$1$2" & vbCrLf & vbTab & " ")
objRegEx.Pattern = "(\n|^)(\t [^\r\n\t]{5})(?!\r\n)"
Do While objRegEx.Test(vStr)
vStr = objRegEx.Replace(vStr,"$1$2" & vbCrLf & vbTab & " ")
Loop
MsgBox vStr

Всего записей: 1906 | Зарегистр. 07-08-2002 | Отправлено: 23:14 29-03-2014 | Исправлено: Alex_Piggy, 11:32 30-03-2014

king_stiven

Silver Member

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

Как при имитации нажатия клавиш в vbs файле написать круглую скобку?
Двойные кавычки так делаются
" & Chr(34) & "

oShell.SendKeys "" & Chr(34) & "слова в кавычках" & Chr(34) & ""

вот так не получается
" & Chr(40) & "

Всего записей: 2232 | Зарегистр. 17-07-2006 | Отправлено: 14:38 30-03-2014

Alex_Piggy Advanced Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Доброе время, king_stiven Спецсимол для группировки, указывается в фигурных скобках. Попробуйте эту строку : oShell.SendKeys """{(}TEST{)}"""
	Всего записей: 1906 \| Зарегистр. 07-08-2002 \| Отправлено: 14:57 30-03-2014

king_stiven Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Alex_Piggy Спасибо. "{(}TEST{)}"
	Всего записей: 2232 \| Зарегистр. 17-07-2006 \| Отправлено: 16:05 30-03-2014

Member

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

а вот такая задача - создание текстового файла (*.txt) в активной панели (в открытой директории), с именем взятым из буфера обмена (предварительно скопированная строка), в кодировке UTF-8 и сразу открытого для записи? во как))

Всего записей: 370 | Зарегистр. 20-07-2008 | Отправлено: 12:38 05-04-2014

Alex_Piggy

Advanced Member

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

Доброе время, Werty666
Если не использовать утилиты типа conclip, то вроде так:

Код:

Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

Set objHTML = CreateObject("InternetExplorer.Application")
objHTML.Visible=False
objHTML.Navigate ("about:blank")
FileName = objHTML.Document.ParentWindow.ClipboardData.GetData("Text")
objHTML.Quit

CurrDir = WshShell.CurrentDirectory

Set TextStream = FSO.OpenTextFile(CurrDir & "\" & FileName , 8, True, -1)

Только будет запрос...

Всего записей: 1906 | Зарегистр. 07-08-2002 | Отправлено: 12:56 05-04-2014

Werty666 Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору а в параметрах кнопки чего наваять? и заранее - запросы как раз не хочется. жмакнул на кнопку и готово. а на утилиту "conclip" ссылочку дадите?
	Всего записей: 370 \| Зарегистр. 20-07-2008 \| Отправлено: 13:29 05-04-2014

Alex_Piggy

Advanced Member

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

Werty666
ConClip
Параметры кнопки? Я кажется понял... Наверное Вам будет лучше обратится в тему по TC - Total Commander (Часть 8). Там помнится и свой объект регистрировался - что-то вроде TCScript. И открыть - это соответственно не отключить свойство ReadOnly, а открыть TC Lister... Все это спросите там...
Прошу прощения,что не могу помочь большим.

Всего записей: 1906 | Зарегистр. 07-08-2002 | Отправлено: 15:15 05-04-2014

Werty666 Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Alex_Piggy спасибо за скрипт. перетащу его в соседнюю тему, там может кто накидает
	Всего записей: 370 \| Зарегистр. 20-07-2008 \| Отправлено: 22:43 05-04-2014

msmih

Advanced Member

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

Доброго времени суток!
Два вопроса.
1. Есть ли в vbs функция аналогичная preg_match_all (php)?
2. Как с помощью vbs записать значение в следующую за заполненными строку файла excel? то есть есть файл и в нем на странице уже есть значения
1. Значение А1
2. Значение А2
3. Записать значение сюда
естественно количество значений будет нарастать.
или как вариант в базу данных access добавить новое значение. То есть есть файл с таблицей.

Всего записей: 1195 | Зарегистр. 29-01-2006 | Отправлено: 19:46 07-04-2014

AndVGri

Advanced Member

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

Доброе время суток.
1. Есть ли в vbs функция аналогичная preg_match_all (php)?

Цитата:

2. Как с помощью vbs записать значение в следующую за заполненными строку файла excel? то есть есть файл и в нем на странице уже есть значения

Пусть у вас уже есть ссылка на лист pSheet

Код:

pSheet.Cells(pSheet.UsedRange.Row + pSheet.UsedRange.Rows.Count, 1).Value = "New value"
'or
pSheet.Range("A1").Value = "New A1-value"

Цитата:

или как вариант в базу данных access добавить новое значение. То есть есть файл с таблицей.

Пусть у вас уже есть подключение к базе Access pConn

Код:

pConn.Execute "Insert Into MyTable (Field1,Field2,Field3) Values (1,'text',#12/31/2013#)"

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 03:02 08-04-2014 | Исправлено: AndVGri, 03:03 08-04-2014

gORBI_80

Newbie

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

Доброе время суток.
Подскажите, пожалуйста, есть такая возможность, загрузка txt файлов в html?
Из тхт в ворд есть objWord = CreateObject("Word.Application"), а в штмл??

Добавлено:
А все, нашел.
objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
sTitle = "Document " '& String.( 80, "." )
objIE.Document.title = sTitle
objIE.MenuBar = True
objIE.ToolBar = True
objIE.AddressBar = True
objIE.Resizable = True
objIE.StatusBar = True
'objIE.Width = 250
'objIE.Height = 280
objIE.Visible = True
With objIE.Document.parentWindow.screen
objIE.Left = (.availWidth - objIE.Width) \ 2
objIE.Top = (.availHeight - objIE.Height) \ 2
End With
А есть возможность конвертации тхт-шного файла в штмл? Чтобы были нарисованы линии графов и строк, там ведь еще разделители должны быть в тхт, с разделителями пофиг.

Всего записей: 1 | Зарегистр. 23-04-2014 | Отправлено: 12:11 23-04-2014 | Исправлено: gORBI_80, 12:48 23-04-2014

exceptone

Newbie

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

Здравствуйте, помогите пожалуйста с записью по отслеживанию времени для записи в фин консул-во. ранее были посты на этот счет, но я не понимаю что и куда нужно добавлять.
Заранее спасибо.

Всего записей: 2 | Зарегистр. 23-04-2014 | Отправлено: 13:50 23-04-2014

miwa Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору exceptone Программирование здесь при чем?
	Всего записей: 455 \| Зарегистр. 10-10-2004 \| Отправлено: 18:17 23-04-2014

exceptone Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Подробнее...
	Всего записей: 2 \| Зарегистр. 23-04-2014 \| Отправлено: 13:32 25-04-2014

Nillis86 Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Подробнее...
	Всего записей: 3 \| Зарегистр. 25-04-2014 \| Отправлено: 17:10 26-04-2014

miwa Full Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Nillis86 Кодировка неправильная. Скорее всего юникод, хотя должен быть ANSI.
	Всего записей: 455 \| Зарегистр. 10-10-2004 \| Отправлено: 21:23 26-04-2014

Открыть новую тему

Написать ответ в эту тему

Страницы: 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

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

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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC