Отправлено: 06.07.14 23:39. Заголовок: Перевод с хХарбора на Харбор ?

Всем доброй ночи...
Сижу вот перевожу программу с хХарбора на МиниГуи (Харбор), да вот незадача, споткнулся об такую конструкцию:
IF cResponse HAS RegStatus .AND. cResponse HAS RegMessage .AND. cResponse HAS RegNeeded

Подскажите пожалуйста как перевести её на Харбор ?

Читал http://clipper.borda.ru/?1-4-0-00000939-000-0-0-1383983897 - не помогло....

Заменил ( IF cResponse LIKE RegVersion .AND. cResponse LIKE RegLink ),
все равно не собирает, дает ошибку при сборке:
Harbour 3.2.0dev (r1405231501)
Copyright (c) 1999-2014, http://harbour-project.org/
forms_UpdateVer.prg(373) Error E0030 Syntax error "syntax error at 'LIKE'"
forms_UpdateVer.prg(384) Error E0030 Syntax error "syntax error at 'LIKE'"

Подсоединил в проект \MiniGUI\Harbour\include\hbcompat.ch - все равно не помогает....

 Отправлено: 07.07.14 00:21. Заголовок: Если в лоб то так cR..

Если в лоб то так
cResponse HAS RegStatus заменить на HB_REGEXHAS( RegStatus, cResponse ) и т.д.

Другой способ через #xtranslate <x> HAS <y> => HB_REGEXHAS( <y>, <x> )

 Отправлено: 07.07.14 00:39. Заголовок: TimTim пишет: cResp..

TimTim пишет:

цитата:

cResponse HAS RegStatus заменить на HB_REGEXHAS( RegStatus, cResponse ) и т.д.

Спасибо БОЛЬШОЕ !
Буду править....

 Отправлено: 07.07.14 09:31. Заголовок: TimTim пишет: HB_RE..

TimTim пишет:

цитата:

HB_REGEXHAS( RegStatus, cResponse )

Так заработало !

Но почему не делается
#translate ( <exp1> LIKE <exp2> ) => ( hb_regexLike( ( <exp2> ), ( <exp1> ) ) )
из hbcompat.ch ?

 Отправлено: 07.07.14 11:18. Заголовок: Рано радовался... Ре..

Рано радовался...
Регулярка в хХарборе и Харборе по разному работают.

Имею в хХарборе:
IF cResponse HAS RegStatus .AND. cResponse HAS RegMessage .AND. cResponse HAS RegNeeded

Для Харбора заменил на:
IF hb_regexLike( RegStatus , cResponse ) .AND. hb_regexLike( RegMessage, cResponse ) .AND. hb_regexLike( RegNeeded , cResponse )

В Харборе - НЕ РАБОТАЕТ !!!
Подскажите пожалуйста в чем не прав ?

 Отправлено: 07.07.14 11:25. Заголовок: Блин, совсем туплю....

Блин, совсем туплю... Смутила наверно Димина тема.
Одно заменил другим и хочу чтобы заработало...

Нужно делать так как посоветовал TimTim !
IF hb_regexHAS( RegStatus , cResponse ) .AND. hb_regexHAS( RegMessage, cResponse ) .AND. hb_regexHAS( RegNeeded , cResponse )

Где есть описание для hb_regexLike ?

 Отправлено: 07.07.14 12:22. Заголовок: http://www.kresin.ru..

http://www.kresin.ru/hrbfaq_3.html

https://github.com/zgamero/sandbox/wiki/X-Regular-Expressions

 Отправлено: 07.07.14 15:55. Заголовок: Спасибо santy :sm36..

Спасибо santy