VBS:Как провести замену в строке следующей за найденой?

Смотря что заменить надо. Целиком весь тег

<div class="price fr">420 руб.</div>

или его свойства или содержиое ?

заменить надо только цену(цифры).

я в первом ссобщении написал что например Вот я нашёл строку
<div class="title">Охлаждающий гель после бритья</div>
А как указать что замену надо провести в следующей за ней строке?

Сделал пока только "болванку"

'берем название товара в price_txt и ищем строку с этим товаром в файлах папки 


price_txt = "c:\price.txt"        'файл price
papka = "C:\77777777777\"            'папка поиска


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set file1 = objFSO.OpenTextFile(price_txt, 1, False)


While Not file1.AtEndOfStream
word = file1.ReadLine()               ' считываем строку из price_txt   'искомое слово

RecursiveFolderScan papka

Wend

file1.close
Msgbox "ВСЕ!"



Sub RecursiveFolderScan(FolderPath)
    'Получаем объектную модель текущего каталога
    Set Folder = objFSO.GetFolder(FolderPath)
 
    'Перебираем все файлы в текущем каталоге
    For Each File in Folder.Files
'+++++++++++++++++++++++++++++++++++++++++

Set file2 = objFSO.OpenTextFile(File, 1, False)

Do Until file2.AtEndOfStream
sw = file2.ReadLine()

If InStr(1, sw, word) <> 0 Then    'вот мы нашли нужную строку

'а теперь надо перейти на следующюю строку и сделать в ней замену
                
            End If
        Loop
file2.close

    Next
 
    'Перебираем все подкаталоги в каталоге
    For Each SubFolder in Folder.SubFolders
        RecursiveFolderScan(SubFolder.Path)
    Next
End Sub

Большое спасибо, Rom5, чето вообще ступил что надо просто еще раз прочитать sw = file2.ReadLine()

А где же берется новая цена?   До этого вопроса я еще не дошел
Сейчас решаю как сделать - есть три варианта структуры price.txt
Вариант 1:
Наименование;Стоимость

Вариант 2:
Наименование
Стоимость

Вариант 3
Наименование - в price.txt
Стоимость - в price2.txt

По-моему вариант 2 самый простой: тогда пишем так

If InStr(1, sw, word) <> 0 Then    'вот мы нашли нужную строку
sw = file2.ReadLine()
word = file1.ReadLine() 
               
          

ну и дальше уже выделять цену из строки sw, у лучше и проще наверное строки в price.txt записывать в виде <div class="price fr">420 руб.</div> и делать полную замену строки sw на строку word. Строковая функция Replace(expr, find, replacewith[, start[, count[, compare]]]) для этого подойдет?

Но код-то Вы привели к варианту-3 - с одного файла читаете наименование, а с другого - цену:)

Я считаю самым приемлемым - вариант-1 - разрывать справочник на два файла(вар-3)  либо зависеть от случайного пропуска какой-то строки, что нарушит весь справочник (вар-2) - чревато и неудобно.

-----
В варианте-1: считанную строку разбиваете на массив из двух элементов по разделителю ";" (см. по функцию "Split()" - Split Function ), полученными двумя значениями массива заполнить "Словарь" - см. Dictionary Object.

Таким образом сначала считываем весь справочник цен в память в словарь, удобство которого - удобный поиск наличия ключа - "Exists Method" (в Вашем случае названия продукта, найденного в корректируемом файле) и получение соответствующего значения по ключу "Item Property " (у Вас - новая цена).

ps. а можно вместо текстового файла использовать эксельную таблицу: колонка с наименованием, колонка с ценой. Править ее пользователю удобно т.к. есть поиск и всякие сортировки и прочие полезности, считывать скриптом - тоже (на машине должен быть установлен Офис с Экселем) - примеры есть на форуме, если не найдете - маякуйте адаптирую какой-то свой скрипт для примера.