Показать полную графическую версию : WIHU
gen0m.rsw
09-09-2012, 14:59
Активно использую WIHU, но проблема в файле *.ini (где и записываться вся инфо )!!!
Не успеваю редактировать строки(добавлять пути)!!! Всё ошибки выдает , типа "файл нот фоунд",
К примеру скрипт:
[CD/DVD]
selected = 0
collapsed = 1
helptext =
; Sub command 0
description.0 = Alcohol 120% 2.0.1.2033
command.0 = SOFT\CD-DVD\alcohol120.exe
selected.0 = 1
flags.0 = italic:if.false
helptext.0 = Описание
; Sub command 1
description.1 = Nero 7
description.1.0 = Cole2k_Media-AudioPlugin_Pack
description.1.1 = Nero Burning Rom PlugIn Pack
command.1 = SOFT\CD-DVD\Nero_7\Nero_7.exe -ail -gm2
command.1.0 = SOFT\CD-DVD\Nero_7\PlugIns\Nero_7_PlugIn_Pack\setup.exe /s
command.1.1 = SOFT\CD-DVD\Nero_7\PlugIns\Nero_7_PlugIn_Pack\setup.exe /s
selected.1 = 1
selected.1.0 = 1
selected.1.1 = 1
helptext.1 =
helptext.1.0.0 =
helptext.1.2 = Ahead Nero Burning Rom 6 PlugIn Pack 2.0.4 by Team-GEAR ONLY FOR www.goldesel.to
Можно ли что бы скрипт определил ВСЕ command.x.x.x.... на наличие файла , есть такой или его нет, и выдал
номера строк что файла такого по ентому пути нет!!!
Где должны быть расположены:
SOFT\CD-DVD\Nero_7\Nero_7.exe
SOFT\CD-DVD\Nero_7\PlugIns\Nero_7_PlugIn_Pack\setup.exe
и т.п. файлы по отношению к файлу «*.ini»? В той же папке, т.е.:
.
bla-bla-bla.ini
SOFT
CD-DVD
Nero_7
Nero_7.exe
PlugIns
Nero_7_PlugIn_Pack
setup.exe
?
И, кстати, отчего у Вас дублируются «command.1.0» и «command.1.1»?
gen0m.rsw
10-09-2012, 04:39
Где должны быть расположены: »
setup.ini находиться в SOFT, где соответственно и находиться все остальные папки с софтом!!И, кстати, отчего у Вас дублируются «command.1.0» и «command.1.1»? »
Команда и подкоманда!!!!
Следующие вопросы.
1. Могут ли быть справа от знака равенства (в «command.X.X = …») пути к исполняемым файлам, заключённые в кавычки?
2. Могут ли быть справа от знака равенства (в «command.X.X = …») пути к исполняемым файлам с пробелами?
gen0m.rsw
10-09-2012, 15:47
1. Могут ли быть справа от знака равенства (в «command.X.X = …») пути к исполняемым файлам, заключённые в кавычки? »
Нет2. Могут ли быть справа от знака равенства (в «command.X.X = …») пути к исполняемым файлам с пробелами? »
Да
gen0m.rsw
10-09-2012, 15:57
Iska
Оригинальный файл прикрепил Software.7z
Может поможет!!!
2. Могут ли быть справа от знака равенства (в «command.X.X = …») пути к исполняемым файлам с пробелами? »Да »
gen0m.rsw, приведите мне тогда пример пути с пробелами из выложенного Вами файла.
gen0m.rsw
11-09-2012, 04:06
gen0m.rsw, приведите мне тогда пример пути с пробелами из выложенного Вами файла. »
[System Utility]
selected = 0
collapsed = 1
helptext =
; Sub command 0
description.0 = Total Uninstall 6
command.0 = SOFT\UTILITES\Total Uninstall\Total.Uninstall.v6.0.0.exe /S /IH
selected.0 = 1
flags.0 = italic:if.false
Некоторые пути «жёстко» прописаны:
command.0 = Z:\Repack_RSW\WIHU\SOFT\ARHIVATOR\7zip\7z920.RePack.AIO.exe -gm2
…
command.1 = F:\WIHU\SOFT\INFO\Kulinar.exe /s
А с другими:
command.1 = FSOFT\PLAYERS\MPC-HomeCinema.1.5.2.3456.x86.exe /VERYSILENT
…
command.2 = WIHU\SOFT\INTERNET\MailRuAgent\Mail.RU Agent 6.0.5831.exe /VERYSILENT
…
command.4 = WIHU\SOFT\INTERNET\utorrent\utorrent.exe
— описки?
Пробуйте так:
Option Explicit
Dim strIniFile
Dim objRegExp
Dim arrLines
Dim strLine
Dim strPath
If WScript.Arguments.Count = 1 Then
strIniFile = WScript.Arguments.Item(0)
Set objRegExp = WScript.CreateObject("VBScript.RegExp")
With objRegExp
.IgnoreCase = True
.Pattern = "^\s*command(?:\.\d+){1,2}\s*=\s*(.*(?:msi|exe))\s*.*$"
End With
With WScript.CreateObject("Scripting.FileSystemObject")
With .OpenTextFile(strIniFile)
arrLines = Split(.ReadAll(), vbCrLf)
.Close
End With
For Each strLine In arrLines
If objRegExp.Test(strLine) Then
strPath = .BuildPath(.GetParentFolderName(.GetParentFolderName(.GetAbsolutePathName(strIniFile))), objRegExp.Execute(strLine).Item(0).Submatches(0))
If Not .FileExists(strPath) Then
WScript.Echo strLine
End If
End If
Next
End With
Set objRegExp = Nothing
Else
WScript.Echo "Usage: cscript.exe //nologo " & WScript.ScriptName & " <inifile>"
End If
WScript.Quit 0
gen0m.rsw
11-09-2012, 19:56
Пробуйте так: »
Как ентим пользоваться , выдает ошибку!!!
--------------------------- Windows Script Host --------------------------- Usage: cscript.exe //nologo Текстовый документ.vbs <inifile> --------------------------- ОК ---------------------------
gen0m.rsw, это не ошибка, а как раз сообщение о том:
Как ентим пользоваться »
Откройте командную строку, наберите:
cscript.exe //nologo "Путь\Текстовый документ.vbs" "Путь\Software.ini"
Нажмите Enter.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.