Mapbasic 字符串查找替换函数

<P>这段时间正在使用MapInfo和Mapbasic在做一个规划设计，发现Mapbasic竟然没有字符串替换函数，只好自己编了一个，现在贴出来与大家共享。</P>
<DIV class=quote>
<P>Function StrReplace(ByVal Str1 As String, ByVal Str2 As String, ByVal Str3 As String) As String<BR>Dim Str1Len, Str2Len, Str3Len, n, k As Integer<BR>Dim Str0, StrL, StrR As String<BR> Str1Len = Len(Str1)<BR> Str2Len = Len(Str2)<BR> Str3Len = Len(Str3)<BR> Str0 = Str1<BR> n = 1<BR> k = InStr(n, Str1, Str2)<BR> Do While k > 0<BR>  StrL = Left$(Str0, k - 1)<BR>  StrR = Right$(Str0, Str1Len - k + 1 - Str2Len)<BR>  Str0 = StrL ; Str3 ; StrR<BR>  Str1Len = Str1Len - Str2Len + Str3Len<BR>  n = k - Str2Len + Str3Len + 1<BR>  k = InStr(n, Str0, Str2)<BR> Loop<BR> StrReplace = Str0<BR>End Function</P></DIV>

<P>不错</P>
<P>多谢分享！！</P>