您的位置：程序门 -> vb -> 基础类

弱智问题，汗...

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

弱智问题，汗...[已结贴,结贴人:sudeping_ok]

发表于：2007-03-08 18:26:52 楼主

有字符串
abc*860*er5*wer123*ertqo
现需要把字符串中所有的 "* "转换为 "& "即得到
abc&860&er5&wer123&ertqo
怎么办？

发表于：2007-03-08 18:28:111楼得分:0

replace

发表于：2007-03-08 18:29:412楼得分:0

能否详细点

发表于：2007-03-08 18:35:363楼得分:10

刚才那边不是已经写了

dim s as string
s = "abcq***enqe**&ewsx*（&*3asdf34&312&&*** "
dim reg as object
set reg = createobject（ "vbscript.regexp ")
reg.pattern = "[!&\*] "
reg.ignorecase = true
reg.multiline = true
reg.global = true
msgbox reg.replace（s, " ")
reg.pattern = "[&\*] "
msgbox reg.ＥＸＥＣute（s).count

发表于：2007-03-08 21:55:484楼得分:10

replace （ "abc*860*er5*wer123*ertqo "，“*”，“& ")

其他资讯