FiveTech Software tech support forums

... Dim s2 As String = s.Replace(" ", Nothing) For i As Integer = 0 To s2.Length - 1 Step 2 result += Convert.ToChar(Integer.Parse(s2.Substring(i, 2), System.Globalization.NumberStyles.HexNumber)) Next Return result End Function // c++ int calcularLRC(unsigned char *pi_sTrama, int ...

Marco Augusto wrote:Quiza con la funcion AT

cCAD="abcdfe"+crlf+"12345"

cCAD2=SUBSTRING(cCAD,1,AT(CHR(10),cCAD)-1)

Can you provide a working sample?

Quiza con la funcion AT

cCAD="abcdfe"+crlf+"12345"

cCAD2=SUBSTRING(cCAD,1,AT(CHR(10),cCAD)-1)

... ' harbour' :' Help splitting up a character address string Postby Rick Lipkin » Tue Nov 14, 2023 9:29 pm To All I seem to have lost my ability to substring an Address field into seperate cStreet, cCity, cState and cZip variables ... here is a address field I want to break out into the above fields ...

To All I seem to have lost my ability to substring an Address field into seperate cStreet, cCity, cState and cZip variables ... here is a address field I want to break out into the above fields cAddress := "258 Shoreline Drive, Columbia, ...

José Luis:

Tal como te dice CMSOFT, necesitas un lector de código QR, este te devolverá una cadena de texto la cual
debes descomponer o trozear con SUBSTRING() dependiendo de donde se encuentra el trozo de código
que te interesa.

Saludos

... function. See the Clipper Reference Guide here: https://harbour.github.io/doc/clc53.html Note that you can look for a substring and do a replace with another string using this function. cString:= StrTran(cString," ,", ",") The above looks for any ...

cQry := "DELETE FROM cont0500" + CLRF
cQry += "WHERE SUBSTRING(bcodi,1,1)=" + ClipValue2SQL( "1" )
oCn:Execute( cQry )

... := CallGoal( Prolog_Id_n )  , and the first such call would return something like "T 0000\r\nthe" , and you would take a substring to bypass the status part, and retrieve "the". Wow, I can't believe it. I wasn't expecting this level of completeness, just a few ...

And how can I figure out how many parts to split a continuous string into ? After all, the width of each substring can be different (depending on the font)

Tested and works perfect

all types of vars for the filtering are covered now
and I can finish the job



thank You very much

regards
Uwe

  cFilter     := ""   if !Empty( dDate1 )      cFilter  := "HIREDATE >= " + TRANSFORM( DTOS( dDate1 ), "@R {^ 9999/99/99}" )   endif   if !Empty( dDate2 )    &...

Have you tried with

my_filter = "dtos(oCust:Hiredate) >= dtos(" + ctod(dDate1) + ")"
oCust:SetFilter(my_filter)

May I still ask for another solution ? I need a filterstring for a date-range field Hiredate from customer.dbf defined date-vars dDate1 and dDate2 to filter a date-range that means for a empty dDate2 1) oCust:Hiredate >= dDate1 and with defined dDate1 and !empty dDate2 2) oCust:Hiredate >= dDa...

Works perfect
thank You very much

sometimes I'm thinking to complicated

After getting cLast, you can build the filter like this:
oCust:SetFilter( "UPPER(LAST) = '" + Trim( cLast ) + "'" )

regards
Uwe