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