[решено] Обезличивание.

[Ze_Side]

Добрый день,возникла такая необходимость.
Имеется xml файл с нобром личной информации. например.

<shortName></shortName>
<surname>Петров</surname>
<name>Иван</name>
<middle>АНАТОЛЬЕВИЧ</middle>
<dob>01.01.1901</dob>

необходимо обезличить данные по условию,что во всех местах ,где есть,например, структура <surname></surname> скрипт заменит текст на,например, Иванов.
Написал бы на VBA в excel ,но при открытии xmlки excelем почему-то добавляется много лишних строк разметки ,типо
<Column ss:Width="94.5"/>
<Column ss:Width="46.5"/>
<Column ss:Width="103.5"/>

параметров в необходимом файле много, но если кто-нибудь сможет помочь,напишите пример на одном параметре для батничка.
Заранее спасибо

[El Sanchez]

Ze_Side, на VBScript пойдет?

Dim objFSO, Tag
Set objFSO = CreateObject("Microsoft.XMLDOM")
With objFSO
.async = False
.load("c:\temp\test.xml")
If .parseError.errorCode = 0 Then
For Each Tag in .getElementsByTagName("surname")
Tag.text = "Ivanov"
Next
.save("c:\temp\test.xml")
MsgBox "OK", vbInformation
End If
End With
Set Tag = Nothing
Set objFSO = Nothing

[Ze_Side]

конечно пойдёт!
большое спасибо,всё просто замечательно работает,получилось то что надо!!))

один вопросик ещё остался,можно сделать открытие файла как-нибудь запросом? это не обзательно, но было бы нанмого удобней.
и ещё раз спасибо =)

[Ze_Side]

уже сам сделал =)