Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   [решено] Запись пути к выделенной папке в текстовый файл (http://forum.oszone.net/showthread.php?t=254835)

Sta1917 24-02-2013 20:33 2098107

Запись пути к выделенной папке в текстовый файл
 
Здравствуйте, помогите пожалуйста скриптом: есть текстовый файл name.conf в 184 строку нужно дописать путь выделенной папки вида mount d Буква диска:\Путь к папке и после записи запустить программу. Т.е. клик правой кнопкой мыши по папке и выбор пункта "Открыть в DBox" должен запускать скрипт.

Скрипт изменяющий строку (Взято здесь )
Код:

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 2098139

Цитата:

Цитата Sta1917
есть текстовый файл name.conf в 184 строку нужно дописать… »

Выложите этот файл.

Sta1917 24-02-2013 22:12 2098181

Вложений: 1
Это конфигурационный файл для DosBox, после записи пути нужно запустить DosBox.exe

Iska 25-02-2013 01:23 2098300

Можете объяснить, что здесь:
читать дальше »
Код:

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 2098712

Обалдеть как все просто! А я опять начал огород городить.
У меня заработало так:
Код:

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 )
c:\credo.exe            'Запускаем Credo.exe

при таком reg файле эти данные удалятся из [autoexec]

Iska 25-02-2013 19:09 2098755

Цитата:

Цитата Sta1917
У меня заработало так: »

Гут!

Цитата:

Цитата Sta1917
при таком reg файле эти данные удалятся из [autoexec] »

Само собой, нет смысла дублировать.


Время: 13:30.

Время: 13:30.
© OSzone.net 2001-