[技术讨论] 關於濫用正則解析 xml 文件

Set objXmlDom = CreateObject("Microsoft.XMLDOM")
复制代码

# 金额信息合计, 此处 freight 为平台运费     $info->{price}    = $dom->at("td.product-price")->text =~ /([\d\.]+)/ ? $1 : 0;     $info->{freight} = $dom->at("td.shipping-price")->text =~ /([\d\.]+)/ ? $1 : 0;     $info->{adjust}   = $dom->at("td.change-price")->text =~ /([\d\.]+)/ ? $1 : 0;     $info->{discount} = $dom->at("td.discount-price")->text =~ /([\d\.]+)/ ? $1 : 0;     $info->{amount} = $dom->at("td.order-price")->text =~ /([\d\.]+)/ ? $1 : 0;     # 待定     $info->{escrowCom} = $dom->at("td.fee")->text =~ /([\d\.]+)/ ? $1 : 0;     $info->{unionCom} = "-";     $info->{estimate} = $dom->at(".fund-bd td.amount")->text =~ /([\d\.]+)/ ? $1 : 0;

var patt_ZDJY = /任务编号[\:：]?\s*(ZD20\d{14}|ZD20\d{12}|LS\d{11}|)\s*[\|]?[\s\S]*请求服务[\:：]?\s*((?!车架号)\S*|(?!车架号)\S[\s\S]*\S|)\s*车架号[\:：]?\s*([\da-z]{17}|\**[\da-z]{6}|)\s*\S*[\s\S]*车牌号[\:：]?\s*(\S*)\s*车主姓名[\:：]?\s*(\S*)\s*车主电话[\:：]?\s*(1\d{10}|)\s*(?:车辆品牌)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*车型[\:：]?\s*((?!备注)\S*|(?!备注)\S[\s\S]*\S|)\s*(?:备注)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*请求地址[\:：]?\s*([^\s\,，]+(?![,，，])|[^\s\,，][\s\S]*[^\s\,，]|)[,，\s]*位于[\:：]?\s*\S*\s*地址补充[\:：]?\s*(\S*|\S[\s\S]*\S)\s*目的地地址[\:：]?\s*(\S*|\S[\s\S]*\S)\s*目的地补充[\:：]?\s*(\S*|\S[\s\S]*\S)\s*服务商名称[\:：]?\s*(\S*|\S[\s\S]*\S)\s*服务车辆[\:：]?\s*(\S*)\s*服务人员工号[\:：]?\s*(\S*)\s*服务人员电话[\:：]?\s*(1\d{10}|)\s*[\s\S]*服务人员到达事发地[\:：]?\s*(\S*|\S[\s\S]*\S)\s*实拖目的地[\:：]?\s*((?!(?:故障类型|指定子机构))\S*|(?!(?:故障类型|指定子机构))\S[\s\S]*\S|)\s*(?:故障类型)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*(?:故障类型确认)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*(?:指定子机构)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*结算类型[\:：]?\s*(\S*|\S[\s\S]*\S)\s*(?:服务状态)?[\:：]?\s*(\S*|\S[\s\S]*\S)\s*(?:服务是否成功)?[\:：]?\s*(\S*)\s*(?:服务评价)?/i;
复制代码