Форум » [x]Harbour » Перевод с хХарбора на Харбор ? » Ответить
Перевод с хХарбора на Харбор ?
Andrey: Всем доброй ночи... Сижу вот перевожу программу с хХарбора на МиниГуи (Харбор), да вот незадача, споткнулся об такую конструкцию: 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 - все равно не помогает....
Ответов - 7
TimTim: Если в лоб то так cResponse HAS RegStatus заменить на HB_REGEXHAS( RegStatus, cResponse ) и т.д. Другой способ через #xtranslate <x> HAS <y> => HB_REGEXHAS( <y>, <x> )
Andrey: TimTim пишет: cResponse HAS RegStatus заменить на HB_REGEXHAS( RegStatus, cResponse ) и т.д. Спасибо БОЛЬШОЕ ! Буду править....
Andrey: TimTim пишет: HB_REGEXHAS( RegStatus, cResponse ) Так заработало ! Но почему не делается #translate ( <exp1> LIKE <exp2> ) => ( hb_regexLike( ( <exp2> ), ( <exp1> ) ) ) из hbcompat.ch ?
Andrey: Рано радовался... Регулярка в хХарборе и Харборе по разному работают. Имею в хХарборе: 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 ) В Харборе - НЕ РАБОТАЕТ !!! Подскажите пожалуйста в чем не прав ?
Andrey: Блин, совсем туплю... Смутила наверно Димина тема. Одно заменил другим и хочу чтобы заработало... Нужно делать так как посоветовал TimTim ! IF hb_regexHAS( RegStatus , cResponse ) .AND. hb_regexHAS( RegMessage, cResponse ) .AND. hb_regexHAS( RegNeeded , cResponse ) Где есть описание для hb_regexLike ?
santy: http://www.kresin.ru/hrbfaq_3.html https://github.com/zgamero/sandbox/wiki/X-Regular-Expressions
Andrey: Спасибо santy
полная версия страницы