如何删除字符串的内容

telking

一个字符串，需要删除里面的字符（不一定存在有），比如字符串“联想电脑暑期促销报价”，这个有可能是（联想、惠普、华硕、宏碁），目的是将其它品牌名字都替换掉，都换成“广东电脑暑期促销报价”，麻烦写段源码来参考下

[ 本帖最后由 telking 于 2008-6-26 13:51 编辑 ]

顽固不化

Dim $A[5]
$A[1]="联想"
$A[2]="惠普"
$A[3]="华硕"
$A[4]="宏碁"
$newWord="广东"
$OLDSTR="宏碁电脑暑期促销报价"

For $i=1 to UBound($A)-1
        $OLDSTR=StringReplace($OLDSTR,$A[$i],$newWord)
Next

MsgBox(0,"",$OLDSTR)

rho123

呵呵，字符替换。。没仔细看帮助吧。。。

telking

看了帮助，因为要替换的比较多，所以想找到比较简练的代码
如何批量删除指定字符串？

[ 本帖最后由 telking 于 2008-6-25 17:34 编辑 ]

andywth

可以把所有可能需要替换的词语都写在程序里,也可以写在ini里,方便以后删减词语,然后用stringreplace来替换.

对于程序来说没有简便的方法,只有你告诉程序所有的可能性. 电脑永远没有人脑智能哦:)

telking

$avArray = _ArrayCreate("JPM", "Holger", "Jon", "Larry", "Jeremy", "Valik", "Cyberslug", "Nutster", "Tylo", "JdeB")
能不能用数组创建来解决？

netegg

原帖由 telking 于 2008-6-25 18:11 发表
$avArray = _ArrayCreate("JPM", "Holger", "Jon", "Larry", "Jeremy", "Valik", "Cyberslug", "Nutster", "Tylo", "JdeB")
能不能用数组创建来解决？

应该可以
用个for $i in $avArray.....next

auto

二楼是采用数组解决楼主提出的问题

kakinkgb

原帖由 telking 于 2008-6-25 18:11 发表
$avArray = _ArrayCreate("JPM", "Holger", "Jon", "Larry", "Jeremy", "Valik", "Cyberslug", "Nutster", "Tylo", "JdeB")
能不能用数组创建来解决？

_ArrayCreate这是哪来的UDF?

sanhen

这个是旧版的，新版取消了这个函数。