Страница: 1 |
|
Вопрос: Чтение данных из xml
|
Добавлено: 26.01.11 16:04
|
|
Автор вопроса: Viktor | ICQ: 252109347
|
Прошу прощения в написании скриптов не силен.
Есть скрипт которые переименовывает xml файлы.
Необходимо чтобы производился анализ определенного элемента в xml-ке и на основании значения, какой-нить переменной в скрипте присваивалось своё значение.. видел примеры, такие как
Dim xmlDoc as MSXML2.DOMDocument30
Set xmlDoc = New DOMDocument30
xmlDoc.async = False
xmlDoc.validateOnParse = False
xmlDoc.load ("c:\inetpub\wwwroot\xml\cup.xml")
msgBox xmlDoc.xml
но здесь надо явно указывать расположение файла. в моем случае идет обработка аргумента коммандной строки, каждый раз xml файлы имеют разные имена.
Начало моего скрипта
Set objArgs = WScript.Arguments ' Аругументы командой строки
if objArgs.Count <> 1 then
WScript.Echo "Не верное количество параметров!"
WScript.Echo "Использование cscript.exe 1.vbs <имя файла>"
WScript.Quit 0
end if
fFullName = UCase(objArgs(0))
WScript.Echo fFullName
fName = Spliting(fFullName, "\")
fPath = Mid(fFullName, 1, InStr(fFullName, fName) - 1)
' Берем 1-й символ имени файла и добавляем 2-й ("1"),
fNew = Left(fName,1) + "1"
' Выдераемиз файла номер дня месяца и переводим его в 36-ричный формат
Var1 = Mid(fName,4,2)
fNew = fNew + To36(Var1)
' Проверяем на разделитель имени файла
Var2 = Instr(fName, ".")
if Var2 = 0 then
Var2 = Lenght(fName)
end if
' Выдераемиз файла номер пакета (не включая расширение)
Var1 = Mid(fName, 6, Var2 - 6)
' WScript.Echo Var1
' WScript.Echo To36_2(Var1)
fNew = fNew + To36_2(Var1)
и далее
Ответить
|
Страница: 1 |
Поиск по форуму