把符串中的一子串替换为另一子串

 

方法一：

Public Function FastReplace(SSrch$, SFind$, SRepl$) As String

 

Dim Src() As Byte, Dst() As Byte, R() As Byte, F() As Byte

Dim LenF&, LenR&, LenDst&, i&, j&, OutPos&

 

Const ChunkSize& = 4096

 

If SSrch = "" Or SFind = "" Then Exit Function

 

Src = SSrch: F = SFind: R = SRepl

LenF = UBound(F): LenR = UBound(R)

LenDst = ChunkSize: ReDim Dst(0 To LenDst - 1)

 

For i = 0 To UBound(Src) Step 2

 

For j = 0 To LenF Step 2

If Src(i + j) <> F(j) Then Exit For

Next j

 

If j > LenF Then Found

 

For j = 0 To LenR Step 2

If OutPos >= LenDst Then

LenDst = LenDst + ChunkSize

ReDim Preserve Dst(0 To LenDst)

End If

Dst(OutPos) = R(j): OutPos = OutPos + 2

Next j

 

i = i + LenF - 1

 

Else

 

If OutPos >= LenDst Then

LenDst = LenDst + ChunkSize

ReDim Preserve Dst(0 To LenDst)

End If

 

Dst(OutPos) = Src(i): OutPos = OutPos + 2

 

End If

Next i

 

ReDim Preserve Dst(0 To OutPos - 2): SSrch = Dst

 

FastReplace = SSrch$

 

End Function

 

方法二：

 SearchLine is input, SearchFor is what to search for, ReplaceWith is the replacement

 

Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)

Dim vSearchLine As String, found As Integer

 

found = InStr(SearchLine, SearchFor): vSearchLine = SearchLine

If found <> 0 Then

vSearchLine = ""

If found > 1 Then vSearchLine = Left(SearchLine, found - 1)

vSearchLine = vSearchLine + ReplaceWith

补充：软件开发 , Vb ,
上一个：把数字转成英文字
下一个：VB中如何实现文本查找功能
更多图片编程知识:

求助调试出现这样的错误提示！

VSFlexGrid 控件设置问题

有懂爱迪尔门锁二次开发的请教

开发了一个自定义的OCX控件，但用的时候错误

高手请进，十万火急

本人封装的一个VB创建多线程的API函数（标准DLL）,很实用,使用方便,欢迎试用、提意见！(首发于VBGOOD)
  
更多VB疑问解答：
vb把图片转换成 base64代码
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果
cloudStack 如何实现 vSphere的DRS功能
和难缠客户的那些事儿
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果