求一天气预报正则表达匹配,散分! 谢谢!

[deng4437]

参考内容:

福州:今天:10℃～7℃小雨微风。明天:13℃～8℃阵雨微风。福州气象台2010年1月23日星期六早
衡阳:今天:6℃～3℃小雨转阴北风。明天:9℃～5℃阴转小雨北风。衡阳气象台2010年1月23日星期六早
昆山:今天:6℃～0℃晴转多云西风3-4级。明天:10℃～2℃小雨南风3-4级。昆山气象台2010年1月23日星期六早
南京:今天:8℃～0℃多云南风3-4级。明天:10℃～4℃阴转小雨南风3-4级。南京气象台2010年1月23日星期六早
苏州:今天:7℃～0℃晴转多云西北风3-4级。明天:10℃～1℃多云转小雨南风3-4级。苏州气象台2010年1月23日星期六早
南通:今天:5℃～-3℃晴转多云西北风3-4级。明天:10℃～4℃多云转阴西南风3-4级。南通气象台2010年1月23日星期六早
宿迁 宿迁:今天:5℃～-3℃多云西风3-4级。明天:7℃～-1℃多云转阴西南风3-4级。宿迁气象台2010年1月23日星期六早
泰州 泰州:今天:5℃～0℃多云西风3-4级。明天:9℃～3℃多云转小雨西风4-5级。泰州气象台2010年1月23日星期六早
盐城 盐城:今天:4℃～-3℃晴转多云北风3-4级。明天:8℃～0℃多云转阴南风3-4级。盐城气象台2010年1月23日星期六早




类似上面这样的天气预报,已经是现成的了,要求
把风向和天气之间分隔,并加上逗号..呵呵,最后再用replace替换下

实现效果要这样子:
福州:今天:10℃～7℃小雨微风。明天:13℃～8℃阵雨微风。福州气象台2010年1月23日星期六早
福州:今天:10℃～7℃，小雨微风。明天:13℃～8℃，阵雨微风。福州气象台2010年1月23日星期六早
衡阳:今天:6℃～3℃小雨转阴北风。明天:9℃～5℃阴转小雨北风。衡阳气象台2010年1月23日星期六早
衡阳:今天:6℃～3℃小雨转阴，北风。明天:9℃～5℃阴转小雨，北风。衡阳气象台2010年1月23日星期六早
就是要添逗号,以像正常天气预报那样分开度数和天气情况,然后把天气情况和风向那边的信息,再用逗号隔开

难度在于每日天气预报内容不同(但是是结构类似),

自己时间短不想再写大量判断语句了,所以就来这儿请正则高人出山了,嘿嘿

[wcwtitxu]

观望..

[yan11cn]

<%
Dim str,Reg
Set Reg=New RegExp 
Reg.IgnoreCase=True 
Reg.Global=True
reg.Pattern="℃([\u4e00-\u9fa5])"
str="福州:今天:10℃～7℃小雨微风。明天:13℃～8℃阵雨微风。福州气象台2010年1月23日星期六早 </td>"
str=Reg.Replace(str,"℃，$1")
response.write str 
%>

[gingerkang]

小雨微风,小雨和微风中间怎么又不要逗号?

[yan11cn]

上面 少看了个情况 修改了下：

<%
Dim str,reg
Set Reg=New RegExp 
Reg.IgnoreCase=True 
Reg.Global=True
reg.Pattern="(℃)([\u4e00-\u9fa5])"
str="衡阳:今天:6℃～3℃小雨转阴东北风。明天:9℃～5℃阴转小雨偏北风。衡阳气象台2010年1月23日星期六早"
str=Reg.Replace(str,"$1，$2")
reg.Pattern="([\u4e00-\u9fa5]+?)([东|南|西|北|偏])"
str=Reg.Replace(str,"$1，$2")
response.write str
%>

[yan11cn]

既然是提问+散分 楼主能慷慨点不 20分僧多粥少啊

[deng4437]

对,就是要这样的.

yan11cn真细心,都被你想周全了
上海:今天:3℃～11℃，多云转阴，东南风3-4级。明天:6℃～10℃，小雨，东北风4-5级。上海气象台2010年1月23日星期六早

就是天气情况和风向还有度数,之间全用逗号隔开!

刚才傍晚有事,写得太急,都没有仔细检查下!
范例有些都打错了哈~

再次感谢yan11cn!!!

我也想散呢,
最近穷到家了,只出不进..
马上要破产了,嘻嘻

[happy002]

jf，嘿嘿