有关于REPLACE()的简单问题!!

[chhwang]

汉城 多云 0-6度;
马尼拉 多云 23-28度;
河内 多云 18-24度;
曼谷 晴 23-34度;
吉隆坡 阴转雷阵雨 24-33度;
新加坡 雷阵雨转阴 25-31度;
卡拉奇 多云 12-23度;
开罗 晴转多云 8-18度;
莫斯科 小雪转阴 -16--13度;
柏林 小雪转中雪 -7--1度;
法兰克福 雨夹雪 1-5度;
巴黎 阴转小雨 2-6度;
伦敦 中雨 4-9度;
,阿姆斯特丹 多云 -1-11度;
纽约 多云 -1-3度;
旧金山 多云转小雨 4-11度;
悉尼 多云转阵雨 21-25度.
------------------------------
请问我怎么自动把每行的第一个空格改为":"第二个空格改为","然后在一行的最后加一个";"

[chhwang]

首先谢谢bloomdeng(肯),但是现在有个问题,你也看到了,我有很多个城市,需要一一分开啊,你的只能替换一行啊

[睿睿爸爸]

chhwang(浩浩) ，你转转脑子呀，我写的实际是一个function，字符串循环调用就可以了

[chhwang]

to lbd8848(lbd) 你的为什么不行,没有反应啊

[lbd8848]

a="汉城 多云 0-6度;
马尼拉 多云 23-28度;
河内 多云 18-24度;
曼谷 晴 23-34度;
吉隆坡 阴转雷阵雨 24-33度;
新加坡 雷阵雨转阴 25-31度;
卡拉奇 多云 12-23度;
开罗 晴转多云 8-18度;
莫斯科 小雪转阴 -16--13度;
柏林 小雪转中雪 -7--1度;
法兰克福 雨夹雪 1-5度;
巴黎 阴转小雨 2-6度;
伦敦 中雨 4-9度;
,阿姆斯特丹 多云 -1-11度;
纽约 多云 -1-3度;
旧金山 多云转小雨 4-11度;
悉尼 多云转阵雨 21-25度."
a=replace(a,vbcrlf," ")
dim strGroup
strGroup = Split(str," ")
j=0
for i=1 to ubound(strgroup)
if j >= 2 then
str = strGroup(0) & ":" & strGroup(1) & "，" & strGroup(2) & "；"
j=j+1
else
j=0
end if
next
不知行不行

[chhwang]

to bloomdeng(肯),不好意思,小弟愚顿,麻烦写全了,感激不尽

[睿睿爸爸]

脸红，刚才写的时候也没有注意，UBound后面连参数都没有加:p

[睿睿爸爸]

str = "汉城 多云 0-6度"
str = repStr(str)
Function repStr(str)
dim strGroup
strGroup = Split(str," ")
if UBound(strGroup) >= 2 then
repStr = strGroup(0) & ":" & strGroup(1) & "，" & strGroup(2) & "；"
else
repStr = ""
end if
End Function

多字符串在顶上调用部分写循环

[chhwang]

那个倒没事,我给加上了,但是还是个循环的问题,LBD仁兄的还是不行

[lbd8848]

<%
a="汉城 多云 0-6度 马尼拉 多云 23-28度 河内 多云 18-24度 曼谷 晴 23-34度 吉隆坡 阴转雷阵雨 24-33

度 新加坡 雷阵雨转阴 25-31度 卡拉奇 多云 12-23度 开罗 晴转多云 8-18度 莫斯科 小雪转阴 -16--13度

柏林 小雪转中雪 -7--1度 法兰克福 雨夹雪 1-5度 巴黎 阴转小雨 2-6度 伦敦 中雨 4-9度 阿姆斯特丹 多云

-1-11度 纽约 多云 -1-3度 旧金山 多云转小雨 4-11度 悉尼 多云转阵雨 21-25度 "
a=replace(a,vbcrlf," ")
dim strGroup
strGroup = Split(a," ")
j=0
for i=0 to ubound(strgroup)-1 step 3
if j <= 3 then
str =str & strGroup(i) & ":" & strGroup(i+1) & "，" & strGroup(i+2) & "；<br>"
j=j+1
else
j=0
end if
next
response.write str
%>
这样才行,不过跟你那个有点不同了

[cloudchen]

用正则，很容易解决

<SCRIPT LANGUAGE="VBScript">
str = "汉城 多云 0-6度;"

alert "原来的:" &vbcrlf &vbcrlf & str &vbcrlf &vbcrlf&vbcrlf&vbcrlf& "替换的:" &vbcrlf &vbcrlf & reg_replace("^([^ ]*)( )([^ ]*)( )(.*)$","$1:$3,$5;",str)

function reg_replace(patrn,replacement,strng)
Dim regEx,ReplacedText
Set regEx = New regExp
regEx.Pattern = patrn
regEx.IgnoreCase = False
regEx.Global = False
ReplacedText = regEx.Replace(strng,replacement)
Set regEx = nothing
reg_replace = ReplacedText
end function
</SCRIPT>

[cloudchen]

js有m这个选项，vbs没有，不知道怎么解决，如果分行是<br>vbs到好解决
js简单多了


<SCRIPT LANGUAGE="JavaScript">
var str ="";
str += "汉城 多云 0-6度;\n"
str += "马尼拉 多云 23-28度;\n"
str += "河内 多云 18-24度;\n"
str += "曼谷 晴 23-34度;\n"
str += "吉隆坡 阴转雷阵雨 24-33度;\n"
str += "新加坡 雷阵雨转阴 25-31度;\n"
str += "卡拉奇 多云 12-23度;\n"
str += "开罗 晴转多云 8-18度;\n"
str += "莫斯科 小雪转阴 -16--13度;\n"
str += "柏林 小雪转中雪 -7--1度;\n"
str += "法兰克福 雨夹雪 1-5度;\n"
str += "巴黎 阴转小雨 2-6度;\n"
str += "伦敦 中雨 4-9度;\n"
str += ",阿姆斯特丹 多云 -1-11度;\n"
str += "纽约 多云 -1-3度;\n"
str += "旧金山 多云转小雨 4-11度;\n"
str += "悉尼 多云转阵雨 21-25度.\n"

alert(str.replace(/^([^ ]*)( )([^ ]*)( )(.*)$/gm,"$1:$3,$5;"))
</SCRIPT>

[chhwang]

楼上的都是对单行进行处理,那我需要的是对每行进行处理,显然问题是在这
to cloudchen(陈系上.net) 希望高手给个好点的处理方法,最好用VBS,因为我想在VB里用的时候有所借鉴.,谢谢
to lbd8848(lbd) 希望再想想办法,不吝赐教

[cloudchen]

好了，匹配出来换行回车了

<SCRIPT LANGUAGE="VBScript">
str = str & "汉城 多云 0-6度;" & vbcrlf
str = str & "马尼拉 多云 23-28度;" & vbcrlf
str = str & "河内 多云 18-24度;" & vbcrlf
str = str & "曼谷 晴 23-34度;" & vbcrlf
str = str & "吉隆坡 阴转雷阵雨 24-33度;" & vbcrlf
str = str & "新加坡 雷阵雨转阴 25-31度;" & vbcrlf
str = str & "卡拉奇 多云 12-23度;" & vbcrlf
str = str & "开罗 晴转多云 8-18度;" & vbcrlf
str = str & "莫斯科 小雪转阴 -16--13度;" & vbcrlf
str = str & "柏林 小雪转中雪 -7--1度;" & vbcrlf
str = str & "法兰克福 雨夹雪 1-5度;" & vbcrlf
str = str & "巴黎 阴转小雨 2-6度;" & vbcrlf
str = str & "伦敦 中雨 4-9度;" & vbcrlf
str = str & ",阿姆斯特丹 多云 -1-11度;" & vbcrlf
str = str & "纽约 多云 -1-3度;" & vbcrlf
str = str & "旧金山 多云转小雨 4-11度;" & vbcrlf
str = str & "悉尼 多云转阵雨 21-25度." & vbcrlf

alert reg_replace_all("([^ ]*)( )([^ ]*)( )(.*)(\r\n)","$1:$3,$5;$6",str)

function reg_replace_all(patrn,replacement,strng)
Dim regEx,ReplacedText
Set regEx = New regExp
regEx.Pattern = patrn
regEx.IgnoreCase = False
regEx.Global = True
ReplacedText = regEx.Replace(strng,replacement)
Set regEx = nothing
reg_replace_all = ReplacedText
end function
</SCRIPT>

[angel2a]

呵呵，8过格式要固定的
8然出错

[yinghuafeiwushi]

<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<BODY>
<%
a="汉城 多云 0-6度 马尼拉 多云 23-28度 河内 多云 18-24度 曼谷 晴 23-34度 吉隆坡 阴转雷阵雨 24-33 度 新加坡 雷阵雨转阴 25-31度 卡拉奇 多云 12-23度 开罗 晴转多云 8-18度 莫斯科 小雪转阴 -16--13度 柏林 小雪转中雪 -7--1度 法兰克福 雨夹雪 1-5度 巴黎 阴转小雨 2-6度 伦敦 中雨 4-9度 阿姆斯特丹 多云 -1-11度 纽约 多云 -1-3度 旧金山 多云转小雨 4-11度 悉尼 多云转阵雨 21-25度 "
a=replace(a,vbcrlf," ")
dim strGroup
strGroup = Split(a," ")
j=0
for i=0 to ubound(strgroup)-3 step 3
if j <= 3 then
str =str & strGroup(i) & ":" & strGroup(i+1) & "，" & strGroup(i+2) & "；</br>"
j=j+1
else
j=0
end if
next
response.write str%>

</BODY>
</HTML>
存成.asp,运行就可以通过了

[chhwang]

不好意思,我想还是都没能解决问题,我再说明白点,上述要修改的内容是我从一文本中读出来的,那么肯定的我在处理时是先粘贴进一个TEXTAREA中,所以,我不可能在代码中像各位那样一个个给每行处理,而是要程序自动识别然后处理区别每个分行,我现在要解决的就是怎么把内容自动分行.再次谢谢各位高手....

[lbd8848]

<%
a=request.form("传过来的内容")
a=replace(a,vbcrlf," ")
dim strGroup
strGroup = Split(a," ")
j=0
for i=0 to ubound(strgroup)-1 step 3
if j <= 3 then
str =str & strGroup(i) & ":" & strGroup(i+1) & "，" & strGroup(i+2) & "；<br/>"
j=j+1
else
j=0
end if
next
response.write str
%>
这样行不行

[chhwang]

这样是行的,这个我知道,但是我像知道能不能把TEXTAREA中传过来的内容给他自动分行,这样的话就可以统一的用一下,而不是像你的程序中用的STEP了

[jxy004]

学习！

[cloudchen]

我的就是你要的结果，str变量的值可以来自一个文本文件