VB 读取xml 中的元素

'***********************************************读取指定配置文件中不导出pdb里的bo**********************************'
'***********为ture：文件中未读到；为false：文件中读到
Private Function getPdbNotExportBO(BOConfig1,BoName)
  Dim pdbtexts,i
  Dim BoCfg1
  IF(BOConfig1.getElementsByTagName("pdbNotExportBOProperty").length > 0) THEN
  SET BoCfg1 = BOConfig1.getElementsByTagName("pdbNotExportBOProperty")
  'Output BoCfg1.length '2
  
  for i=0 to (BoCfg1.length-1) step 1 
  pdbtexts = BOConfig1.getElementsByTagName("pdbNotExportBOProperty")(i).getElementsByTagName("Info")(0).Attributes(0).Text
  if (pdbtexts = BoName) then
  Output "AAAAAAAAAAAAAAAAAA FALSE "+BoName +"----------"+pdbtexts
  else
  Output "BBBBBBBBBBBBBBBBBB TURE "+BoName
  end if 
  next
  ELSE
  SET BoCfg1 = CreateObject("Microsoft.XMLDOM")
  END IF