Nп/п : 15 из 37
 От   : Newyana2                            2:5075/128        29 авг 23 12:43:05
 К    : Accu Backup                                           29 авг 23 19:45:02
 Тема : Re: Anyone know how read XML?
----------------------------------------------------------------------------------
                                                                                 
@MSGID: 2@paganini.bofh.team>
598ecfad
@REPLY:
<6aa51ffe-f4a3-46a4-a793-f971c42d26f5n@googlegroups.com> 86b70d9b
@REPLYADDR Newyana2 <Newyana2@invalid.nospam>
@REPLYTO 2:5075/128 Newyana2
@CHRS: CP866 2
@RFC: 1 0
@RFC-Message-ID:
2@paganini.bofh.team>
@RFC-References:
<0c640188-cdf2-421e-aca2-583457644423n@googlegroups.com> <d0dfac9e-d413-490b-a595-fb2fcde550aan@googlegroups.com>
<24c250df-8e59-4af9-b5bf-d17f6a92a6e4n@googlegroups.com> <20230414171132.00006d23@mvps.org.invalid>
<5cf1be47-7a74-42fa-b012-9e0c167ae58en@googlegroups.com> <1c082c0f-fad1-4a99-834b-22db0cc3c815n@googlegroups.com>
<20230822174909.00004e84@mvps.org.invalid> <d8705cd6-a647-4f5c-92e7-4746e79a5448n@googlegroups.com>
<20230825113749.00003ea6@mvps.org.invalid> <20230825113913.000017cb@mvps.org.invalid>
<877e2be8-725d-4849-9c7c-4ea2adc83303n@googlegroups.com> 1@paganini.bofh.team>
<6aa51ffe-f4a3-46a4-a793-f971c42d26f5n@googlegroups.com>
@TZUTC: -0400
@TID: FIDOGATE-5.12-ge4e8b94
"Accu Backup" <accubackup1@gmail.com> wrote

> Thanks Newyana2.  Currently, with this large file, I`m reading
> line-by-line and parsing for what I need.  But yea, if I can just read it
> in one Parent node at a time, do my parsing and then repeat with the next
> Parent node and so on, that would be ideal.  I just can`t figure out how
> to read each node into a string.
>

  XML has to have unique strings with < and >, so you just
look for  string between them, split it at vbCrLf or whatever to get
an array of attributes. Perhaps feed that into a class. Then
start your next search after the offset where you found 
  This is very basic stuff.
  w1 = "   w2 = "   s = [file string]
  pt1 = 1
  pt2 = Instr(pt1, s, w1, 0)
  pt1 = Instr(pt2 + 8, s, w2, 0)
  sWorkerEntry = Mid$(s, pt2, (pt1 - pt2))
  AAttributes = Split(sWorkerEntry, vbCrLf)




--- Microsoft Outlook Express 6.00.2900.5512
 * Origin: To protect and to server (2:5075/128)
SEEN-BY: 5001/100 5005/49 5015/255 5019/40 5020/715
848 1042 4441 12000
SEEN-BY: 5030/49 1081 5058/104 5075/128
@PATH: 5075/128 5020/1042 4441



   GoldED+ VK   │                                                 │   09:55:30    
                                                                                
В этой области больше нет сообщений.

Остаться здесь
Перейти к списку сообщений
Перейти к списку эх