Jovanotti
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[/code]
dim fso,file,regex,str1
set WSHShell=WScript.CreateObject("Wscript.Shell")
set fso=WScript.CreateObject("Scripting.FileSystemObject")
L_Welcome_MsgBox_Message_Text = "Согласны ли Вы поменять имена разделов Е и D местами ?"
L_Welcome_MsgBox_Title_Text = "Смена букв разделов"
Call Welcome()
Dim CRLF
CRLF = Chr(13) & Chr(10)
Function Ask(strAction)
' Эта функция спрашивает пользователя о необходимости выполнения
' конкретного "действия" и возвращает код возврата или завершает
' выполнение сценария, в зависимости от нажатой кнопки. Эта
' функция вызывается из разных мест сценария.
Dim intButton
intButton = MsgBox(strAction, _
vbQuestion + vbYesNo, _
L_Welcome_MsgBox_Title_Text )
Ask = intButton = vbYes
End Function
Function ReplaceTest(patrn, replStr)
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
ReplaceTest = regEx.Replace(text, replStr)
End Function
set file=fso.Opentextfile("devices.reg",1)
text=file.readall
set file2=fso.Opentextfile("devices2.reg",2,true)
file2.write ReplaceTest("d:", "f:")
file2.close
set file2=fso.Opentextfile("devices2.reg",1)
text=file2.readall
set file3=fso.Opentextfile("devices2.reg",2,true)
file3.write ReplaceTest("e:", "d:")
file3.close
set file2=fso.Opentextfile("devices2.reg",1)
text=file2.readall
set file3=fso.Opentextfile("devices2.reg",2,true)
file3.write ReplaceTest("f:", "e:")
file3.close
' ********************************************************************************
' *
' * Приветствие
' *
Sub Welcome()
Dim intDoIt
intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub
'Wscript.Quit()
[/code]
|
Всего записей: 718 | Зарегистр. 22-12-2002 | Отправлено: 17:05 22-03-2005 | Исправлено: Jovanotti, 17:20 22-03-2005 |
|
