Скрипты и прочее (vbs, batch, shell)

[Konctantin]

В этой теме будут примеры написания скриптов:
vbs
справочник по функциям http://www.script-coding.info/WSH/Functions.html
и немного основ по vbs http://www.vbsbook.ru/
Скрипт для перезаписи файла с отбором по какому-то вхождению строки:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set reader = Fso.OpenTextFile(OpenFileDialog(), 1, True)
filtr = InputBox("Строка: ", "Установите фильтр для поиска!!!")
Set writer = Fso.CreateTextFile(OpenFileDialog(), True)
Do While Not reader.AtEndOfStream
	str = reader.ReadLine
	If InStr(str, filtr) > 0 Then
		writer.WriteLine(str)
	End if
Loop
reader.Close()
writer.Close()

MsgBox "Готово"

Function OpenFileDialog()
	Set objDialog = CreateObject("UserAccounts.CommonDialog")
	intResult = objDialog.ShowOpen
	If intResult = 0 Then
		Wscript.Quit
	End If
	OpenFileDialog = objDialog.FileName
End Function 'OpenFileDialog()

Вот еще один простенький скрипт, на сей раз для работы с базой данных, точнее сохранение дампа с базы данных в формате UPDATE, с возможностью отбора, сортировки и прочего.
Все строится на основании запроса:
ЗЫ. Для работы скрипта потребуется Connector ODBC

Dim conn, record, FSO, writer, field, str, qSELECT, qFROM, qWHERE 
'Параметры запроса в базу данных'
qSELECT   = "name_loc8, subname_loc8" 
qFROM     = "locales_creature"        
qWHERE    = "LIMIT 100" 
'Ключ, по которому будет строится запрос UPDATE '
qKEY      = "entry"
'Файл для сохранения дампа'
filename  = OpenFileDialog() ' Можно подключить диалог выбора файла'
'База данных'
sDataBase = "mangos"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set writer = Fso.CreateTextFile(filename, True)
Set conn = DBConnect(sDataBase)
Set record = conn.Execute("SELECT "& qKEY &" , " & qSELECT &" FROM "& qFROM &" "& qWHERE)

Do While Not record.EOF

    str = "UPDATE " & qFROM & " SET "
    i = 0
    a = nill
    valval = ""
    For Each field In record.Fields
        i = i + 1
        quote = " "
        name = field.Name 
        val = field.Value
        if val <> null or val <> nill then
            val = Replace(Replace(val, "'", "\'"), """", "\""")
        end if
        if name = qKEY then
            valval = val
        end If
        if i < record.Fields.Count then
            quote = ", "
        end If
        if name <> qKEY then
            str = str & name & " = '" & val &"'" & quote
        End If
    Next
    writer.WriteLine(str & " WHERE (" & qKEY & " = '" & valval &"');")
    record.MoveNext
    
Loop

writer.Close
MsgBox "Готово!"

Function DBConnect(sDataBase)
    Dim connected
    Set connected = CreateObject("ADODB.Connection")
    connected.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" _
    & "SERVER=localhost;DATABASE=" & sDataBase & ";UID=root;PWD=mangos; OPTION=3"
    connected.Open
    Set DBConnect = connected
End Function 'DBConnect()'

Function OpenFileDialog()
    Set objDialog = CreateObject("UserAccounts.CommonDialog")
    intResult = objDialog.ShowOpen
    If intResult = 0 Then
        Wscript.Quit
    End If
    OpenFileDialog = objDialog.FileName
End Function 'OpenFileDialog()'