Sta1917
24-02-2013, 20:33
Здравствуйте, помогите пожалуйста скриптом: есть текстовый файл name.conf в 184 строку нужно дописать путь выделенной папки вида mount d Буква диска:\Путь к папке и после записи запустить программу. Т.е. клик правой кнопкой мыши по папке и выбор пункта "Открыть в DBox" должен запускать скрипт.
Скрипт изменяющий строку (Взято здесь (http://forum.oszone.net/post-1784763-7.html) )
fName = "D:\Delete\name.conf" ' Где текстовый файл
iStrok = 184 ' В какой строке меняем текст
repTxt = "У попа была собака, он её любил" ' Какой текст поместим в указанную строку
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(fName, 1, False) ' Открываем исходный текст файл для чтения
AllTxt = F.ReadAll() ' Cчитываем весь файл в строковую переменную
F.Close ' Закрываем файл
Mas = Split(AllTxt, vbCrLf) ' Разбиваем полученную строку в массив. Резделитель - конец строки и перевод строки vbCrLf
If UBound(Mas) + 1 >= iStrok Then
Mas(iStrok - 1) = repTxt ' Заменяем нужный элемент массива (строку текста) заданной
AllTxt = Join(Mas, vbCrLf) ' Консолидируем массив в строку для записи
Set F = FSO.OpenTextFile(fName, 2, False) ' Открываем исходный файл для записи
F.Write AllTxt ' Записываем полученное на место исходного файла
F.Close ' Закрываем файл
End If
Reg файл для контекстного меню
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Directory\shell\Открыть в DBox]
"icon"="shell32.dll,-152"
[HKEY_CLASSES_ROOT\Directory\shell\Открыть в DBox\Command]
@="WScript C:\\Windows\\ТВОЯ\\ПАПКА\\ИМЯ_ФАЙЛА.vbs \"%V\""
Скрипт изменяющий строку (Взято здесь (http://forum.oszone.net/post-1784763-7.html) )
fName = "D:\Delete\name.conf" ' Где текстовый файл
iStrok = 184 ' В какой строке меняем текст
repTxt = "У попа была собака, он её любил" ' Какой текст поместим в указанную строку
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(fName, 1, False) ' Открываем исходный текст файл для чтения
AllTxt = F.ReadAll() ' Cчитываем весь файл в строковую переменную
F.Close ' Закрываем файл
Mas = Split(AllTxt, vbCrLf) ' Разбиваем полученную строку в массив. Резделитель - конец строки и перевод строки vbCrLf
If UBound(Mas) + 1 >= iStrok Then
Mas(iStrok - 1) = repTxt ' Заменяем нужный элемент массива (строку текста) заданной
AllTxt = Join(Mas, vbCrLf) ' Консолидируем массив в строку для записи
Set F = FSO.OpenTextFile(fName, 2, False) ' Открываем исходный файл для записи
F.Write AllTxt ' Записываем полученное на место исходного файла
F.Close ' Закрываем файл
End If
Reg файл для контекстного меню
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Directory\shell\Открыть в DBox]
"icon"="shell32.dll,-152"
[HKEY_CLASSES_ROOT\Directory\shell\Открыть в DBox\Command]
@="WScript C:\\Windows\\ТВОЯ\\ПАПКА\\ИМЯ_ФАЙЛА.vbs \"%V\""