Войти

Показать полную графическую версию : [решено] Запись пути к выделенной папке в текстовый файл


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\""

Iska
24-02-2013, 21:31
есть текстовый файл name.conf в 184 строку нужно дописать… »
Выложите этот файл.

Sta1917
24-02-2013, 22:12
Это конфигурационный файл для DosBox, после записи пути нужно запустить DosBox.exe

Iska
25-02-2013, 01:23
Можете объяснить, что здесь:
mount c .\CREDO
mount d D:\Credo_work
d:
c:vrun.com
c:\credo.exe

?

1. Смонтировать диск C: на папку CREDO, вложенную в текущую папку текущего диска.
4. Запустить vrun.com с текущей папки смонтированного диска C:.

Как понимать?

Sta1917, не занимайтесь переписыванием файла конфигурации. Используйте командную строку: http://www.dosbox.com/wiki/Usage. Например:
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\shell\Открыть в DBox]
"icon"="shell32.dll,-152"

[HKEY_CLASSES_ROOT\Directory\shell\Открыть в DBox\Command]
@="\"C:\\Program Files\\DOSBox-0.74\\DOSBox.exe\" -c \"mount c c:\\CREDO\" -c \"mount d %1\" -c \"d:\" -c \"c:\\vrun.com\" -c \"c:\\credo.exe\" -exit"

Sta1917
25-02-2013, 17:54
Обалдеть как все просто! А я опять начал огород городить.
У меня заработало так:
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Directory\shell\Открыть в DBox]
"icon"="D:\\CREDO\\CD.ICO"
[HKEY_CLASSES_ROOT\Directory\shell\Открыть в DBox\Command]
@="\"C:\\Program Files\\DOSBox-0.74\\DOSBox.exe\" -c \"mount c D:\\CREDO\" -c \"mount d %1\" -c \"d:\" -c \"c:\\vrun.com\" -c \"c:\\credo.exe\" -c exit"

Для Iska mount c .\CREDO 'Папка Credo являлась вложенной в папку DosBox
mount d D:\Credo_work 'Монтируем папку с проектом
d: 'Переходим в папку с проектом
c:vrun.com 'Запускаем драйвер клавиатуры и дисплея для DOS, лежащий в папке Credo (аналог KeyRus (http://ru.wikipedia.org/wiki/KeyRus) )
c:\credo.exe 'Запускаем Credo.exe
при таком reg файле эти данные удалятся из [autoexec]

Iska
25-02-2013, 19:09
У меня заработало так: »
Гут!

при таком reg файле эти данные удалятся из [autoexec] »
Само собой, нет смысла дублировать.




© OSzone.net 2001-2012