欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

怎么替换一段字符的指定内容

更新时间: 2014-01-05 01:52:49 责任编辑: Author_N1

 

如何替换一段字符的指定内容?
各位老大,请问如何将下面字符串 指定字符替换?

例如:

str="台湾是中国不可分割的一部份,无论任何时间,我们都要警惕台湾岛内一些滋事分子,台独分子。台湾从古时候就是中国领土的一部分,我们都爱中国,台湾人都是中国人,我很想去台湾游玩,台湾省好漂亮,真是很多很好吃台湾小吃。"


我只希望将 这段 字符 的替换的要求是:

1)这段字符第一个 “台湾” ,替换成 “新疆” 。其他有台湾的字符不变。
2)“台独分子”替换成“疆独分子” 
3) “台湾小吃”替换成 “新疆哈密瓜”

其他全部不变。


这样一来,不知道VBS应该怎么写比较好。 这段只是个例子, 我希望就是,无论任何字符串, 我替换的知识文章开始出现的字符,而不全部替换。 例如一段字符,从一开始到结束出现10个台湾, 我只替换第一个台湾,后面再出现的台湾就不替换了。 能不能实现呢?

谢谢各位?

--参考方法--
js的话,就可以很方便只替换第一个,vbs的话,好象只能用字符串截取组合了,可以这么做

response.write(replaceFirst(str,"台湾","新疆"))

function replaceFirst(html,replaceSource,replaceValue)
 if instr(html,replaceSource)<>0 then
html=left(html,instr(html,replaceSource)-1)&replaceValue&right(html,len(html)-instr(html,replaceSource)-len(replaceSource)+1)
 end if
 replaceFirst=html
end function
--参考方法--
ASP的,(注意顺序不能错,就按如下)

<%
dim str
str="台湾是中国不可分割的一部份,无论任何时间,我们都要警惕台湾岛内一些滋事分子,台独分子。台湾从古时候就是中国领土的一部分,我们都爱中国,台湾人都是中国人,我很想去台湾游玩,台湾省好漂亮,真是很多很好吃台湾小吃。" 
str=replace(str,"台湾小吃","新疆哈密瓜")
str=replace(str,"台独分子","疆独分子")
str=replace(str,"台湾","新疆")

resposne.write "替换结果:<br>" & str
%>


JAVASCRIPT 的,(注意顺序不能错,就按如下)
<script language="javascript" type="text/javascript">
var str;
str="台湾是中国不可分割的一部份,无论任何时间,我们都要警惕台湾岛内一些滋事分子,台独分子。台湾从古时候就是中国领土的一部分,我们都爱中国,台湾人都是中国人,我很想去台湾游玩,台湾省好漂亮,真是很多很好吃台湾小吃。" ;
str=str.replace("台湾小吃","新疆哈密瓜");
str=str.replace("台独分子","疆独分子");
str=str.replace("台湾","新疆");

alert("替换结果:\n"+str);
</script>
--参考方法--
HTML code

<script language="JavaScript">
  var arr=["台湾小吃","台独分子","台湾"];
  var arr1=["新疆哈密瓜","疆独分子","新疆"];

  s="台湾是中国不可分割的一部份,无论任何时间,我们都要警惕台湾岛内一些滋事分子,台独分子。台湾从古时候就是中国领土的一部分,

我们都爱中国,台湾人都是中国人,我很想去台湾游玩,台湾省好漂亮,真是很多很好吃台湾小吃。"


  for (var i=0;i<arr.length;i++){
    s=s.replace(arr[i],arr1[i]);
  }  
  alert(s)
</script>
================================================
<%
  arr = Array("台湾小吃", "台独分子", "台湾")
  arr1 = Array("新疆哈密瓜", "疆独分子", "新疆")

  s = "台湾是中国不可分割的一部份,无论任何时间,我们都要警惕台湾岛内一些滋事分子,台独分子。台湾从古时候就是中国领土的一部分

" _
    & ",我们都爱中国,台湾人都是中国人,我很想去台湾游玩,台湾省好漂亮,真是很多很好吃台湾小吃。"
  
  response.write replaceit(arr, arr1, s)

'替换函数
Function replaceit(ByVal arr, ByVal arr1, ByVal s)
  pos = 0
  For i = 0 To UBound(arr)
    pos = InStr(s, arr(i))
    If pos > 0 Then
      t = pos + Len(arr(i))
      a = Split(s, arr(i))
      s = a(0) & arr1(i) & Mid(s, t, Len(s))
    End If
  Next
  replaceit = s
End Function
%> 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:49
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2455/
本文WWW.DOC100.NET DOC100.NET版权所有。