ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Парсинг строк в VBA.
8 сообщений из 8, страница 1 из 1
Парсинг строк в VBA.
    #32682567
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рачаев Олег
Участник
Всем привет.

Справка ацесовская совсем не работает. Подскажите пожалуйста как мне из такой строки в VBA корректно вытащить дату для последующей записи в базу:

Код: plaintext
Дата выдачи :   1  июня  2004  г.

И как из такой вытащить из такой Алимовское ?

Код: plaintext
Месторождение : Алимовское

Заранее спасибо.
...
Рейтинг: 0 / 0
07.09.2004, 10:09:02
| Ответить | Цитировать | Написать  
Парсинг строк в VBA.
    #32682569
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
mid(stroka,instr(stroka,":"+1))
...
Рейтинг: 0 / 0
07.09.2004, 10:10:39
| Ответить | Цитировать | Написать  
Парсинг строк в VBA.
    #32682573
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
см. хелп на функцию split
...
Рейтинг: 0 / 0
07.09.2004, 10:13:43
| Ответить | Цитировать | Написать  
Парсинг строк в VBA.
    #32682579
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
А если VBA 5.0 (Акс 2000 или выше),
то можно еще попробовать функцию split поюзать
...
Рейтинг: 0 / 0
07.09.2004, 10:14:50
| Ответить | Цитировать | Написать  
Парсинг строк в VBA.
    #32682580
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
хотя mid в данном случае лучше :)
...
Рейтинг: 0 / 0
07.09.2004, 10:14:52
| Ответить | Цитировать | Написать  
Парсинг строк в VBA.
    #32682602
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
?Format(cDate(Mid(" 1 июня 2004 г.",1,Len(" 1 июня 2004 г.")-2)))
?Trim(Split("Месторождение : Алимовское",":")(1))
...
Рейтинг: 0 / 0
07.09.2004, 10:23:19
| Ответить | Цитировать | Написать  
Парсинг строк в VBA.
    #32682639
Рачаев Олег
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рачаев Олег
Участник
2 Shark: Метод получения даты работает. Однако будет ли он работать с английскими датами ... тобишь в англ.винде?
...
Рейтинг: 0 / 0
07.09.2004, 10:37:53
| Ответить | Цитировать | Написать  
Парсинг строк в VBA.
    #32682653
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
Тут важна не версия винды, а региональные настройки. Если надо, чтобы работало с любыми настройками, нужно разбирать ручками. Что-то типа
Dim s as variant
s=split(Trim("...")," ")
Dim lDay as integer,lMonth as integer,lYear as integer
lDay=cInt(s(0))
lYear=cInt(s(2))
Select Case s(1)
case "января":lMonth=1
..
End select
result=DateSerial(lYear,lMonth,lDay)
...
Рейтинг: 0 / 0
07.09.2004, 10:45:40
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Парсинг строк в VBA.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1671950]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 40ms
get topic data:
 6ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 189ms
total:  285ms
созд. / загр.: 285ms
x
x
Закрыть


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