
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
20.12.2006, 20:42
|
|||
|---|---|---|---|
|
|||
Regular Expressions |
|||
|
#18+
Привет, не могу найти хорошей поддержки регулярных выражений под винды. Пытаюсь окучить PCRE.dll (ftp://ftp.csx.cam.ac.uk/pub/software/programming/pcre/Contrib/pcreming.zip). Пока плохо получается, помогите с советом как портировать функции с прототипами: Код: plaintext 1. 2. 3. 4. 5. 6. 7. тут preg - указатель на структуру, pmatch[] - массив структур с найденными строками - с ним основная загвоздка - не знаю как его использовать. пробовал все так: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. не заю как поиметь результаты. зы: документация есть в тут ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.12.2006, 20:53
|
|||
|---|---|---|---|
|
|||
Regular Expressions |
|||
|
#18+
Предлагаю работающий вариант, выдранный из одного проекта: lcFileName = '\Work\Projects\Offline\XML\rss.xml' Local loRE loRE = Createobject("vbscript.regexp") With loRE .Global = .T. .multiline = .T. sss = Filetostr(lcFileName) Select bbcode Scan For Not Empty(Exec) and type !='p' If Lower(Type)<>'s' .Pattern = Mline(Exec, 1) sss = .Replace( sss , Chrtran(Tag1, '%', '$')) .Pattern = Mline(Exec, 2) sss = .Replace( sss , Tag2) Else .Pattern = Mline(Exec, 1) sss = .Replace( sss , Chrtran(Tag1, '%', '$')+Param+Tag2) +Param+Tag2) Endif Endscan Endwith Strtofile(sss, '\Work\Projects\Offline\XML\111.htm') ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=41&mobile=1&tid=1590113]: |
0ms |
get settings: |
8ms |
get forum list: |
10ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
139ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 251ms |
| total: | 470ms |

| 0 / 0 |
