DJRavine's Codebook:

[ADVERTISEMENT]
Thread Closed 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Visual Basic 2005
02-23-2007, 05:29 AM (This post was last modified: 02-23-2007 05:51 AM by »Yama«.)
Post: #1
Visual Basic 2005
Right, I'm so close to finishing my wow.allakhazam item xml to sql converter, but for some reason, whenever I write to a file, it adds a few bytes to the beginning of it.
Code:
EF BB BF  <--That's what is added.  Opened the file with a hex editor to see what was added to the front.
Because of this, whenever I try to execute the sql, it throws me an sql format error... But, when I open the sql in wordpad, then save it straight afterwards, it gets rid of the extra bytes at the beginning, allowing me to execute it... Anyways, hope you can help me with this DJRavi... Is there any way to prevent those extra bytes from being added, or to delete them afterwards? Here's the code, btw:
Code:
Imports System
Imports System.IO
Imports System.Xml

Public Class Sample
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.FileSystem.WriteAllText("items.sql", "insert  into `items`(`item_id`,`itemlen`,`class`,`subclass`,`name`,`name2`,`name3`,`name4`,`d​isplayid`,`quality`,`flags`,`buyprice`,`sellprice`,`inventorytype`,`allowablecla​ss`,`allowablerace`,`itemlevel`,`requiredlevel`,`RequiredSkill`,`RequiredSkillRa​nk`,`RequiredSpell`,`RequiredFaction`,`RequiredFactionLvL`,`RequiredPVPRank`,`ma​xcount`,`ContainerSlots`,`stat_type1`,`stat_value1`,`stat_type2`,`stat_value2`,`​stat_type3`,`stat_value3`,`stat_type4`,`stat_value4`,`stat_type5`,`stat_value5`,​`stat_type6`,`stat_value6`,`stat_type7`,`stat_value7`,`stat_type8`,`stat_value8`​,`stat_type9`,`stat_value9`,`stat_type10`,`stat_value10`,`dmg_min1`,`dmg_max1`,`​dmg_type1`,`dmg_min2`,`dmg_max2`,`dmg_type2`,`dmg_min3`,`dmg_max3`,`dmg_type3`,`​dmg_min4`,`dmg_max4`,`dmg_type4`,`dmg_min5`,`dmg_max5`,`dmg_type5`,`armor`,`holy​_res`,`fire_res`,`nature_res`,`frost_res`,`shadow_res`,`arcane_res`,`delay`,`Blo​ck`,`spellid_1`,`spelltrigger_1`,`spellcharges_1`,`spellcooldown_1`,`spellcatego​ry_1`,`spellcategorycooldown_1`,`spellid_2`,`spelltrigger_2`,`spellcharges_2`,`s​pellcooldown_2`,`spellcategory_2`,`spellcategorycooldown_2`,`spellid_3`,`spelltr​igger_3`,`spellcharges_3`,`spellcooldown_3`,`spellcategory_3`,`spellcategorycool​down_3`,`spellid_4`,`spelltrigger_4`,`spellcharges_4`,`spellcooldown_4`,`spellca​tegory_4`,`spellcategorycooldown_4`,`spellid_5`,`spelltrigger_5`,`spellcharges_5​`,`spellcooldown_5`,`spellcategory_5`,`spellcategorycooldown_5`,`bonding`,`descr​iption`,`RandPropID`,`PageTextID`,`PageLanguage`,`PageMaterial`,`LockId`,`LockMa​terial`,`Unique`,`ItemSetId`,`field110`,`field111`,`MaxDurability`,`StartQuest`,​`Sheath`,`Socket_1`,`Socket_2`,`Socket_3`,`SocketBonus`,`FocusId`,`ExtendedPrice​Id`) values (", False)
        Dim doc As XmlDocument = New XmlDocument()
        doc.Load("item.xml")
        Dim nsmgr As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable)
        nsmgr.AddNamespace("item", "urn:item-schema")
        Dim nodeList As XmlNodeList
        Dim root As XmlElement = doc.DocumentElement
        Dim id As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:id", nsmgr)
        For Each id In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", id.InnerXml + ", 0, ", True)
        Next
        Dim itemclass As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:itemclass", nsmgr)
        For Each itemclass In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", itemclass.InnerXml + ", ", True)
        Next
        Dim itemsubclass As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:itemsubclass", nsmgr)
        For Each itemsubclass In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", itemsubclass.InnerXml + ", ", True)
        Next
        Dim name1 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:name1", nsmgr)
        For Each name1 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", """" + name1.InnerXml + """" + ", " + """" + name1.InnerXml + """" + ", " + """" + name1.InnerXml + """" + ", " + """" + name1.InnerXml + """" + ", ", True)
        Next
        Dim displayinfo As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:displayinfo", nsmgr)
        For Each displayinfo In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", displayinfo.InnerXml + ", ", True)
        Next
        Dim quality As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:quality", nsmgr)
        For Each quality In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", quality.InnerXml + ", 0, ", True)
        Next
        Dim buyprice As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:buyprice", nsmgr)
        For Each buyprice In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", buyprice.InnerXml + ", ", True)
        Next
        Dim sellprice As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:sellprice", nsmgr)
        For Each sellprice In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", sellprice.InnerXml + ", ", True)
        Next
        Dim slot As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:slot", nsmgr)
        For Each slot In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", slot.InnerXml + ", ", True)
        Next
        Dim classes As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:classes", nsmgr)
        For Each classes In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", classes.InnerXml + ", ", True)
        Next
        Dim races As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:races", nsmgr)
        For Each races In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", races.InnerXml + ", ", True)
        Next
        Dim level As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:level", nsmgr)
        For Each level In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", level.InnerXml + ", ", True)
        Next
        Dim minlevel As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:minlevel", nsmgr)
        For Each minlevel In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", minlevel.InnerXml + ", ", True)
        Next
        Dim recskill_skill As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:recskill_skill", nsmgr)
        For Each recskill_skill In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", recskill_skill.InnerXml + ", ", True)
        Next
        Dim recskill_amount As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:recskill_amount", nsmgr)
        For Each recskill_amount In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", recskill_amount.InnerXml + ", ", True)
        Next
        Dim req_spell As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:req_spell", nsmgr)
        For Each req_spell In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", req_spell.InnerXml + ", ", True)
        Next
        Dim reqfaction As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:reqfaction", nsmgr)
        For Each reqfaction In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", reqfaction.InnerXml + ", ", True)
        Next
        Dim reqfactionlvl As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:reqfactionlvl", nsmgr)
        For Each reqfactionlvl In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", reqfactionlvl.InnerXml + ", ", True)
        Next
        Dim reqpvprank As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:reqpvprank", nsmgr)
        For Each reqpvprank In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", reqpvprank.InnerXml + ", ", True)
        Next
        Dim stacksize As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stacksize", nsmgr)
        For Each stacksize In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stacksize.InnerXml + ", ", True)
        Next
        Dim slots As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:slots", nsmgr)
        For Each slots In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", slots.InnerXml + ", ", True)
        Next
        Dim stat1_stat As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stat1_stat", nsmgr)
        For Each stat1_stat In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stat1_stat.InnerXml + ", ", True)
        Next
        Dim stat1_value As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stat1_value", nsmgr)
        For Each stat1_value In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stat1_value.InnerXml + ", ", True)
        Next
        Dim stat2_stat As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stat2_stat", nsmgr)
        For Each stat2_stat In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stat2_stat.InnerXml + ", ", True)
        Next
        Dim stat2_value As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stat2_value", nsmgr)
        For Each stat2_value In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stat2_value.InnerXml + ", ", True)
        Next
        Dim stat3_stat As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stat3_stat", nsmgr)
        For Each stat3_stat In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stat3_stat.InnerXml + ", ", True)
        Next
        Dim stat3_value As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stat3_value", nsmgr)
        For Each stat3_value In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stat3_value.InnerXml + ", ", True)
        Next
        Dim stat4_stat As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stat4_stat", nsmgr)
        For Each stat4_stat In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stat4_stat.InnerXml + ", ", True)
        Next
        Dim stat4_value As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stat4_value", nsmgr)
        For Each stat4_value In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stat4_value.InnerXml + ", ", True)
        Next
        Dim stat5_stat As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stat5_stat", nsmgr)
        For Each stat5_stat In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stat5_stat.InnerXml + ", ", True)
        Next
        Dim stat5_value As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:stat5_value", nsmgr)
        For Each stat5_value In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", stat5_value.InnerXml + ", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ", True)
        Next
        Dim dmg_low As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:dmg_low", nsmgr)
        For Each dmg_low In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", dmg_low.InnerXml + ", ", True)
        Next
        Dim dmg_high As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:dmg_high", nsmgr)
        For Each dmg_high In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", dmg_high.InnerXml + ", ", True)
        Next
        Dim dmg_resist As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:dmg_resist", nsmgr)
        For Each dmg_resist In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", dmg_resist.InnerXml + ", ", True)
        Next
        Dim dmg_low2 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:dmg_low2", nsmgr)
        For Each dmg_low2 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", dmg_low2.InnerXml + ", ", True)
        Next
        Dim dmg_high2 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:dmg_high2", nsmgr)
        For Each dmg_high2 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", dmg_high2.InnerXml + ", ", True)
        Next
        Dim dmg_resist2 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:dmg_resist2", nsmgr)
        For Each dmg_resist2 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", dmg_resist2.InnerXml + ", ", True)
        Next
        Dim dmg_low3 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:dmg_low3", nsmgr)
        For Each dmg_low3 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", dmg_low3.InnerXml + ", ", True)
        Next
        Dim dmg_high3 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:dmg_high3", nsmgr)
        For Each dmg_high3 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", dmg_high3.InnerXml + ", ", True)
        Next
        Dim dmg_resist3 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:dmg_resist3", nsmgr)
        For Each dmg_resist3 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", dmg_resist3.InnerXml + ", 0, 0, 0, 0, 0, 0, ", True)
        Next
        Dim armor As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:armor", nsmgr)
        For Each armor In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", armor.InnerXml + ", ", True)
        Next
        Dim holy_resist As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:holy_resist", nsmgr)
        For Each holy_resist In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", holy_resist.InnerXml + ", ", True)
        Next
        Dim fire_resist As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:fire_resist", nsmgr)
        For Each fire_resist In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", fire_resist.InnerXml + ", ", True)
        Next
        Dim nature_resist As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:nature_resist", nsmgr)
        For Each nature_resist In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", nature_resist.InnerXml + ", ", True)
        Next
        Dim frost_resist As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:frost_resist", nsmgr)
        For Each frost_resist In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", frost_resist.InnerXml + ", ", True)
        Next
        Dim shadow_resist As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:shadow_resist", nsmgr)
        For Each shadow_resist In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", shadow_resist.InnerXml + ", ", True)
        Next
        Dim arcane_resist As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:arcane_resist", nsmgr)
        For Each arcane_resist In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", arcane_resist.InnerXml + ", ", True)
        Next
        Dim speed As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:speed", nsmgr)
        For Each speed In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", speed.InnerXml + ", ", True)
        Next
        Dim block As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:block", nsmgr)
        For Each block In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", block.InnerXml + ", ", True)
        Next
        Dim spelleffect1 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spelleffect1", nsmgr)
        For Each spelleffect1 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spelleffect1.InnerXml + ", ", True)
        Next
        Dim spellact1 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellact1", nsmgr)
        For Each spellact1 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellact1.InnerXml + ", 0, ", True)
        Next
        Dim spellcooldown1 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellcooldown1", nsmgr)
        For Each spellcooldown1 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellcooldown1.InnerXml + ", ", True)
        Next
        Dim spellcoolgroup1 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellcoolgroup1", nsmgr)
        For Each spellcoolgroup1 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellcoolgroup1.InnerXml + ", ", True)
        Next
        Dim spellcoolgrouptime1 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellcoolgrouptime1", nsmgr)
        For Each spellcoolgrouptime1 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellcoolgrouptime1.InnerXml + ", ", True)
        Next
        Dim spelleffect2 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spelleffect2", nsmgr)
        For Each spelleffect2 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spelleffect2.InnerXml + ", ", True)
        Next
        Dim spellact2 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellact2", nsmgr)
        For Each spellact2 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellact2.InnerXml + ", 0, ", True)
        Next
        Dim spellcooldown2 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellcooldown2", nsmgr)
        For Each spellcooldown2 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellcooldown2.InnerXml + ", ", True)
        Next
        Dim spellcoolgroup2 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellcoolgroup2", nsmgr)
        For Each spellcoolgroup2 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellcoolgroup2.InnerXml + ", ", True)
        Next
        Dim spellcoolgrouptime2 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellcoolgrouptime2", nsmgr)
        For Each spellcoolgrouptime2 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellcoolgrouptime2.InnerXml + ", ", True)
        Next
        Dim spelleffect3 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spelleffect3", nsmgr)
        For Each spelleffect3 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spelleffect3.InnerXml + ", ", True)
        Next
        Dim spellact3 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellact3", nsmgr)
        For Each spellact3 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellact3.InnerXml + ", 0, ", True)
        Next
        Dim spellcooldown3 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellcooldown3", nsmgr)
        For Each spellcooldown3 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellcooldown3.InnerXml + ", ", True)
        Next
        Dim spellcoolgroup3 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellcoolgroup3", nsmgr)
        For Each spellcoolgroup3 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellcoolgroup3.InnerXml + ", ", True)
        Next
        Dim spellcoolgrouptime3 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:spellcoolgrouptime3", nsmgr)
        For Each spellcoolgrouptime3 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", spellcoolgrouptime3.InnerXml + ", 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ", True)
        Next
        Dim binds As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:binds", nsmgr)
        For Each binds In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", binds.InnerXml + ", ", True)
        Next
        Dim description As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:description", nsmgr)
        For Each description In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", """" + description.InnerXml + """" + ", ", True)
        Next
        Dim randprop As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:randprop", nsmgr)
        For Each randprop In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", randprop.InnerXml + ", ", True)
        Next
        Dim unknown_97 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:unknown_97", nsmgr)
        For Each unknown_97 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", unknown_97.InnerXml + ", ", True)
        Next
        Dim unknown_98 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:unknown_98", nsmgr)
        For Each unknown_98 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", unknown_98.InnerXml + ", ", True)
        Next
        Dim unknown_99 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:unknown_99", nsmgr)
        For Each unknown_99 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", unknown_99.InnerXml + ", 0, 0, ", True)
        Next
        Dim unique As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:unique", nsmgr)
        For Each unique In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", unique.InnerXml + ", ", True)
        Next
        Dim setid As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:setid", nsmgr)
        For Each setid In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", setid.InnerXml + ", 0, 0, ", True)
        Next
        Dim unknown_110 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:unknown_110", nsmgr)
        For Each unknown_110 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", unknown_110.InnerXml + ", ", True)
        Next
        Dim startquest As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:startquest", nsmgr)
        For Each startquest In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", startquest.InnerXml + ", ", True)
        Next
        Dim unknown_103 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:unknown_103", nsmgr)
        For Each unknown_103 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", unknown_103.InnerXml + ", ", True)
        Next
        Dim socket_1 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:socket_1", nsmgr)
        For Each socket_1 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", socket_1.InnerXml + ", ", True)
        Next
        Dim socket_2 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:socket_2", nsmgr)
        For Each socket_2 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", socket_2.InnerXml + ", ", True)
        Next
        Dim socket_3 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:socket_3", nsmgr)
        For Each socket_3 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", socket_3.InnerXml + ", ", True)
        Next
        Dim socketbonus As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:socketbonus", nsmgr)
        For Each socketbonus In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", socketbonus.InnerXml + ", ", True)
        Next
        Dim unknown_115 As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:unknown_115", nsmgr)
        For Each unknown_115 In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", unknown_115.InnerXml + ", ", True)
        Next
        Dim gemid As XmlNode
        nodeList = root.SelectNodes("/item:wowitem/item:gemid", nsmgr)
        For Each gemid In nodeList
            My.Computer.FileSystem.WriteAllText("items.sql", gemid.InnerXml + ");", True)
        Next
    End Sub
End Class

Thanks in advance. ^_^

[Image: 33.gif]

^ Click the image to shout in my SigBawx Big Grin ^
Visit this user's website Find all posts by this user
02-23-2007, 08:51 PM
Post: #2
Visual Basic 2005
I can't help here, I have zero knowledge of programming, soz man.
But Ravine will knowWink

Death awaits you..
[Image: sigug3.jpg]
[Image: wowps_admin.gif]
Visit this user's website Find all posts by this user
02-23-2007, 11:46 PM
Post: #3
Visual Basic 2005
Hmm, I was talking to ravvi yesterday... He wasn't quite sure what was going on with it... Oh well, I'll find out eventually. In the meanwhile, I have released the alpha version, with instructions on how to use it. You can also find the source code on X-Nubs.

[Image: 33.gif]

^ Click the image to shout in my SigBawx Big Grin ^
Visit this user's website Find all posts by this user
02-24-2007, 05:21 AM (This post was last modified: 02-24-2007 05:49 AM by »Yama«.)
Post: #4
Visual Basic 2005
Right, I found out that EFBBBF is a BOM header... Now I just need to figure out how to remove it...

EDIT: **** YEAH!!! I FIXED IT!! Turns out that when I was writing to the file, it was using UTF-8 encoding, so I changed it to ASCII and it works perfect ^_^

[Image: 33.gif]

^ Click the image to shout in my SigBawx Big Grin ^
Visit this user's website Find all posts by this user
02-24-2007, 12:41 PM
Post: #5
Visual Basic 2005
ur the bomb yama.. lets hope this wil help us big time...
especially with our next covert project Wink..
stay tuned folks...

[Image: DJRavine_userbar.gif]
[Image: djr_sig.png]
[Image: thedjravine.png]
"In a world of genocide... The pacifist must take control..." - DJRavine
Visit this user's website Find all posts by this user
02-25-2007, 04:38 AM
Post: #6
Visual Basic 2005
Nice work yamaSmile

Im going to lock this and make it sticky, so that people can view it for future reference.

Death awaits you..
[Image: sigug3.jpg]
[Image: wowps_admin.gif]
Visit this user's website Find all posts by this user
02-25-2007, 05:01 AM
Post: #7
Visual Basic 2005
^_^ Yay! I Got Stickied! Xd

[Image: 33.gif]

^ Click the image to shout in my SigBawx Big Grin ^
Visit this user's website Find all posts by this user
Thread Closed 


[-]
Share/Bookmark (Show All)
Facebook Linkedin Technorati Twitter Digg MySpace Delicious

Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  Visual Basic Scripts DJRavine 1 663 09-01-2007 03:03 AM
Last Post: DJRavine
  Lesson 02 - Building a Visual Basic Application DJRavine 1 856 09-01-2007 02:53 AM
Last Post: DJRavine
  Lesson 05 - Managing Visual Basic Data DJRavine 1 787 09-01-2007 02:50 AM
Last Post: DJRavine

Forum Jump:


Contact Us | WoWps.org | Return to Top | Return to Content | Lite (Archive) Mode | RSS Syndication | CSS Validated!