FiveTech Software tech support forums

All this is ok, as long as you know the text. And substitution by itself is a simple one line code. The user copies some text from some other window or application or a webpage by pressing Ctrl-C or by selecting Copy from the context And as a programmer ...

... in a certain programming language syntax and outputs another text file in a different language's syntax. Features: It offers file inclusion, substitution facilities, and conditional compilation. Modularity: Harbourino enables splitting complex functions or classes into smaller, manageable ...

please provide an example of what you need

Sorry, Antonio! I don't really understand how substitution characters can be used in regular expressions. I need to find a phrase in the text. This phrase is in the text, but the separators between the words may be different

Is it possible to search through a text string using substitution characters (? / *) ?

... with this string. The substituted string can be shorter or longer. In this case, the 2nd parameter should be passed by reference. The search and substitution respects the parameters lWholeWord, lSkipQuotes and lAllMatches. cSearch := "ear"cString := "Year Ear Hear"nAt := FW_AT( ...

From 18.04 we stopped considering :1, :2, ....:n as variables for substitution in ApplyParams() to avaoid confusion when the string contains values like "10:10:20".
&1, &2, ...&3 can still be used as in Dolphin.

This should resolve Mr. Vilian's issue.

... file stores a lot more information than text and font info. In some cases alignment, kerning etc of characters may get disturbed. Example: This substitution looks quite reasonable: cBuf  := StrTran( cBuf, AnsiToWide( "City" ), AnsiToWide( "CITY" ) ) ...

Thanks,

It works! and is better for reading the code.

Learning every day..

Thanks.

Here you are: function filldbf()   Local aCustfields:={}   local cField   local uVal   local cM_field   // MEMVAR cAlias   use slave   select slave   zap   close   use DASSY NEW alias CUST   use slave NEW alias slave   use master NEW alias master   select cust   AliasCust = alias&#...

Thanks guys, With the samples I get it to work ! Macro substitution is bad: - slow (more slow than dbf field functions) - avoid compiler syntax analisys. Better harbour programming style is do not use macro substitution: Out of curiosity, You suggested ...

Marc: Look at this examples code: PADRON->(DBGOTOP()) DO WHILE !PADRON->(EOF()) IF !TMOVMES->(DBSEEK(CONCEPTO->COD+PADRON->MP,.F.)) TPADRON->(DBAPPEND()) COPIAREG('TPADRON','PADRON') ENDIF PADRON->(DBSKIP()) ENDDO FUNCTION COPIAREG(xBaseEntra,xBaseSale) Local aCampos:={},i,aDato...

Macro substitution is bad: - slow (more slow than dbf field functions) - avoid compiler syntax analisys. Better harbour programming style is do not use macro substitution, so: // With preprocessor  is more rapid and clear ...

Dear Marc,

I use as you did but a bit different.

Code: Select all  Expand view

RvName := 'MHS->MHS_RV'+right(dtos(MEMVAR->comdat),2)
&(RvName) += round(TRN->TRN_UNIT * TRN->TRN_QTTY,2)