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

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

   

WRFan



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

Цитата:
вдруг ты выбранный фрейм прогоняешь через какой-нить OCR и не нешёл этого...  

 
в математике я совсем не разбираюсь, а для OCR программирования надо быть математическим экспертом
 
накатал скриптик для нормализации ИЕ окон, типа когда открываются без разных полосок:
 

Код:
 
'ON ERROR RESUME NEXT
dim objShell2
dim objShellWindows2
set objShell2 = CreateObject("Shell.Application")
 
set objShellWindows2 = objShell2.Windows
 
For i = 0 to objShellWindows2.Count - 1
 
Set objIE = objShellWindows2.Item(i)
if (InStr(1,objIE.locationurl, "http://",0) = 1) then 'check if Window is IE or Windows Explorer. You can also use Win32_Process class [WMI] IF you are running IE as a SEPARATE process (iexplore.exe): http://msdn2.microsoft.com/en-us/library/aa394372.aspx
objIE.fullscreen = false
objIE.resizable = true
objIE.menubar = true
objIE.statusbar = true
objIE.theatermode = false
objIE.toolbar = true
objIE.addressbar = true
objIE.statustext = ""
end if
next
set objShellWindows2 = nothing
set objShell2 = nothing
 

Всего записей: 5275 | Зарегистр. 25-11-2002 | Отправлено: 22:22 23-12-2006 | Исправлено: WRFan, 22:22 23-12-2006
jONES1979



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

Цитата:
в математике я совсем не разбираюсь, а для OCR программирования надо быть математическим экспертом  

 
ABBYY FineReader Scripting Edition
 
В каком то журнале(диске к журналу) видел OCR-библиотеку, вроде бесплатную, c API под разное... Сейчас вот порылся у себя,  нет, не могу найти и даже названия не помню ...

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 18:00 24-12-2006
WRFan



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ещё раз переписал скрипт для нормализации окон (см. внизу), добаил исправление размеров окна. для выяснения данных height и width использую WMI. вообще WMI - очень интересная штука, с её помощью можно делать, что угодно - мониторить изменение файлов, создание папок и файлов, читать реестр, писать в реестр, мониторить перформанс процессов и т.д. язык правда жуть какой тяжёлый. вчера 10 часов подряд писал скрипт для мониторинга создания файлов в определённой папке. весь скрипт на 102 строчки, да ещё и жрёт 70% cpu, если много файлов в папке. но всё равно интересно
 
WMI Reference: http://msdn2.microsoft.com/en-us/library/aa394572.aspx
WQL (SQL for WMI) Reference: http://msdn2.microsoft.com/en-us/library/aa394606.aspx
 

Код:
 
ON ERROR RESUME NEXT
set objShell = CreateObject("Shell.Application")
set objShellWindows = objShell.Windows
 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DisplayConfiguration")
For Each objItem in colItems
height =  objItem.PelsHeight
width = objItem.PelsWidth
Next
 
for each obj in objShellWindows
 
 
if obj.type = "HTML-Dokument" then
if (not Err = 430) then  'is the window IE or WE? WE Class doesnt support Automation, returning error 430
 
Err.Clear
 
if (objShellWindows.count > 0) and (obj.visible = false) then  
if (not Err = 424) then 'if invisible IE windows exist (an invisible InternetExplorer.Application might be in memory). Error 424 (Object required) means either no windows open, or the entire objShell crashed!
obj.visible = true
end if
end if
 
obj.fullscreen = false
obj.resizable = true
obj.menubar = true
obj.statusbar = true
obj.theatermode = false
obj.toolbar = true
obj.addressbar = true
obj.statustext = "" ' doesnt work properly!
obj.height = height 'if resolution height is e.g. 840, actual height is 842. Everything above 833 is ignored and set to 842
obj.width = width
 
end if
end if
 
Err.Clear
 
next
set objShellWindows = nothing
set objShell = nothing
 
'For testing the script with invisible IE windows use the following script:
 
'Set objIE = WScript.CreateObject("InternetExplorer.Application","objIE_")
'objIE.visible = false
'msgbox objShellWindows.count
 
'Execute the Window Normalisation Script BEFORE clicking away the msgbox!
 

Всего записей: 5275 | Зарегистр. 25-11-2002 | Отправлено: 02:51 28-12-2006 | Исправлено: WRFan, 02:56 28-12-2006
zeroandruxa



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ такая проблема - написал скрипт для копирования файлов из одной машины на вторую, когда запускаю все ок, поставил на шедулер (раз в день) - смотрю папки - неделю выполняется а потом перестает - не пойму в чем дело, когда запускаю сам все работает, может что с секьюрити?

Всего записей: 538 | Зарегистр. 02-11-2005 | Отправлено: 13:20 28-12-2006
distance

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

Цитата:
вчера 10 часов подряд писал скрипт для мониторинга создания файлов в определённой папке. весь скрипт на 102 строчки, да ещё и жрёт 70% cpu, если много файлов в папке

силён, однако.
у меня на c++ ушло порядка 2х недель для аналогичной задачи мониторинга...
потом, ради интереса, переписал на c# за 2 дня, но 10 часов - мощнО:P)

Всего записей: 878 | Зарегистр. 28-03-2004 | Отправлено: 13:53 28-12-2006
WRFan



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
distance
 
да скрипты для таких задач уже существуют. мне только надо было его переделать, чтобы он не только создание файлов во всех подпапках мониторил, но и создание самих папок в главной папке. а если новая папка создаётся, скрипт прибивает все мониторы ("EventSinks") и создаёт новые, в том числе и для новой папки. использовал WMI для мониторинга и собирания инфы о числе и названиях папок.
 
SWbemSink объект + __InstanceCreationEvent класс для мониторинга, Win32_Subdirectory класс для перечисления папок в loop-е. кому интересно - ссылы на WMI наверху. могу и offline документацию дать, после двух часов бесплодных попыток мне таки удалось её риппнуть из вот этого релиза:
 
http://www.microsoft.com/downloads/details.aspx?FamilyId=E15438AC-60BE-41BD-AA14-7F1E0F19CA0D&displaylang=en
 
сама документация величиной в 40мб, ещё пара мб для MS document explorer-а, а качается чёрт те сколько, 150 мегов инсталляха скачала и весь хард мне загадила. риппнул, что надо - WMI и IIS документацию, потом uninstall и до свидания

Всего записей: 5275 | Зарегистр. 25-11-2002 | Отправлено: 10:43 30-12-2006
xTOPOLx



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет!!!
Подскажите пожалусто хорошую книгу по VBScript   как для начинающего!?  

Всего записей: 1 | Зарегистр. 05-01-2007 | Отправлено: 00:12 06-01-2007 | Исправлено: xTOPOLx, 00:35 06-01-2007
CLOPOMOR

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте !
Приведите плиз пример скрипта копирующего файлы  *.tmp если таковые есть   в папку TMPFILES, и копирующего строки содержащие символ  $$  из файла 1.txt  во все файлы TMPFILES\ *.tmp
 
В принципе знаю как реализовать это в BATC скрипте , а чтоб в VBS наверно недорос еще, только простейшие операции с файлами постигаю...
Кстати а действует в VBS оператор   goto    и какие еще есть операторы перехода?

Всего записей: 7 | Зарегистр. 17-12-2006 | Отправлено: 18:13 09-01-2007 | Исправлено: CLOPOMOR, 18:25 09-01-2007
WRFan



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

Цитата:
Подскажите пожалусто хорошую книгу по VBScript   как для начинающего!?  

 
http://www3.oxedion.com/index.php/download/8338d6e31fbed8cfbce8b29452bae264
 

Цитата:
Кстати а действует в VBS оператор   goto    

 
нет. он только в Visual Basic работает, а в VBScript не включён:
 
Visual Basic for Applications Features Not In VBScript:
http://msdn2.microsoft.com/en-us/library/30593abb.aspx
 
я кстати наконец то выяснил, как создавать объекты в браузере так сказать на ходу через vbscript:
 

Код:
 
<SCRIPT LANGUAGE="vbscript">
Set TheObject = Document.createElement("object")
document.body.appendChild(TheObject)
 
'TheObject.classid = "clsid:4C599241-6926-101B-9992-00000B65C6F9" 'Forms.Image.1
TheObject.classid = "clsid:04A1E553-FE36-4FDE-865E-344194E69424" 'msinkaut.InkPicture.1
TheObject.id = "picture"
TheObject.picture = LoadPicture("C:\bla.jpg")
 
Set regEx = New RegExp
regEx.Pattern = TheObject.classid
regEx.IgnoreCase = true
if regEx.Test("clsid:4C599241-6926-101B-9992-00000B65C6F9")  = true then 'Forms.Image.1
TheObject.autosize = 1
TheObject.SpecialEffect  = 1
TheObject.MousePointer = 0
 
elseif regEx.Test("clsid:04A1E553-FE36-4FDE-865E-344194E69424")  = true then 'msinkaut.InkPicture.1
TheObject.SizeMode  = StretchImage
end if  
</SCRIPT>
 

 
этот скрипт создаст объект и потом откроет в нём картинку. у микрозофта есть для этого два объекта - Forms.Image и InkPicture. первый помоему только в MS office продукты включён, хотя я не уверен
 
а вот так вот можно потом вызывать события activex объектов:
 

Код:
 
sub picture_click()
msgbox "I am an InkPicture Event!"
end sub
 

 
при нажатии мышкой на InkPicture объект событие вызывается. picture=object.id (id задано наверху)

Всего записей: 5275 | Зарегистр. 25-11-2002 | Отправлено: 04:41 21-01-2007 | Исправлено: WRFan, 11:56 21-01-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте
igor_andreev дал мне код, который убирает все слова из текстового файла и оставляет одни лишь цифры:

Код:
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.OpenTextFile("stock.txt", 1, false)
Set f = fso.OpenTextFile("skipped_stock.txt", 2, true)
    fsContent = fs.ReadAll
    fs.Close
 
Set regEx = New RegExp
    regEx.Pattern = "\D(\s[\s\-\,0-9]{4,})$"
    regEx.MultiLine = True
    regEx.Global = True
Set Matches = regEx.Execute(fsContent)
 For Each Match in Matches
    RetStr = RetStr & Match.Value & vbCRLF
    RetStr = regEx.Replace(RetStr, "$1")
 Next    
 f.Write RetStr
 f.Close
 

 
Он прекрасно работает в Win XP, но Win 2000 ругается на эту строку:

Код:
regEx.MultiLine = True

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

Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 12:07 31-01-2007
igor_andreev

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Tipulatoid
Эт я промахнулся, я то на 2000 сразу последнюю версию WSH устанавливаю
en или ru около 700 Кб
 
 
Добавлено:
Поправка - код убирает не ВСЕ слова, а только в начале строки и оставляет последующие за ним четыре столбика цифр
stock.txt

Цитата:
 
SAGA -6,42 -9,24 10,55 1,23    
PlayGirl 8,92 15,57 20,56 4,39
...и т.д.
 

Всего записей: 1704 | Зарегистр. 08-12-2004 | Отправлено: 12:33 31-01-2007 | Исправлено: igor_andreev, 12:47 31-01-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
igor_andreev
Понял, спасибо.
Чуток поправлю - код оставляет не 4 столбика цифр, а, похоже, что сколько угодно. Я ему скармливал файл с 8-ью цифровыми колонками - все сохранял. Мне, собственно, так и нужно

Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 15:29 31-01-2007
igor_andreev

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну да, там в {4,} - значит от четырех и до бесконечности

Всего записей: 1704 | Зарегистр. 08-12-2004 | Отправлено: 16:31 31-01-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
igor_andreev
Можно еще немного понаглеть
Есть еще задача, которая мне, гуманитарию, кажется весьма трудно формализуемой:
Есть файл quality.txt:

Код:
SAGA Очень хорошее Хорошее Очень хорошее    
PlayGirl Очень хорошее Очень хорошее Очень хорошее  
Уфа Хорошее Менее удовлетворит. Удовлетворительное    
BSC КФХ Славинка Хорошее Хорошее Хорошее    
Raul Gonsalez Очень хорошее Хорошее Хорошее    
Last champion Хорошее Хорошее Удовлетворительное    
 

Задача - превратить его в такое:

Код:
Очень хорошее=Хорошее=Очень хорошее    
Очень хорошее=Очень хорошее=Очень хорошее  
Хорошее=Менее удовлетворит.=Удовлетворительное    
Хорошее=Хорошее=Хорошее    
Очень хорошее=Хорошее=Хорошее    
Хорошее=Хорошее=Удовлетворительное    
 

Вместо знака "=" подойдет любой другой символ, который бы явно разделял значения.
Я думаю, что код тут должен быть весьма сложным по трудозатратам программиста. Если так, то, не стоит беспокоиться. Однако, если есть какое-то простое решение, и у вас займет не более 10-15 минут написание кода, то буду признателен.
PS Значения могут быть только 4 вариантов: "Очень хорошее", "Хорошее", "Удовлетворительное", "Менее удовлетворит."

Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 17:15 31-01-2007
Troitsky



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

Цитата:
Есть еще задача, которая мне, гуманитарию, кажется весьма трудно формализуемой

Как вариант: заменить сначала
"Очень хорошее" на 1,
"Хорошее" на 2,
"Удовлетворительное" на 3,
"Менее удовлетворит." на 4;
Отчленить последние пять символов от каждой строки;
В отчлененном куске все пробелы заменить на любой нужный символ;
Сделать обратное преобразование: 1 на "Очень хорошее" и т.д.
 
Итого в одну строчку девять вложенных функций замены


----------
Мы в хорошем настроении гуляем по лесам.
Кто обидеть нас захочет – сам получит по усам.
Сам полу- получит по усам. Сам полу- получит по усам!

Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 17:24 31-01-2007 | Исправлено: Troitsky, 17:27 31-01-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Troitsky
Спасибо,  вы формализовали задачу. Одно замечание - отчленить не 5 символов, а 3 только - сами оценки, названия не нужно.
Однако я в VBS вообще не шарю. Мне код нужен Я вообще свою программку в командной строке пишу (bat-файл) Там эту задачу, похоже, вовсе не решить.
Еще раз - если код писать долго, то не надо беспокоиться.

Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 18:14 31-01-2007
Troitsky



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

Цитата:
Одно замечание - отчленить не 5 символов, а 3 только - сами оценки, названия не нужно
А как же еще два пробела между тремя цифрами?
 

Цитата:
Мне код нужен
Ну, например, что то в таком духе
Код:
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set fstream1 = fso.OpenTextFile("temp1.txt", 1)
Set fstream2 = fso.OpenTextFile("temp2.txt", 2)
 
While Not fstream1.AtEndOfStream
    strLine = fstream1.ReadLine
    strLine = Trim(strLine)
    strLine = Replace(strLine, "Очень хорошее", "1")
    strLine = Replace(strLine, "Хорошее", "2")
    strLine = Replace(strLine, "Удовлетворительное", "3")
    strLine = Replace(strLine, "Менее удовлетворит.", "4")
    strLine = Right(strLine, 5)
    strLine = Replace(strLine, " ", "=")
    strLine = Replace(strLine, "1", "Очень хорошее")
    strLine = Replace(strLine, "2", "Хорошее")
    strLine = Replace(strLine, "3", "Удовлетворительное")
    strLine = Replace(strLine, "4", "Менее удовлетворит.")
    fstream2.Write  strLine & vbCrLf
Wend
 
fstream2.Close
fstream1.Close
 
Set fstream1 = Nothing
Set fstream2 = Nothing
Set fso = Nothing

Из файла temp1.txt берем сырой материал, в файл temp2.txt пишем результат.


----------
Мы в хорошем настроении гуляем по лесам.
Кто обидеть нас захочет – сам получит по усам.
Сам полу- получит по усам. Сам полу- получит по усам!

Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 19:28 31-01-2007 | Исправлено: Troitsky, 19:32 31-01-2007
AlexStud

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет!
Покритикуйте, плиз, скрипт...  
Совсем начинающий, много чего еще не знаю, поэтому просю оценить, предлагать варианты модификации и технологии и т.д. и т.п.
 
Скрипт раскладывает файлы из корневой директории в папки по годам и по месяцам, на основании свойства LastModified, файлы меньше 4096 байт удаляет.
 

Код:
 
Option Explicit
'On Error Resume Next
 
Dim strComputer, wmiNS, wmiQuery
Dim objWMIService, objFSO, objFile, objF, objItem
Dim colFiles, colItems
Dim strMonth, strYear, strFolder, strPath, strPathMove
Dim SMTPServer, Recipient, From, Subject, Message, msg
 
wmiNS = "\root\CIMV2"
strComputer        = "."
wmiQuery = "SELECT Name, FileSize, LastModified FROM CIM_DataFile WHERE Path = '\\Fax\\XXXXXXX\\'"
strPath = "d:\fax\XXXXXXX\"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & wmiNS)
Set colFiles = objWMIService.ExecQuery (wmiQuery)
For Each objFile In colFiles  
    If objFile.FileSize < 4096 Then
        objFile.Delete
    Else        
         strMonth = Mid(objFile.LastModified, 5, 2)
         strYear = Left(objFile.LastModified, 4)
         strFolder = strMonth & "." & strYear & "\"
            strPathMove = strPath & strYear & "\" & strFolder
            SubCheckFolder strYear, strPath, strPathMove
            Set objF = objFSO.GetFile(objFile.Name)
            objF.Move strPathMove
    End If    
Next
 
GenericSendmail SMTPserver, From, Recipient, Subject, Message
 
Sub SubCheckFolder (strYear, strPath, strPathMove)
    If objFSO.FolderExists(strPath & strYear & "\") Then
        If objFSO.FolderExists(strPathMove) Then
        Else
        objFSO.CreateFolder(strPathMove)
        End If
    Else
           objFSO.CreateFolder(strPath & strYear & "\")
        objFSO.CreateFolder(strPathMove)
    End If
End Sub
 
Sub GenericSendmail (SMTPserver, From, Recipient, Subject, Message)
    SMTPServer = "outlook.contora.ru"
    Recipient = "admin@contora.ru, a@contora.ru"
    From = "admin@contora.ru"
    Subject = "Факсы разобранны!"
    Message = "Факсы разобранны!!!" & vbcrlf & "Ура!!!"  
    
    set msg = WScript.CreateObject("CDO.Message")
    msg.From = From
    msg.To = Recipient
    msg.Subject = Subject
    msg.TextBody = Message
    msg.Configuration.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
    msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    msg.Configuration.Fields.Update
    msg.Send
End Sub
 

 
Но вот есть вопрос...
 
Я в итоге сделал перемещение через FileSystemObject:

Код:
 
    If objFile.FileSize < 4096 Then
        objFile.Delete
    Else        
         strMonth = Mid(objFile.LastModified, 5, 2)
         strYear = Left(objFile.LastModified, 4)
         strFolder = strMonth & "." & strYear & "\"
            strPathMove = strPath & strYear & "\" & strFolder
            SubCheckFolder strYear, strPath, strPathMove
            Set objF = objFSO.GetFile(objFile.Name)
            objF.Move strPathMove

    End If    
 

 
Хотя есть метод .Copy и код мог бы выглядеть приятней:
 

Код:
 
    If objFile.FileSize < 4096 Then
        objFile.Delete
    Else        
         strMonth = Mid(objFile.LastModified, 5, 2)
         strYear = Left(objFile.LastModified, 4)
         strFolder = strMonth & "." & strYear & "\"
         strPathMove = strPath & strYear & "\" & strFolder
         objFile.Copy(strPathMove)
         objFile.Delete
                 

    End If    
 

 
Но так у меня не заработало... Удалять удаляет, замечательно даже удаляет. Но вот копировать никак. Все хотелось бы сделать через WMI без использования FileSystemObject.
 
Да и как папки через WMI создавать чего-то не могу найти, возможно ли?...
 
И еще один вопрос...
Вот здесь:

Цитата:
If objFile.FileSize < 4096 Then

на выходе свойства .FileSize объекта objFile тип данных uint64 и, соответственно, если я создам переменную для величины 4096, оператор сравнения будет выдавать не правильный результат. Я хочу чтобы код выглядел примерно следующим образом, и не врал...

Цитата:
 
Dim FileSize
FileSize = 4096
...
If objFile.FileSize < FileSize Then
...
 

 

Всего записей: 28 | Зарегистр. 07-12-2002 | Отправлено: 14:00 01-02-2007 | Исправлено: AlexStud, 14:15 01-02-2007
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Подскажите, как использовать выход из цикла:
 

Код:
While 1
   Exit Loop
Wen

 
Не помагает, и где можно про это почитать (про работу с циклами)?

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 20:01 09-02-2007
igor_andreev

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

Цитата:
как использовать выход из цикла

По какому условию выход?

Цитата:
и где можно про это почитать

Windows Script 5.6 Documentation

Всего записей: 1704 | Зарегистр. 08-12-2004 | Отправлено: 20:58 09-02-2007 | Исправлено: igor_andreev, 20:58 09-02-2007
   

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

Рейтинг.ru