Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Парсинг строк в VBA. / 8 сообщений из 8, страница 1 из 1
07.09.2004, 10:09:02
    #32682567
Рачаев Олег
Рачаев Олег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг строк в VBA.
Всем привет.

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

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

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

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

Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 10:10:39
    #32682569
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг строк в VBA.
mid(stroka,instr(stroka,":"+1))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 10:13:43
    #32682573
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг строк в VBA.
см. хелп на функцию split
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 10:14:50
    #32682579
paparome
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг строк в VBA.
А если VBA 5.0 (Акс 2000 или выше),
то можно еще попробовать функцию split поюзать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 10:14:52
    #32682580
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг строк в VBA.
хотя mid в данном случае лучше :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 10:23:19
    #32682602
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг строк в VBA.
?Format(cDate(Mid(" 1 июня 2004 г.",1,Len(" 1 июня 2004 г.")-2)))
?Trim(Split("Месторождение : Алимовское",":")(1))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 10:37:53
    #32682639
Рачаев Олег
Рачаев Олег
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг строк в VBA.
2 Shark: Метод получения даты работает. Однако будет ли он работать с английскими датами ... тобишь в англ.винде?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2004, 10:45:40
    #32682653
Shark
Shark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Парсинг строк в VBA.
Тут важна не версия винды, а региональные настройки. Если надо, чтобы работало с любыми настройками, нужно разбирать ручками. Что-то типа
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Парсинг строк в VBA. / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 404ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1671950]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 78ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 2ms
others: 233ms
total:  404ms
x
x
Закрыть


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