Äåíü äîáðûé, óâàæàåìûå ôîðóì÷àíå!
Ñòîëêíóëñÿ ñ ïðîáëåìîé èçìåíåíèÿ xml(äî ýòîãî äåëà ñ xml íå èìåë)...
 ïðèíöèïå èäåÿ íå íîâà, íî íàéòè ðåøåíèå ÿ ïîêà íå ñìîã(õîòÿ óâåðåí îíî óæå íå ðàç çäåñü îáñóæäàëîñü).
Äðóæó Access ñ ñòîðîííåé ïðîãîé (åñëè ýòî èìååò êàêîå-òî çíà÷åíèå, òî
âîò è
âîò)...è âñ¸ ó ìåíÿ âðîäå áû ïîëó÷èëîñü è çàïèñè â áàçó ýòîé ïðîãè èäóò íà óðà, íî, êàê âñåãäà çàòóï ñëó÷èëñÿ íà äîâîëüíî ïðîñòîì ìîìåíòå
Ó ïðîãè ýòîé åñòü ôàéë settings.xml - â êîòîðîì óêàçûâàåòñÿ ñðåäè ïðî÷åãî ñîäåðæèìîå îêíà ïðè îòêðûòèè(äóìàþ èäåÿ ïîíÿòíà - âí¸ñ äàííûå â áàçó, õî÷ó ÷òî á ýòè äàííûå îòîáðàçèëèñü ïðè îòêðûòèè ïðîãðàììû).
Äàííûå óêàçûâàþòñÿ ìåæäó òåãàìè , òî åñòü ìíå íàäî çàìåíèòü âåñü òåêñò ìåæäó òåãàìè.
Åñëè åñòü íåîáõîäèìîñòü, òî âîò âûäåðæêà(êàæäûé
- ýòî íîâàÿ âêëàäêà íà ýêðàíå(èõ ìîæåò áûòü ñêîëüêî óãîäíî, íî ìíå íàäî íå áîëåå äâóõ),
00HQ13800JrY - ýòî ID îáúåêòà íà âêëàäêå êîòîðîãî áóäåò ôîêóñ ïðè îòêðûòèè )
<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>
Ïðîáóþ îòêðûâàòü xml êàê òåêñò èñïîëüçóÿ FileSystemObject, êîïèðóþ â áóôåð âñ¸ ñîäåðæèìîå,ïûòàþñü çàìåíèòü è çàïèñàòü îáðàòíî â ôàéë...
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
Óâåðåí, ÷òî åñòü ïóòü ëîãè÷íåå, ïîýòîìó ïîêà èùó ðåøåíèå - ïðîøó ïîìîùè.
http://www.sql.ru/forum/1181579/izmenenie-teksta-v-xml