一些常见函数的用法

描述
返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression,   find,   replacewith[,   compare[,   count[,   start]]])
Replace   函数的语法有以下参数：

参数   描述  
expression   必选。字符串表达式，包含要替换的子字符串。    
find   必选。被搜索的子字符串。  
replacewith   必选。用于替换的子字符串。  
start   可选。expression   中开始搜索子字符串的位置。如果省略，默认值为   1。  
count   可选。执行子字符串替换的数目。如果省略，默认值为   -1，表示进行所有可能的替换。  
compare   可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。  

设置
compare   参数可以有以下值：
常数   值   描述  
vbBinaryCompare   0   执行二进制比较。  
vbTextCompare   1   执行文本比较。  
vbDatabaseCompare   2   执行基于数据库（在此数据库中执行比较）中包含的信息的比较。  

返回值
Replace   返回以下值：
如果   Replace   返回  
expression   为零长度   零长度字符串   ( " ")。  
expression   为   Null   错误。  
find   为零长度   expression   的副本。  
replacewith   为零长度   expression   的副本，其中删除了所有由   find   参数指定的内容。  
start   >   Len(expression)   零长度字符串。  
count   为   0   expression   的副本。  

说明
Replace   函数的返回值是经过替换（从由   start   指定的位置开始到   expression   字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。
用法：传回字符串   =   Replace(被取代字符串,   要找的字符串,   取代成的字符串,   开始位置,   取代几组)  

Private   Sub   Command1_Click()  
Dim   MyStr   As   String  
MyStr   =   "1234567890123456789012345678901234567890 "  
Print   Replace(MyStr,   "90 ",   "九零 ")  
End   Sub
●输出结果： "12345678九零12345678九零12345678九零12345678九零 "  
　  

Private   Sub   Command1_Click()  
Dim   MyStr   As   String  
MyStr   =   "1234567890123456789012345678901234567890 "  
Print   Replace(MyStr,   "90 ",   "九零 ",   11,   2)  
End   Sub
●输出结果： "123456789012345678九零12345678九零1234567890 "
Dim   MyString

'二进制比较从字符串左端开始。返回   "XXYXXPXXY "。
MyString   =   Replace( "XXpXXPXXp ",   "p ",   "Y ")  

'文本比较从第三个字符开始。返回   "YXXYXXY "。
MyString   =   Replace( "XXpXXPXXp ",   "p ",   "Y ",   3,   -1,   1)