[Iska]

Akiyamka, упакуйте образец Вашего реального xml-файла в архив и приложите к сообщению.

[Georgio]

Код:

File="config.xml"
With WScript.CreateObject("Scripting.FileSystemObject")
 x=Replace(.OpenTextFile(File).ReadAll(),Split(Split(.OpenTextFile(File).ReadAll(),vbCrLf&"key="&Chr(34))(1),Chr(34)&vbCrLf)(0),InputBox("Введите новое значение"))
 .OpenTextFile(File,2).Write(x)
End With

[Akiyamka]

Iska, и Georgio, начну с того, что скажу Вам огромное спасибо что отозвались. прикрепил файл xml. Ключи screenheight=" " и screenwidth=" ". Задача в том, чтобы их значения менять на введенные через диалоговое окно.

Georgio, что-то не завелся.

Код:

Строка: 3
Символ: 1
Ошибка: Индекс выходит за пределы допустимого диапазона: 'number: 1'
Код: 800A0009

[Akiyamka]

Код:

Split(Split(.OpenTextFile(File).ReadAll(),vbCrLf&"screenheight="&Chr(34))(1),Chr(34)&vbCrLf)(0)

Не совсем понимаю что делает это выражение. зачем нужна (1) после &Chr(34))?

[Georgio]

Код:

File="config.xml"

set d=CreateObject("Scripting.Dictionary")
d.Add "0", "screenheight"
d.Add "1", "screenwidth"
'''''''''''''''' и т. д. '''''''''''''''''
 
For Each i In d     
 With WScript.CreateObject("Scripting.FileSystemObject")
  x=Replace(.OpenTextFile(File).ReadAll(),Split(Split(.OpenTextFile(File).ReadAll(),d.Item(i)&"="&Chr(34))(1),Chr(34))(0),InputBox("Введите новое значение для "&d.Item(i)))
  .OpenTextFile(File,2).Write(x)
 End With
Next

[Akiyamka]

Georgio, шикарно,

[Akiyamka]

Все таки есть у скрипта недостаток. Он перестает работать если значения screenheight=" " и screenwidth=" " одинаковы, или не указаны. Можно как-нибудь его дописать, чтобы он сначала устанавливал эти значения по умолчанию (screenheight="1024" и screenwidth="768"), и только потом менял?

[Iska]

эти значения по умолчанию (screenheight="1024" и screenwidth="768") »

Полагаю, наоборот. Или у Вас экран вертикально развёрнут?

Пробуйте, на WSH:

читать дальше »

Код:

Option Explicit

Const ForWriting = 2


Dim strSourceFile

Dim objFSO
Dim objRegExp

Dim strContent

Dim strScreenHeight
Dim strScreenWidth


strSourceFile = "C:\Песочница\054\config.xml"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strSourceFile) Then
	Set objRegExp = WScript.CreateObject("VBScript.RegExp")
	
	With objRegExp
		.IgnoreCase = True
		.Global = True
	End With
	
	With objFSO.OpenTextFile(strSourceFile)
		strContent = .ReadAll()
		.Close
	End With
	
	objRegExp.Pattern = "(screenheight="")(\d*)("")"
	
	If objRegExp.Test(strContent) Then
		strScreenHeight = Trim(objRegExp.Execute(strContent).Item(0).Submatches.Item(1))
		
		If Len(strScreenHeight) = 0 Then
			strScreenHeight = "768"
		End If
		
		strScreenHeight = Trim(InputBox("Enter Screen Height:", "Enter Screen Height", strScreenHeight))
		
		If Len(strScreenHeight) = 0 Then
			WScript.Echo "User cancelled input."
			WScript.Quit 2
		End If
		
		strContent = objRegExp.Replace(strContent, "$1" & strScreenHeight & "$3")
	Else
		WScript.Echo "Can't find ScreenHeight attribute in file."
		WScript.Quit 3
	End If
	
	objRegExp.Pattern = "(screenwidth="")(\d*)("")"
	
	If objRegExp.Test(strContent) Then
		strScreenWidth = Trim(objRegExp.Execute(strContent).Item(0).Submatches.Item(1))
		
		If Len(strScreenWidth) = 0 Then
			strScreenWidth = "1024"
		End If
		
		strScreenWidth = Trim(InputBox("Enter Screen Width:", "Enter Screen Width", strScreenWidth))
		
		If Len(strScreenWidth) = 0 Then
			WScript.Echo "User cancelled input."
			WScript.Quit 2
		End If
		
		strContent = objRegExp.Replace(strContent, "$1" & strScreenWidth & "$3")
	Else
		WScript.Echo "Can't find ScreenWidth attribute in file."
		WScript.Quit 3
	End If
	
	With objFSO.OpenTextFile(strSourceFile, ForWriting)
		.Write strContent
		.Close
	End With
	
	Set objRegExp = Nothing
Else
	WScript.Echo "Source file [" & strSourceFile & "] not found."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

[Akiyamka]

Красота, огромное спасибо!