home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Video_Grab213908122009.psc / xml.bas < prev   
BASIC Source File  |  2008-12-31  |  735b  |  30 lines
  1. Attribute VB_Name = "xmlDoc"
  2. Dim langFileContent As New MSXML2.DOMDocument
  3.  
  4. Public Type langInfo
  5.     langName As String
  6.     langAuthorName As String
  7.     langAuthorMail As String
  8.     strID(33) As String
  9.     strShort(33) As String
  10.     strFull(33) As String
  11. End Type
  12.  
  13. Public langVar() As langInfo
  14.  
  15. Function loadLangXMLDoc()
  16.  
  17.     Dim confFile As String
  18.     Dim vglang As String
  19.     
  20.     confFile = App.Path + "\config\lang.cfg"
  21.     
  22.     Open confFile For Input As #1
  23.         Input #1, vglang
  24.     Close #1
  25.     
  26.     vglang = grabData(vglang)
  27.     
  28.     langFileContent.async = False
  29.     langFileContent.Ls S"llllllllollllcync MString
  30.     strFu1O.g\la.peContent.Ls S"llllllllnf"3Er   larLlllllll1t vglang = ggggDoo"