字符串操作 - 用给定的限制替换字符串

Question

我想通过指定起始位置和结束位置来替换给定字符串的字符串。

例如：

var1 = "REPLACE THIS IS STRING SAMPLE TEXT"
var2 = "REWRITE"

在var1中，用var2

替换位置1到8中的字符串

确实有任何帮助......

谢谢：））

Answer 1

试试这个

var1 = Replace(var1, Mid(var1, 1, 8), var2)

Answer 2

你可以这样做：

var1 = "REPLACE THIS IS STRING SAMPLE TEXT"
var2 = "REWRITE"

Dim str As String

str = Mid(var1, 8, Len(var1))
str = var2 & str

Answer 3

Mid非常有趣。

Sub MidDemo()
var1 = "REPLACE THIS IS STRING SAMPLE TEXT"
var2 = "REWRITE"

Mid(var1, 1, 8) = var2
Debug.Print var1
''Result: REWRITE THIS IS STRING SAMPLE TEXT
End Sub