Как заменить в определенной позиции в строке, используя VBA

Question

Я бы заменил одно значение в строке текстового файла.
Если я попытаюсь заменить это значение методом Replace, все те же значения будут заменены.
Я просто хочу заменить один в определенной позиции в строке.

пример
00, 0, 0 => 00, 1, 0 (ОК)
00, 0, 0 => 11, 1, 1 (не)

заранее спасибо

Answer 1

Гера это 4 разных способа заменить 0 на 1 . Но в вашем случае можно использовать только два.

1. WorksheetFunction.Заменить ()

   WorksheetFunction.Replace( old_text, start, number_of_chars, new_text )

2. WorksheetFunction.Замена()

   WorksheetFunction.Substitute(text, oldtext, newtext, [nth_appearance] )

3. Заменить ()

   Replace( Expression, Find, Replace, [Start, [Count, [Compare]]] )

4. Спектр.Заменить ()

   Range.Replace( What, Replacement, [LookAt], [SearchOrder], [MatchCase], [SearchFormat], [ReplaceFormat] )

Input        VBA code                                      Output

Answer 2

Большое спасибо за ответ.
Я разработал с использованием функции разделения и соединения.

Код:

Dim Arr() As String
Arr = Split("00, 0, 0", ",")
Arr(1) = "1"
newLine = Join(Arr, ",") 'Становится "00, 1, 0"