Страница: 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 | 
 
		
			Поиск по форуму