543961534 543961534
关注数: 62 粉丝数: 93 发帖数: 2,598 关注贴吧数: 7
技术帖,你们的顶啊 '创建XML文档,常见完成后必须注销 'set aa=new myxml 'aa.xmlcreate() wind= inputbox("操作类型:"&Chr(13)&"1=添加"&Chr(13)&"2=计算","EVE生产计算工具") if wind=1 then while wind<>"" wind= inputbox("添加操作:"&Chr(13)&"添加格式:名称、XML路径、成本、买价、卖价、生产时间、生产时间、数量、材料列表(用,分割数量)","EVE生产计算工具添加") set aa=new matter aa.matteradd wind set aa=nothing wend else wind= inputbox("生产计算:"&Chr(13)&"请输入物品名称"&Chr(13)&"不输入为全部计算!") end if class matter public mattername,matterbuy,mattersell,matterxml'名称,卖价,买价,物价查询地址 publicreturnsell,returnbuy,producetime,cost'卖单日利润,买单日利润,生产时间(秒),成本(卖价成本) public matterlist ,listobj() ,mattercostbuy,mattercostsell '材料列表,材料对象,采购价,收购价 'matterxml = http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.ceve-market.org%2Fapi%2Fmarket%2Ftype%2F34.xml&urlrefer=94456a0dbaffebf29214500428c942f1 Private Sub Class_Initialize()'类创建初始化,无参数 end sub public function mattercreate(strmattername)'真正的初始化物品名称 mattername=strmattername set a=new myxml '取得初始值 a.matterbuy=a.xmlget(mattername,"matterbuy") a.mattersell=a.xmlget(mattername,"mattersell") a.producetime=a.xmlget(mattername,"producetime") a.matterlist1=a.xmlget(mattername,"matterlist") a.matterxml=a.xmlget(mattername,matterxml)'拼接价格访问字符串 a.matterxml="http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.ceve-market.org%2Fapi%2Fmarket%2Fregion%2F10000002%2Ftype%2F&urlrefer=7b5d7cf79d27be34cf92fa073095bdbb"&matterxml&".xml" a.setxmlpath(a.matterxml) buy=a.xmlget("buy","max") sell=a.xmlget("sell","min") if buy>0then a.matterbuy=buy a.xmlrevise mattername,"matterbuy",matterbuy'更新价格 end if if sell>0then a.mattersell=sell a.xmlrevise mattername,"mattersell",mattersell end if '递归材料核算成本 a.cost=0 matterlist =split(matterlist1,",")'得到材料列表 a.listnu=ubond(matterlist) dim k for i=0 to listnu step 2'创建材料列表对象 set k =new matter k.mattername=a.matterlist(i) k.mattercreate(k.mattername) a.cost=cost+k.matterbuy*matterlist(i+1)'核算成本 j=j+1 next '日利润核算 a.returnsell=(mattersell-a.cost)*3600*24/producetime a.returnbuy=(matterbuy-a.cost)*3600*24/producetime if a.returnbuy>30000000 then'日利润大于3000万 end if if a.returnbuy < 10000000 then '日利润小于1000万 end if end function public function matteradd(mattername,matterxml,matterprice,matterbuy,mattersell,producetime,produceno,matterlist)'添加物品资料 '名称、XML路径、成本、买价,卖价,生产时间,数量,材料列表(用,分割) set a=new myxml a.xmladd mattername,matterxml,cost,matterbuy,mattersell,producetime,produceno,matterlist end function Private Sub class_terminate()'这里是类注销的时候自动执行的代码,无参数 end Sub end class class myxml public xmlpath,xmlrootname,xmlDoc, rootE1,p Private Sub Class_Initialize()'类创建初始化,无参数 xmlpath="d:\matter.xml" xmlrootname="matterdata" end sub Private Sub class_terminate()'这里是类注销的时候自动执行的代码,无参数 set xmldoc =nothing end Sub public function setxmlpath(strpath) xmlpath=strpath end function public function xmlcreate() xmlpath="d:\matter.xml" Set xmlDoc = CreateObject("MicroSoft.XMLDom") '创建XML对象,覆盖前XML文档 '创建根元素并将之加入文档 Set rootE1=xmlDoc.createElement(xmlrootname)'根节点 xmlDoc.appendChild rootE1 'rootE1.appendChild bookchild1 '创建 XML processing instruction,并把它加到根元素之前 Set p=xmlDoc.createProcessingInstruction("xml","version='1.0'") xmlDoc.insertBefore p,xmlDoc.childNodes(0) xmlDoc.Save xmlpath'把文件保存到D目录 set p =nothing set rootE1 =nothing set xmlDoc =nothing end function public function xmladd(mattername,matterxml,cost,matterbuy,mattersell,producetime,produceno,matterlist) '名称、路径、成本、买价,卖价,生产时间,数量,材料列表(用,分割) Set xmlDoc = CreateObject("MicroSoft.XMLDom") '创建XML对象 xmlDoc.Load(xmlpath) Set rootE1=xmlDoc.createElement(xmlrootname)'根节点 set rootE1=xmlDoc.documentElement.SelectSingleNode("//"&xmlrootname)'查找节点 Set bookchild1=xmlDoc.createElement(mattername)'创建物品节点 Set ISDNAttribute=xmlDoc.createAttribute("mattername")'物品节点属性 ISDNAttribute.text=mattername'物品节点属性赋值 bookchild1.setAttributeNode ISDNAttribute'添加新属性 rootE1.appendChild bookchild1'物添加属性 '创建子节点 Set bookchild2=xmlDoc.createElement("matterxml") bookchild2.text=matterxml bookchild1.appendChild bookchild2 Set bookchild2=xmlDoc.createElement("cost")'成本节点 bookchild2.text=cost'价格节点属性赋值 bookchild1.appendChild bookchild2'添加子节点到节点 Set bookchild2=xmlDoc.createElement("matterbuy")'买价节点 bookchild2.text=matterbuy'价格节点属性赋值 bookchild1.appendChild bookchild2'添加子节点到节点 Set bookchild2=xmlDoc.createElement("mattersell")'卖价节点 bookchild2.text=mattersell'价格节点属性赋值 bookchild1.appendChild bookchild2'添加子节点到节点 Set bookchild2=xmlDoc.createElement("producetime") bookchild2.text=producetime bookchild1.appendChild bookchild2 Set bookchild2=xmlDoc.createElement("produceno") bookchild2.text=produceno bookchild1.appendChild bookchild2 Set bookchild2=xmlDoc.createElement("matterlist") bookchild2.text=matterlist bookchild1.appendChild bookchild2 rootE1.appendChild bookchild1 xmlDoc.Save xmlpath'把文件保存到D目录 set xmlDoc = nothing end function public function xmlrevise(mattername,matterdataname,matterdatavalue)'修改 Set xmlDoc = CreateObject("MicroSoft.XMLDom") '创建XML对象 xmlDoc.Load(xmlpath) set z=xmlDoc.getElementsByTagName(mattername)(0)'取得物品节点 set y=z.getElementsByTagName(matterdataname)(0) y.Text=matterdatavalue'修改节点值 xmlDoc.Save xmlpath'把文件保存到D目录 set xmlDoc = nothing end function public function xmlget(mattername,matterdataname)'节点值 Set xmlDoc = CreateObject("MicroSoft.XMLDom") '创建XML对象 xmlDoc.Load(xmlpath) set z=xmlDoc.getElementsByTagName(mattername)(0)'取得物品节点 set y=z.getElementsByTagName(matterdataname)(0) xmlget=y.text end function end class
新人必学技能一览表 导航学 (其他技能为发展进阶技能,看个人需要学习) 导航学 (初期4,后期5,T3前置) 高速机动理论 (初期3,后期4、5) 规避机动理论 (初期4,后期5,截击前置) 加力燃烧器原理 (初期3,后期4、5) 加速控制理论 (初期3,后期4、5) 燃料节约技术 (初期3,后期4、5)电子学 (其他技能为发展进阶、PVP技能,看个人需要学习) 电子升级研究 (初期3,后期4、5) 电子学 (初期4,后期5,T3前置技能) 电子战理论 (初期3,后期4、5) 目标锁定训练 (初期3,后期4、5) 信号分析学 (初期3,后期4、5) 诱导力场理论研究 (初期1,给旗舰诱导用,00辅助队友技能) 远距锁定研究 (初期3,后期4、5)飞船操控 (根据个人专精方向学习) 飞船操控学 (初期3,后期4、5,高飞前置技能) 高级飞船操控学 (旗舰前置技能)工程学 (盾抗系技能,甲抗可以先不学) 工程学 (初期4,后期5,T3前置) 电磁、爆炸、动能、热能护盾补偿 (初期3,后期4、5) 护盾补偿 (初期3,后期4、5,盾抗前期4) 护盾操作 (初期3,后期4、5,盾抗前期4) 护盾管理 (初期3,后期4、5,盾抗前期4) 护盾频散系统 (遥修盾技能,看个人小队情况选修) 护盾提升 (初期3,后期4、5,盾抗前期4) 能量散发系统 (初期3,后期4、5,毁、吸、传电前置技能) 能源栅格提升 (初期3,后期4、5,盾抗前期4,重突、掠夺前置技能) 能源管理 (初期4,后期5,回电相关技能) 能源系统操作 (初期4,后期5,回电相关技能) 战术护盾操控 (初期3,后期4、5,盾抗前期4)机械学 (甲抗系技能,盾抗可以先不学) 船体加固 (5,PVP党神器T2损控) 机械学 (初期4,后期5,T3前置) 打捞回收 (初期3,后期4、5) 电磁、热能、动能、爆炸装甲补偿 (初期3,后期4、5) 构建改装 (初期3,后期4、5) 纳米操作技术 (初期3,后期4、5,超载技能) 维修系统理论 (初期3,后期4、5,甲修技能) 远程装甲维修系统研究 (初期3,后期4、5,遥修甲技能) 装甲蜂窝化理论 (初期3,后期4) 装甲抗性定向理论 (初期1,后期3)关系学 (任务党必备,其他人士可无视) 犯罪关系学 (初期3,后期4、5) 关系学 (初期3,后期4、5) 社会学 (初期3,后期4、5) 谈判技巧 (初期3,后期4、5) 外交学 (初期3,后期4、5)射击学 (其他根据个人专精方向学习,以出T2武器为止,导弹党无视武器升级和高级武器升级外的技能) 弹道分析 (初期4,后期5) 射击学 (初期3,后期5,T3前置) 武器升级研究 (初期4,后期5) 高级武器升级研究 (初期4,后期5) 高速设计理论 (初期4,后期5) 轨迹预算学 (初期4,后期5) 精确设计理论 (初期4,后期5) 受控点射理论 (初期4,后期5,M打炮不要电可以不学) 外科手术打击理论 (初期4,后期5)无人机 (技能根据个人喜好看是否5) 各族无人机专业研究 (前期2,后期随意) 电子战无人机控制 (初期3,后期随意,出中电子战无人机) 无人机导航 (初期3,后期4、5) 无人机器概论 5 无人机精确设计 (初期3,后期4、5) 无人机器控制理论 (初期3,后期4、5,无人机党必须5) 无人机效能研究 (初期3,后期4、5) 无人机战斗操控 (初期3,后期4、5) 无人机侦查理论 (初期3,后期4、5,5为出T2轻中型无人机前置技能,无人党必须5) 岗哨无人机操控理论 (初期3,后期4、5,无人机党必须5) 导弹技能 (其他导弹技能根据自身方向确定,专精为出T2架子)导弹打击概论 (巡航可不学,其他的4,鱼雷必须5) 导弹动力学 (巡航可不学,其他的4,鱼雷必须5) 导弹发射器操作 (前期4,后期5) 导弹发射效率 (前期4,后期5) 目标导航预测学 (前期3,后期4、5) 战斗部升级研究 (前期4,后期5) 制导导弹精确打击理论 (前期4,后期5)
1 下一页