Исходные данные:

Есть строка (xStr).
Есть набор символов (xDelim), считающихся пробельными (в виде строки в переменной или константе).

Задача:

Сделать максимально быстрый TRIM этих символов из начала и/или хвоста строки.

Что испробовано (суть):

1) If Instr(xDelim,Mid(xStr,n,1))>0 Then Mid(xStr,n,1)=" "
2) If Instr(xDelim,Left(xStr,1))>0 Then xStr=Mid(xStr,2)

По любому получается медленно... хвост обрабатывать еще геморройнее. Поскольку функция используется при конвертировании огромных (сотни Мб) таблиц (TRIMать надо SPLITнутые многострочные MEMO-поля) - времени требуется немеряно...

Идеи?

Это сообщение отредактировал(а) Akina - 20.8.2004, 10:08

А ты используй функцию Split в теле цикла по перебору разделителей.

Naghual
Прости, не понял.

Собсно сейчас что: считывается в строковую переменную MEMO-поле, оно режется в массив на строки (tmpStrArray=Split(MemoText.Text, vbCR & vbLF)), после чего каждая из полученных строк массива (в цикле есссно) TRIMается. Сложность в том что некоторые непробельные символы тоже должны быть убраны (например ведущие или конечные точки, запятые, тире и т.п.) - именно вот этот TRIM и нужно ускорить...

Т.е. ты заменяешь начальные и конечные разделители пробелами поштучно, а потом усекаешь.

А что если задать поиск (в цикле) первого НЕ пробельного знака, а потом усечь все , что до него при помощи Right$ / Ltft$ ?

Я бы сделал так: (пишу с ума, смотри только идею, синтаксис не соблюден)

DIM nonDelim(255) As Boolean 'массив-дешифратор
for i=0 to 255 : nonDelim(i)=True: next i 'заполняем этот массив единицами
'а пробельные коды - нулями
nonDelim(32) = False
nonDelim(&h2C) = False
nonDelim(&h2E) = False
.
.
.
'а теперь, при помощи такого массива находим первый значащий символ

for i=1 to Len(tmpString$)
if nonDelim(Asc(mid$(tmpString$,i,1))) = True Then
posution = i
i = Len(tmpString$) 'стоп цикла, или можно Exit сделать
end if

LengthNew= Len(tmpString$) - position 'сколько символов остается
tmpString$ = Right$(tmpString$,LengthNew) 'усекаем

Ну и так же с конца. Применяю For вместо While, для избежания проблем на строках из одних разделителей и т. п, но это детали, по ходу экспериментов.


Удачи !
Эд

Это я не понял твой вопрос. Пардон.

Можеш поподробнее расписать задачку?
Я про ТРИМ не совсем понял.
Можно с примерами строк.

Naghual
Пример строки (начальная и конечная кавычки не входят, просто ограничивают):
" . $ Строка, кою надо зачистить. ,, "
Список пробельных символов:
chr$(0)...chr$(47); chr$(58)...chr$(64)
Результат очистки:
"Строка, кою надо зачистить"

----------------------------

Хмм... Эд прав... надо попробовать... гнать 2 указателя по строке в цикле...

Цитата(Akina @ 20.8.2004, 12:39)

Хмм... Эд прав... надо попробовать... гнать 2 указателя по строке в цикле...

Как попробуешь - напиши... Интересно...