Ускорить обработку строки, с использованием InStr

[valerij]

Сообщение от alvazor

Для любопытствующих
Но ошибки по памяти не происходит!?

Затрачено - 35,3 сек, ошибок, НЕТ.
Запускал три раза

[motorway]

Сообщение от SAS888

Посмотрите и проверьте. Что не устраивает?

Да, работает быстро. Но можно ли вставлять на несколько листов сразу? У меня вставилось только на один.
Подумаю, все ли здесь нормально. Вот бы еще и добавление примечаний так ускорить.

[SAS888]

можно ли вставлять на несколько листов сразу?

Макрос обрабатывает все листы, имена которых есть в текстовой строке. Проверьте. добавьте непустые значения в txt строку в разные ячейки разных листов и выполните макрос.

Вот бы еще и добавление примечаний так ускорить.

С примечаниями такой фокус не пройдет, т.к. примечание - это свойство ячейки. А как уже говорилось, действия с ячейками рабочего листа выполняется существенно медленнее.

P.S.
Для проверки, выполнил макрос, который заносит в массив значения из диапазона ячеек "A1:IV65536" (все ячейки листа Excel 2003), затем значения из этого массива помещаются в ячейки рабочего листа. Ошибок не возникает.

Sub Test()
    Dim x As Range, a(): Application.ScreenUpdating = False
    Set x = [A1:IV65536]
    a = x.Value 'из листа в массив
    x.Value = a 'из массива на лист
End Sub

[motorway]

Да, с листами получилось.

[motorway]

К этой проблеме добавилась другая: пробую послать такую строку около 200 кб на сервер с помощью WinHTTPRequest.Send, и это занимает около 2 минут - поставил msgbox перед и после метода .Send - 2 минуты! Что-то странно. Сервер на локалхосте. Может, и здесь какая-то загвоздка?

[motorway]

Уважаемый SAS888, а не могли бы Вы немного модифицировать свою быструю процедуру для случая, если парсить надо строку немного другого вида (приложена) и вставлять данные на листы?
Здесь надо помещать на лист ячейки перед ~~~PROLOG~~~ в строке

[motorway]

Да, здесь еще забыл добавить, что нужно вставлять на лист только данные из получаемой строки, существующие на нем данные трогать не надо.

[motorway]

Также вопрос: допустим, у нас есть строка такого вида, как в файле, и нужно у названий ячеек на к-н. листе увеличить или уменьшить адрес (как при удалении/вставке строк/столбцов). Как это лучше сделать - обрабатывать эту строку в виде текста или поместить данные из нее на временный лист, затем сделать соотв. сдвиг с помощью Selection.Insert Shift, а затем сформировать такую же новую строку и уже из нее читать данные?

[EducatedFool]

Как это лучше сделать - обрабатывать эту строку в виде текста или поместить данные из нее на временный лист

Я бы предложил третий вариант: переделать формат txt-файла.

1) формируем текстовый файл такого формата:

ИмяЛиста1#АдресПервойЯчейки#ВысотаДиапазона#ШиринаДиапазона###
МассивЗначений### (разделитель значений и разделитель строк различаются)
ИмяЛиста2#АдресПервойЯчейки#ВысотаДиапазона#ШиринаДиапазона###
МассивЗначений###
ИмяЛиста3#АдресПервойЯчейки#ВысотаДиапазона#ШиринаДиапазона###
МассивЗначений###

К примеру, получится такой файл:

Лист1
1,5,1500,18
22`87`66`77```83`4`2``0`90`6@
22`87``75```83`8`2``0`90`6@
22`87`66`77```83`4`2``0`90`6@
11``6`77``55`83`4`2``0`90`6@

Лист2
4,6,1200,15
22`87`66`77```83`4`2``0`@
и т.д.

Это позволит значительно уменьшить объём файла (не будет множества повторяющихся имён листа)

2) Считывание данных производим в двумерный массив
Т.е. делаем некую функцию, которая принимает в качестве параметра текстовую строку, а возвращает двумерный массив.
Этот массив потом одной строкой кода записываем на лист, начиная с любой ячейки любого столбца.

[SAS888]

EducatedFool +1. Идею поддерживаю. Только вот

Этот массив потом одной строкой кода записываем на лист...

так не пойдет, потому, что автору требуется

вставлять на лист только данные из получаемой строки, существующие на нем данные трогать не надо

а вставка массива "затрет" имеющиеся данные. Ну, это уже детали. Эта проблема решается, например, способом, предложенным в примере поста № 14.