Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Парсинг поля MEMO / 3 сообщений из 3, страница 1 из 1
06.11.2015, 16:29
    #39096804
Frost_Imp
Frost_Imp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг поля MEMO
Приветствую!
Есть страшная таблица с большим объемом данных. Одно из полей таблицы - поле 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, 19:49
    #39096969
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг поля MEMO
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
| Ответить | Цитировать | Написать  
09.11.2015, 14:55
    #39098466
Frost_Imp
Frost_Imp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг поля MEMO
guest_rusimport, премного благодарен! Допилил, чтоб убирались ненужные переносы строк и чтоб бегал циклом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Парсинг поля MEMO / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 151ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1614310]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 11ms
total:  151ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]