Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Nov 6, 1998



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Place a Variable-Length String in Text

VB doesn't have a function to replace part of a string (of n-length) with another string (of x-length). The Mid() statement works only with target and replacement strings of the same length. Use this code to solve the problem:

 Function ReplaceText( _
	ByVal sOriginalString As String, _
	ByVal sTargetString As String, _
	ByVal sReplacement As String) As String
	Dim iOriginalLen As Integer
	Dim iTargetLen As Integer
	Dim iReplaceLen As Integer
	Dim iTargetLoc As Integer
	iOriginalLen = Len(sOriginalString)
	iTargetLen = Len(sTargetString)
	iReplaceLen = Len(sReplacement)
	If (iTargetLen = 0) Or (iOriginalLen = 0) Or _
		(iReplaceLen = 0) Then
		ReplaceText = sOriginalString 
'Improper use of function.
		iTargetLoc = InStr(sOriginalString, sTargetString)
		ReplaceText = Iif( iTargetLoc = 0, sOriginalString, _ 
			Left(sOriginalString, iTargetLoc - _
			1) & sReplacement & Right( _
			sOriginalString, iOriginalLen - _
			iTargetLoc iTargetLen + 1) )
	End If
End Function
Bruce Goldstein
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date