Написать функцию в Visual Basik для Access
Есть поле Kontakti в таблице Objavlenia файла baza.mdb. заполнено текстом в духе:
Контакты: 77-81-60 22-12-81
Контакты: 970758 Елена
Контакты: 92-49-02
Контакты: тел. 89878485451 тел. 57-37-37 Ирина
Контакты: 89096178005
Контакты: 8-961-900-27-47
Контакты: 20-67-76
Контакты: 89128448810
Контакты:
Контакты: телефон 258286
Контакты: Ольга 89878509918
Контакты: тел.926485,599086
Контакты: е-mail: [email protected] 8 987 886 64 85 Родион Викторович
Контакты: 8-965-040-78-62 8-921-094-05-04 8-922-554-29-40 8-905-890-66-90
Контакты: 55-32-56
Контакты: 8 3532 31 10 55 звонить с 6 00 утра до 7 00 и с 18 00 до 24 00 Петр Александрович
Контакты: 59-00-36,55-08-36
Контакты: Тел.: 29-30-11
Контакты: обращаться по тел.89096113354,89198404093
Контакты: 92-26-42
Контакты: 28-63-03
Контакты: т.455-836,Ольга. т.89877955836
Контакты: т. 89877955836. т. 212-812,Ольга
Контакты: Тел: 94-85-03. Тел:555-701, 555-402. Тел.(3532) 370-119 E-mail:[email protected] www.___.ru
Нужна функция, которая пройдет и на основании этих данных заполнит поля Tel1, Tel2, e-mail, Имя.
База регулярно обновляется, соответственно - нужна именно функция, которую можно регулярно вызывать, а не однократный результат, отдельная программа или что-нибудь еще. Поле заполняют пользователи, каждый в своей манере, соответственно понимаю, что гарантировать 100% безошибочную обработку данных никто не сможет, важно обеспечить высокий уровень правильной обработки.