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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



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
Astra55



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 сделать?

Всего записей: 3275 | Зарегистр. 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
 


Всего записей: 1883 | Зарегистр. 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) & "

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

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Доброе время, king_stiven
Спецсимол для группировки, указывается в фигурных скобках. Попробуйте эту строку :
oShell.SendKeys """{(}TEST{)}"""

Всего записей: 1883 | Зарегистр. 07-08-2002 | Отправлено: 14:57 30-03-2014
king_stiven

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alex_Piggy
Спасибо.
"{(}TEST{)}"

Всего записей: 2229 | Зарегистр. 17-07-2006 | Отправлено: 16:05 30-03-2014
Werty666



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

Всего записей: 369 | Зарегистр. 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)
 

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

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



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
а в параметрах кнопки чего наваять? и заранее - запросы как раз не хочется. жмакнул на кнопку и готово.  
 
а на утилиту "conclip" ссылочку дадите?

Всего записей: 369 | Зарегистр. 20-07-2008 | Отправлено: 13:29 05-04-2014
Alex_Piggy

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

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



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alex_Piggy
 
спасибо за скрипт. перетащу его в соседнюю тему, там может кто накидает

Всего записей: 369 | Зарегистр. 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 добавить новое значение. То есть есть файл с таблицей.

Всего записей: 1192 | Зарегистр. 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

Рейтинг.ru