Конкатенация (объединение строк)

Ответы на вопросы, чаще всего задаваемые в форумах VBStreets. Для тех, кому лень искать.
hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Конкатенация (объединение строк)

Сообщение hCORe » 26.12.2004 (Вс) 16:31

Очень часто встречающаяся задача - объединение строк переменной длины.

Ввиду исключительной тормознутости VB при работе с большими строками, предлагаю неплохое решение - класс для работы со строками. Вот ссылка на него:
http://bbs.vbstreets.ru/download.php?id=1073

Пример использования:
Код: Выделить всё
'объявление переменных
Dim objAppend As cAppendString
Dim strVal As String
Dim i As Long

'создание объекта
Set objAppend = New cAppendString

'присоединить строку
For i = 1 To 100000
    objAppend.Append "AAA"
    DoEvents
Next i

'получить значение строковой переменной
strVal = objAppend.Value

'напечатать значение в окне Immediate
Debug.Print strVal

'очистим память, мы хорошие!
objAppend.Clear

'освобождение объекта
Set objAppend = Nothing
Моду создают модоки, а распространяют модозвоны.

Вернуться в Популярные вопросы

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10

    TopList  
cron