XML |
<session> <documents> <document> <type>doc-invoice</type> <object>00HQ13800JrY</object> </document> <document> <type>doc-price-ticket</type> <object>00HQ1380007U</object> </document> </documents> <active>00HQ13800JrY</active> </session>
Dim FileName as String Dim objFSO as FileSistemObject Dim F, Buffer FileName = "C:\Base\settings.xml" Set objFSO = New FileSystemObject Set F = objFSO.OpenTextFile(FileName, ForReading) Buffer = F.ReadAll F.Close Buffer = Replace(CStr(Buffer), "* ", ":-) ", 1, -1, 1) ' ! Set F = objFSO.OpenTextFile(FileName, ForWriting) F.Write Buffer F.Close