Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - ASP и VBScript

Страница: 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)
 и далее

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Viktor



ICQ: 252109347 

Вопросов: 1
Ответов: 2
 Профиль | | #1 Добавлено: 26.01.11 16:08
т.е. надо чтобы первый символ который в данном случае Left(fName,1) принимал значение в зависимости от значения элемента в самом xml файле

Ответить

Номер ответа: 2
Автор ответа:
 Viktor



ICQ: 252109347 

Вопросов: 1
Ответов: 2
 Профиль | | #2 Добавлено: 27.01.11 11:01
вопрос отпал , сделал

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам