一个VBS问题 ' VBScript sample using Windows Script HostSet Wshell=WScript.CreateObject(\"WScript.Shell\")Set Fsys=WScript.CreateObject(\"Scripting.FileSystemObject\")Set AppStream=Fsys.OpenTextFile(\"DATA.TXT\",1,False)Do While AppStream.AtEndOfStream<;>;Trueline=Split(Trim(AppStream.ReadLine))If Ubound(line)=2 ThenIf Instr(msg,line(1))Then'compare goodsmsg=Replace(msg,line(1),line(1)&\"\"&line(0)&\"\"&line(2))Elsemsg=msg&line(1)&\"\"&line(0)&\"\"&line(2)&vbCrLfEnd IfEnd IfLoopAppStream.Closefish=Split(msg,vbCrLf)'fish place pricemsg=\"For i=0 To Ubound(fish)max=0:min=65535price=Split(fish(i))If Ubound(price)>;0 ThenFor j=2 To Ubound(price)Step 2If CSng(price(j))>;max Thenmax=CSng(price(j))maxp=price(j-1)&\"\"&price(j)End IfIf CSng(price(j))min=CSng(price(j))minp=price(j-1)&\"\"&price(j)End IfNextmsg=msg&price(0)&\":\"&vbCrLf&\"最低价:\"&minp&vbCrLf&\"最高价:\"&maxp&vbCrLf&vbCrLfEnd IfNextSet AppStream=Fsys.OpenTextFile(\"OUT.TXT\",8,True)AppStream.Write msgAppStream.Close
红尊鱼的价格大概多少钱一公斤 各地不一样,不过都在40元左右。虹鳟鱼价格北京八里桥42元/公斤10-22虹鳟鱼价格新疆北园春30元/公斤10-22虹鳟鱼价格北京新发地39元/公斤10-22虹鳟鱼价格山西大同市40元/公斤10-22虹鳟鱼价格湖南永州市38元/公斤10-22虹鳟鱼价格江苏镇江市39元/公斤10-22虹鳟鱼价格重庆开县39元/公斤10-22虹鳟鱼价格重庆涪陵区39元/公斤10-22虹鳟鱼价格广东东莞市40元/公斤10-22虹鳟鱼价格广东潮州市40元/公斤10-22虹鳟鱼价格上海崇明区41元/公斤10-22虹鳟鱼价格天津宝坻区39元/公斤10-22虹鳟鱼价格云南玉溪市39元/公斤10-22虹鳟鱼价格上海闵行区36元/公斤10-22虹鳟鱼价格云南曲靖市41元/公斤10-22虹鳟鱼价格天津塘沽区38元/公斤10-22虹鳟鱼价格湖北武汉市41元/公斤10-22虹鳟鱼价格贵州黔南布依族苗族自治州38元/公斤10-22虹鳟鱼价格吉林四平市38元/公斤10-22虹鳟鱼价格河南驻马店40元/公斤10-22
北京有什么郊游的好去处吗? 北京周边,有一座美丽的山水小镇-#古北水镇。恰逢一年一度【红叶祭】,望京街的红叶祭市集,国内 级汉…