» Главная
eXcode.ru » Статьи » Базы данных
» Новости
» Опросы
» Файлы
» Журнал



Пользователей: 0
Гостей: 15





Работа со строками в MS Access




Автор: Dmitry Shakhov

Откровенно говоря, возможности для работы со строками в MSA небольшие и приходится писать собственные функции. О них и речь...

Поиск последнего символа в строке, например, последней точки в имени файла для определения расширения или последнего слэша в пути к файлу для определения имени файла в пути.


′Вызов функции
MsgBox FndSmb(".","main.html")
′Сама функция
Public Function FndSmb(smb As String, stroka As String) As Long
Dim a As Long
Dim b As Long
a = 1
While a > 0
b = a
a = InStr(a + 1, stroka, smb)
Wend
FndSmb = b
End Function


Замена символа или последовательности символов, чем-то похоже на одноименную функцию в РНР. Пришлось написать, когда возникла необходимость в использовании формул, задаваемых пользователем. Проблема была в том, что внутри кода разделитель мантиссы запятая, а вот для фукнции Eval нужна точка. В итоге получилась гораздо более функциональная вещь.
P.S. Начиная с версии 2000 в MSA есть функция replace(). Так что можете пользоваться ею.


′Вызов функции
MsgBox str_replace(",",".","9,9*10,17")
′Сама функция
Public Function str_replace(s1 As String, s2 As String, s As String) As String
Dim n1 As Long
Dim n2 As Long
Dim v1 As String
Dim v2 As String
Dim v3 As String

v3 = s
n2 = 1
n1 = InStr(n2, s, s1)

If n1 > 0 Then
Do
v1 = Mid(v3, 1, n1 - 1)
v2 = Mid(v3, n1 + Len(s1), Len(v3) - n1)
v3 = v1 & s2 & v2
n2 = n1 + Len(s2)
n1 = InStr(n2, v3, s1)
Loop Until n1 < 1
End If

str_replace = v3
End Function


Более сложная функция для получения элемента из строки с разделителями. Возникла из задачи, когда в одном поле таблицы оказались данные, которые необходимо было разнести по разным столбцам.
Опять же в РНР такая функция есть (split), а вот в MSA нет.


′Вызов функции
MsgBox ExpandStr("Waw;2347859;dfskgdkf",";",2) ′2347859
′Сама функция
Public Function ExpandStr(stroka As String, Razdel As String, numpos As Long)
Dim n1 As Long
Dim s1 As String
Dim v1 As String
Dim v2 As String
Dim v3 As String
Dim i As Long

v3 = stroka
s1 = Razdel
n1 = InStr(1, v3, s1)
i = 0

If n1 > 0 Then
Do
v1 = Mid(v3, 1, n1 - 1) ′возвращает слово до поисковой строки
v2 = Mid(v3, n1 + Len(s1), Len(v3) - n1) ′возвращает слово после поисковой строки
v3 = v2 ′склейка
n1 = InStr(1, v3, s1) ′выполняем новый поиск подстроки
i = i + 1
Loop Until n1 < 1 Or i >= numpos ′если такой подстроки нет, то обрываем поиск
End If
If n1 < 1 And i < numpos Then
ExpandStr = v2
Else
ExpandStr = v1
End If
End Function
К началу статьи





Добавил: LedWormДата публикации: 2005-07-16 20:19:39
Рейтинг статьи:3.00 [Голосов 5]Кол-во просмотров: 49621

Комментарии читателей

Всего комментариев: 1679

2017-06-26 22:22:00
Briansog
Регистрируешься - огромный бонусы.
Играешь - огромный выигрыш.
$<a href=https://gotovlc.com/51/1?l=32[/url>Пройди тест на богатство и узнай сможешь ли ты стать богатым</a>
$<a href=https://gotovlc.com/51/1?l=44[/url>]узнай как из 100 рублей сделать 20 000 рублей!</a>
Играй
<a href=https://gotovlc.com/51/4?l=120>Угадай кому принадлежит бюст - получи деньги</a>
<a href=https://gotovlc.com/51/4?l=120><img>http://krn.krapovy.ru/images/ugaday_bust_1.jpg</img></a>
<a href=http://vlkgo.com?id=C9nm7ieg&banner_id=7190><img>http://krn.krapovy.ru/images/vyigrysh.jpg</img></a>
<a href=https://lookatlink.com/M2TC>Играть онлайн</a>
<a href=http://vlkgo.com/stock/?id=C9nm7ieg&banner_id=2369>акции и бонусы!</a>
<a href=http://vlkgo.com?id=C9nm7ieg&banner_id=7286><img>http://ad.gameagregator.com/promo/banners/e8bba8d41cf734d460a16f3306a274f2.jpg</img></a><a href=https://lookatlink.com/M2TI><img>http://ad.gameagregator.com/promo/banners/17f03825f16d3fffc001ed6cbaeb1ddc.gif</img></a><a href=https://lookatlink.com/M2TK><img>http://ad.gameagregator.com/promo/banners/8e625d25d783a6d1ea17aad67f5e8cd1.gif</img></a>

2017-06-22 21:36:47
RobertLaria
https://www.cpagrip.com/show.php?l=0&u=27708&id=12835
Get a €500 Ryanair Voucher!

https://www.cpagrip.com/show.php?l=0&u=27708&id=12872
Obtenez un nouveau Samsung S8!

https://www.cpagrip.com/show.php?l=0&u=27708&id=12640
ZГ­skajte zbrusu novГЅ iPhone 7 Red!

https://www.cpagrip.com/show.php?l=0&u=27708&id=12796
Nimm den WhatsApp IQ Test jetzt!

https://www.cpagrip.com/show.php?l=0&u=27708&id=9885
DerniГЁre Г©tape pour accГ©der Г  ton jeux Clash of Clans!

https://www.cpagrip.com/show.php?l=0&u=27708&id=10090
Laden Sie das Spiel mehr SpaГџ fГјr Ihr Handy!

https://www.cpagrip.com/show.php?l=0&u=27708&id=10382
Obtenez les meilleurs sonneries maintenant!

https://www.cpagrip.com/show.php?l=0&u=27708&id=8124
Descarga los mejores juegos y videos!

https://www.cpagrip.com/show.php?l=0&u=27708&id=9913
CANDY DROP - JOUEZ ГЂ CE JEU!

https://www.cpagrip.com/show.php?l=0&u=27708&id=10380
Ш§Щ„Ш­ШµЩ€Щ„ Ш№Щ„Щ‰ ШЈЩЃШ¶Щ„ Щ…Щ€ШіЩЉЩ‚Щ‰ Щ€ЩѓЩ„ЩЉШЁ!

2017-06-22 10:13:59
androecp
«Халва» - Карта Рассрочки

[url=http://bit.ly/2pJ9LnO]оформление кредитов[/url]
http://bit.ly/2pJ9LnO - беспроцентный кредит
<a href=http://bit.ly/2pJ9LnO>банковский кредит</a>
http://bit.ly/2pJ9LnO - условия кредита
<a href=http://bit.ly/2pJ9LnO>микрофинансирование</a>

[url=http://turmis-sk.kz/index.php?option=com_k2&view=itemlist&task=user&id=163680]Всегда 0% рассрочки в 10 000 магазинов[/url]
[url=http://2tmstudios.com/index.php?option=com_k2&view=itemlist&task=user&id=103170]Невероятные условия[/url]
[url=http://www.onlinebanglamedia.com/index.php?option=com_k2&view=itemlist&task=user&id=21995]Магазины на любой вкус[/url]
[url=http://www.realfemalebodybuilding.com/index.php?option=com_k2&view=itemlist&task=user&id=137407]Невероятные условия[/url]
[url=http://cartronica.pt/index.php?option=com_k2&view=itemlist&task=user&id=470068]ВЫГОДНЫЕ ПОКУПКИ[/url]

Всегда 0%! Рассрочка в 10 000+ магазинов. Обслуживание - 0 ?. Оставь Заявку

[url=http://bit.ly/2sqTLLv][img]http://static1.keep4u.ru/2017/06/16/CzJKT9uQUkGTeRBg1UvKA8c410.th.gif[/img][/url]
[url=https://app.halvacard.ru/?utm_medium=Affiliate&utm_source=cpahub&utm_campaign=80]Выгодные покупки[/url]

<a href=http://bit.ly/2sqTLLv>Невероятные условия</a>

<a href=http://www.citraclub.com/index.php?option=com_k2&view=itemlist&task=user&id=87807>Кэшбери - ЗАБУДЬ О ФИНАНСОВЫХ ПРОБЛЕМАХ</a>

-moneycash-ok

2017-06-20 02:54:34
Craigtut
[url=http://kshop2.biz/nSk4Vh/]Простонор[/url]
[url=http://kshop2.biz/nSk4Vh/]Капли от простатита[/url]
[url=http://kshop2.biz/nSk4Vh/]prostonor[/url]
[url=http://kshop2.biz/nSk4Vh/]prostonor от простатита[/url]
[url=http://kshop2.biz/nSk4Vh/]prostonor инструкция по применению[/url]
[url=http://kshop2.biz/nSk4Vh/]prostonor капли[/url]
[url=http://kshop2.biz/nSk4Vh/]prostonor капли от простатита[/url]
[url=http://kshop2.biz/nSk4Vh/]prostonor капли от простатита инструкция[/url]
[url=http://kshop2.biz/nSk4Vh/]prostonor капли от простатита инструкция по применению[/url]
[url=http://kshop2.biz/nSk4Vh/]prostonor капли от простатита цена[/url]
[url=http://kshop2.biz/nSk4Vh/]prostonor купить[/url]
[url=http://kshop2.biz/nSk4Vh/]капли от простатита[/url]
[url=http://kshop2.biz/nSk4Vh/]капли от простатита названия[/url]
[url=http://kshop2.biz/nSk4Vh/]капли от простатита отзывы[/url]
[url=http://kshop2.biz/nSk4Vh/]капли от простатита цена[/url]
[url=http://kshop2.biz/nSk4Vh/]купить капли экстрактов концентратов от простатита[/url]
[url=http://kshop2.biz/nSk4Vh/]простанорм капли от простатита[/url]
[url=http://kshop2.biz/nSk4Vh/]простатита лечение капли[/url]

2017-06-19 18:28:46
Semenawg
Можно раскрутить сайт

[url=http://bit.ly/2aKk97Z]платная регистрация каталоге[/url]
[url=http://bit.ly/2aKk97Z]прогон по каталогам статей[/url]
[url=http://bit.ly/2aKk97Z]автоматическая регистрация в каталогах[/url]
[url=http://bit.ly/2aKk97Z]раскрутить сайты магазин[/url]
[url=http://bit.ly/2aKk97Z]как раскрутить сайт такси[/url]

СЕРВИС ДЛЯ ПРИВЛЕЧЕНИЯ КЛИЕНТОВ ИЗ ИНТЕРНЕТА.
КОНТЕНТ МАРКЕТИНГ И ДРУГИЕ ИНСТРУМЕНТЫ ДЛЯ БИЗНЕСА
ПОИСКОВОЕ ПРОДВИЖЕНИЕ
КОНТЕКСТНАЯ РЕКЛАМА
ПРОГОНЫ ПО ПРОФИЛЯМ
РЕГИСТРАЦИИ ПРОФИЛЕЙ
СТАТЕЙНОЕ ПРОДВИЖЕНИЕ

[url=http://interpult-s.ru][img]http://s019.radikal.ru/i639/1703/62/beaec842f911.png[/img][/url]

[url=http://bit.ly/2aKk97Z]прогон по профилям трастовых сайтов[/url]
[url=http://bit.ly/2aKk97Z]прогон сайта по каталогам дхф[/url]
[url=http://bit.ly/2aKk97Z]социальные закладки[/url]
[url=http://bit.ly/2aKk97Z]как раскрутить сайт рулетку cs go[/url]
[url=http://bit.ly/2aKk97Z]раскрутить сайт одноклассниках[/url]

программа прогона каталогам
список ключевых слов



[url=http://bit.ly/2oI4psW]ВЫДАВАЙ МИКРОЗАЙМЫ С ГАРАНТИРОВАННОЙ ДОХОДНОСТЬЮ ОТ 192% ДО 265% ГОДОВЫХ И ЗАБУДЬ О ФИНАНСОВЫХ ПРОБЛЕМАХ[/url]

[url=http://bit.ly/2aKk97Z]что ищут в интернете чаще[/url]
[url=http://bit.ly/2aKk97Z]позициям[/url]
[url=http://bit.ly/2aKk97Z]шапка на сайт[/url]
[url=http://bit.ly/2aKk97Z]сайт w b[/url]
[url=http://bit.ly/2aKk97Z]ags официальный сайт[/url]


~tongo~

2017-06-19 01:37:11
Semenumi
Раскрутить сайты магазин

[url=http://bit.ly/2aKk97Z]заказать регистрацию каталогах[/url]
[url=http://bit.ly/2aKk97Z]Прогон По Форумам[/url]
[url=http://bit.ly/2aKk97Z]регистрация каталогах ссылок[/url]
[url=http://bit.ly/2aKk97Z]научиться раскручивать сайты[/url]
[url=http://bit.ly/2aKk97Z]как раскрутить сайт за деньги[/url]

СЕРВИС ДЛЯ ПРИВЛЕЧЕНИЯ КЛИЕНТОВ ИЗ ИНТЕРНЕТА.
КОНТЕНТ МАРКЕТИНГ И ДРУГИЕ ИНСТРУМЕНТЫ ДЛЯ БИЗНЕСА
ПОИСКОВОЕ ПРОДВИЖЕНИЕ
КОНТЕКСТНАЯ РЕКЛАМА
ПРОГОНЫ ПО ПРОФИЛЯМ
РЕГИСТРАЦИИ ПРОФИЛЕЙ
СТАТЕЙНОЕ ПРОДВИЖЕНИЕ

[url=http://interpult-s.ru][img]http://s019.radikal.ru/i621/1703/fb/b406dd94fb2b.png[/img][/url]

[url=http://bit.ly/2aKk97Z]Постинг На Форумах[/url]
[url=http://bit.ly/2aKk97Z]топ каталогов для продвижения сайта череповец[/url]
[url=http://bit.ly/2aKk97Z]регистрация в каталогах фирм[/url]
[url=http://bit.ly/2aKk97Z]научиться раскручивать сайты[/url]
[url=http://bit.ly/2aKk97Z]продукция каталогам регистрация[/url]

регистрация строительных каталогов
регистрация в белых каталогах



[url=http://bit.ly/2oI4psW]ВЫДАВАЙ МИКРОЗАЙМЫ С ГАРАНТИРОВАННОЙ ДОХОДНОСТЬЮ ОТ 192% ДО 265% ГОДОВЫХ И ЗАБУДЬ О ФИНАНСОВЫХ ПРОБЛЕМАХ[/url]

[url=http://bit.ly/2aKk97Z]контент игровой[/url]
[url=http://bit.ly/2aKk97Z]сайт анализатор сайтов[/url]
[url=http://bit.ly/2aKk97Z]что ищут сейчас в яндексе[/url]
[url=http://bit.ly/2aKk97Z]анализ сайта по поисковым запросам[/url]
[url=http://bit.ly/2aKk97Z]придумайте логин[/url]


~tongo~

2017-06-18 03:40:41
andruapi
[url=http://bit.ly/2oEo4st]микрозаймы онлайн на карту сбербанка круглосуточно[/url]
[url=http://bit.ly/2oEo4st]микрозаймы мгновенно круглосуточно на карту[/url]
[url=http://bit.ly/2oEo4st]микрозайм спб круглосуточно[/url]
[url=http://bit.ly/2oEo4st]микрозайм на карту онлайн безотказно круглосуточно[/url]
[url=http://bit.ly/2oEo4st]микрозайм на маэстро карту круглосуточно[/url]

[url=https://cashbery.com/?ref=31126][img]http://s018.radikal.ru/i516/1706/d4/432ddb596ed4.gif[/img][/url]
[url=http://bit.ly/2oEo4st]http cashbery com[/url]
[url=http://bit.ly/2oEo4st]кэшбери микрозаймы[/url]
[url=http://bit.ly/2oEo4st]кэшбери как заработать[/url]
[url=http://bit.ly/2oEo4st]cashbery com[/url]
[url=http://bit.ly/2oEo4st]кэшбери личный кабинет[/url]


[url=http://bit.ly/2sqTLLv]ХАЛВА - КАРТА ДЛЯ ПОКУПОК БЕЗ ПЕРЕПЛАТ[/url]

2017-06-17 09:56:40
FrankGeft
Автоматическое продвижение в интернете с помощью агрегатора сайтов

[url=http://site-agregator.ru][img]http://s45.radikal.ru/i110/1702/c6/e28611ea9003.gif[/img][/url]

Хотите продвинуть сайт в ТОП не отвлекаясь от других дел? Site-agregator сделает всё за Вас. С Site-Agregator вам не нужно быть SEO-специалистом.
Теперь продвинуть сайт в ТОП в поисковых системах может любой.
Недорогое продвижение сайта, интернет магазина. Рост ТИЦ, PR, посещаемости гарантируем.
Хочешь повысить продажи? Просто размести здесь ссылку на свой сайт http://bit.ly/2doNLIP


[url=http://bit.ly/2doNLIP]компания раскрутка сайтов[/url]
[url=http://bit.ly/2doNLIP]продвижение в сети интернет[/url]
[url=http://bit.ly/2doNLIP]продвижение сайтов в 10[/url]
[url=http://bit.ly/2doNLIP]профессиональная раскрутка сайта[/url]
[url=http://bit.ly/2doNLIP]как самому продвигать сайт[/url]

<a href=http://bit.ly/2doNLIP>индексация сайта в поисковых системах</a>
<a href=http://bit.ly/2doNLIP>продвижение бизнеса в интернете</a>
<a href=http://bit.ly/2doNLIP>разработка и продвижение сайтов</a>
<a href=http://bit.ly/2doNLIP>индексация сайта в поисковых</a>
<a href=http://bit.ly/2doNLIP>поисковые подсказки продвижение</a>

http://bit.ly/2doNLIP - как самому продвигать сайт бесплатно
http://bit.ly/2doNLIP - сайт поисковой системы яндекс
http://bit.ly/2doNLIP - продвижение сайтов инструкция
http://bit.ly/2doNLIP - продвижение сайта самостоятельно пошаговая инструкция
http://bit.ly/2doNLIP - услуги продвижения сайта


$$+$$*

2017-06-17 09:56:39
MichaelTisee
Titan Gel - увеличение члена

[url=http://kshop2.biz/iDlRKb]титан гель для увеличения члена[/url]
[url=http://kshop2.biz/iDlRKb]потенция усиление[/url]
[url=http://kshop2.biz/iDlRKb]гели для увеличения полова члена[/url]

<a href=http://kshop2.biz/iDlRKb>крем для увеличения члена титан</a>
<a href=http://kshop2.biz/iDlRKb>увеличение полового члена до и после</a>
<a href=http://kshop2.biz/iDlRKb>реальные способы увеличения члена</a>
<a href=http://kshop2.biz/iDlRKb>потенция повышение</a>
<a href=http://kshop2.biz/iDlRKb>увеличение полового члена экстендер</a>

http://kshop2.biz/iDlRKb - препараты для увеличения члена
http://kshop2.biz/iDlRKb - гель для увеличения полового члена
http://kshop2.biz/iDlRKb - увеличение члена гелем мазь
http://kshop2.biz/iDlRKb - самое эффективное увеличение члена
http://kshop2.biz/iDlRKb - правильное увеличение члена


YONG GANG для улучшения потенции

[url=http://kshop2.biz/VhqDi6]увеличение полового члена хирургическим путем[/url]
[url=http://kshop2.biz/VhqDi6]увеличение члена в израиле[/url]
[url=http://kshop2.biz/VhqDi6]крем для увеличения члена xxl[/url]

<a href=http://kshop2.biz/VhqDi6>xxl увеличение члена</a>
<a href=http://kshop2.biz/VhqDi6>лучшее средство для увеличения члена</a>
<a href=http://kshop2.biz/VhqDi6>увеличение полового члена хирургическим путем</a>
<a href=http://kshop2.biz/VhqDi6>про увеличение члена</a>
<a href=http://kshop2.biz/VhqDi6>увеличение толщины члена</a>

http://kshop2.biz/VhqDi6 - возможно ли увеличение члена
http://kshop2.biz/VhqDi6 - увеличение головки члена
http://kshop2.biz/VhqDi6 - увеличение полового члена хирургическим путем
http://kshop2.biz/VhqDi6 - увеличение полового члена с фото форум foras
http://kshop2.biz/VhqDi6 - самое эффективное увеличение члена

2017-06-16 12:20:47
Jamescrure

<a href=http://bit.ly/2r2agcC>Часы G-Shock В ПОДАРОК</a>


LLL!
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Какой ОПСОС лучше?
Megafon
27% (59)
MTS
22% (48)
Beeline
26% (58)
АТС
3% (6)
Тут таких нет ...
16% (36)
Я не пользуюсь телефоном.
6% (13)

Проголосовало: 220
- Чувствую себя как компьютерная мышь: ползаю по ковру и в животе крутит.
Рейтинг: 6/10 (1)
Посмотреть все анекдоты