Манипулирование строкой - замена строки с заданным пределом

Question

Я хочу заменить строку заданной строкой, указав начальную и конечную позицию.

например:

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

В var1 заменить строку в позициях от 1 до 8 на var2

Любая помощь действительно ...

Спасибо :))

Answer 1

попробуйте

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

Answer 2

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

Answer 3

Вы можете сделать:

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

Dim str As String

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