Парсинг поля MEMO / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Парсинг поля MEMO

3 сообщений из 3, страница 1 из 1

Парсинг поля MEMO

#39096804

Frost_Imp

Участник

Откуда: Белокаменная

Сообщения: 1 629

Рейтинг: 0 / 0

Приветствую!
Есть страшная таблица с большим объемом данных. Одно из полей таблицы - поле MEMO. Данные там хранятся примерно в следующем виде:

Контрактовая пл., 2/1, Киев, Киевская область 01001, Украина [Lat : 50.463518 | Long : 30.516520]

ул. Драгоманова, 44-А, Киев, Киевская область 01001, Украина [Lat : 50.403210 | Long : 30.635295]

ул. Героев Сталинграда, 12-Г, Киев, Киевская область 01001, Украина [Lat : 50.503088 | Long : 30.513864]

Нужно распарсить это поле построчно в отдельную таблицу, куда отдельным полем добавить ключевое поле (из основной таблицы), например offer ID.
Листинг VBA подскажите пожалуйста.
Заранее благодарю.
_____________________
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как администрация форума попросила его быть вежливым.

...

Рейтинг:

0 / 0

06.11.2015, 16:29

| Ответить | Цитировать | Написать

Парсинг поля MEMO

#39096969

guest_rusimport

Гость

Frost_Imp,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Public Function fff()
s = "Контрактовая пл., 2/1, Киев, Киевская область 01001, Украина [Lat : 50.463518 | Long : 30.516520]" & _
"ул. Драгоманова, 44-А, Киев, Киевская область 01001, Украина [Lat : 50.403210 | Long : 30.635295]" & _
"ул. Героев Сталинграда, 12-Г, Киев, Киевская область 01001, Украина [Lat : 50.503088 | Long : 30.513864]"
f = Split(s, "]")
For i = 0 To UBound(f) - 1
    Debug.Print f(i) & "]"
Next i
End Function


fff
Контрактовая пл., 2/1, Киев, Киевская область 01001, Украина [Lat : 50.463518 | Long : 30.516520]
ул. Драгоманова, 44-А, Киев, Киевская область 01001, Украина [Lat : 50.403210 | Long : 30.635295]
ул. Героев Сталинграда, 12-Г, Киев, Киевская область 01001, Украина [Lat : 50.503088 | Long : 30.513864]

...

Рейтинг:

0 / 0

06.11.2015, 19:49

| Ответить | Цитировать | Написать

Парсинг поля MEMO

#39098466

Frost_Imp

Участник

Откуда: Белокаменная

Сообщения: 1 629

Рейтинг: 0 / 0

guest_rusimport, премного благодарен! Допилил, чтоб убирались ненужные переносы строк и чтоб бегал циклом.

...

Рейтинг:

0 / 0

09.11.2015, 14:55

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Парсинг поля MEMO

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&tid=1614310]:	0ms
get settings:	10ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	46ms
get topic data:	10ms
get forum data:	3ms
get page messages:	39ms
get tp. blocked users:	1ms
others:	316ms

total:	439ms