-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Èçìåíåíèå òåêñòà â XML

Âîñêðåñåíüå, 25 Îêòÿáðÿ 2015 ã. 11:50 + â öèòàòíèê
Äåíü äîáðûé, óâàæàåìûå ôîðóì÷àíå!
Ñòîëêíóëñÿ ñ ïðîáëåìîé èçìåíåíèÿ 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó