10QB求购电脑配置单计算脚本-『脚本交易』-AUTOIT CN

mdxaux 发表于 2011-11-14 09:27:35

需要源程序学习的请看这里：http://www.autoitx.com/forum.php?mod=viewthread&tid=28702

5209520 发表于 2011-11-16 09:28:07

RE: 10QB求购电脑配置单计算脚本

mdxaux已经解决

5209520 发表于 2011-11-16 09:37:21

晕死提示这个：您的主题售价扣除积分交易税后为 0,请返回修改

35888894 发表于 2011-11-16 13:47:13

写了几个函数可以实现
;查询主流价格
Func SearchItemPrice($word)
Local $aryv
Local $gryup=AnsiURLEncode($word)
$res=InetGet("http://s.etao.com/search?q="&$gryup&"&sort=sale-desc",@TempDir&"\112233.txt",1+2+4+8+16)
InetClose($res)
Local $filenr=FileRead(@TempDir&"\112233.txt")
Local $seller=QUZJDX($filenr,'<div class="seller-name">','</div>')
Local $price=StringReplace(QUZJDX($filenr,'<li class="price">','</em>'),"<em>","")
$price223=StringRegExp($price,"(\d+\.\d{2})",3)
If UBound($price223)>0 Then $price=$price223
If StringInStr($seller,'charset="gbk"')>0 Then
$aryv="互联网"
Else
$aryv=$seller
EndIf
If Not StringRegExp($price,"\d+\.\d{2}") Then
$aryv="没有找到"
$aryv="没有找到"
Else
$aryv="￥"&$price
EndIf
If StringInStr($filenr,"抱歉，没有找到")>0 Then
$aryv="没有找到"
$aryv="没有找到"
EndIf
Return $aryv
EndFunc

;截取项目中间的字符串
Func QUZJDX($stringc,$sstring,$estring,$cs=1)
Local $start=StringInStr($stringc,$sstring,1,$cs)+StringLen($sstring)
Local $end=StringInStr($stringc,$estring,0,1,$start)
If $end-$start<=0 Then Return ""
Return StringStripWS(StringMid($stringc,$start,$end-$start),3)
EndFunc

;转换UTF编码
Func AnsiURLEncode($str, $falg = 0)
   ;可选参数$falg = 0，不转换字母及数字(默认)；$falg = 1，全部转换(字符头http://除外)
   Local $str_s = StringRegExpReplace($str, '^(http://).+', '$1')
   If @extended = 0 Then $str_s = ''
   If @extended > 0 Then $str = StringRegExpReplace($str, '^http://', '')
   Local $astr, $i, $s2d, $sS = StringSplit($str, '')
   For $i = 1 To UBound($sS) - 1
            If StringRegExp($sS[$i], '[^\x00-\xff]') Then
                     $s2d = StringToBinary($sS[$i] & ' ')
                     $astr &= '%' & StringMid($s2d, 3, 2) & '%' & StringMid($s2d, 5, 2)
            ElseIf StringRegExp($sS[$i], '[^\w]') Then
                     $s2d = StringToBinary($sS[$i])
                     $astr &= '%' & StringMid($s2d, 3, 2)
            Else
                     If $falg = 0 Then $astr &= $sS[$i]
                     If $falg <> 0 Then
                           $s2d = StringToBinary($sS[$i])
                           $astr &= '%' & StringMid($s2d, 3, 2)
                     EndIf
            EndIf
   Next
   $astr = StringReplace($astr, '%20', '+') ;转换空格的编码为'+'号，也可不要此行
   Return $str_s & $astr
EndFunc

sxs2 发表于 2011-11-16 15:26:12

好东东支持楼主一下

nivisde 发表于 2011-11-19 06:30:25

不是吧？既然能用C#做出界面了，竟然连基本的算术流程都不能搞定？

colin2021 发表于 2011-11-21 17:03:12

好東西，感謝樓主分享！

fqvip1 发表于 2011-11-25 02:37:00

谢谢下载看看一下~~

mshuking 发表于 2014-11-30 11:50:04

回复 25# mdxaux

可以用吗，下载试下谢谢分享

页: 1 2 [3]

AUTOIT CN's Archiver

RE: 10QB求购电脑配置单计算脚本