string操作 – 用给定的限制replacestring

我想通过指定开始和结束位置来replace给定string的string。

例如：

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

在var1中用var2replace位置1到8中的string

任何帮助确实…

谢谢 ：））

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