FiveTech Software tech support forums

... at a time set century on set date british set epoch to 1950 set deleted on if MsgGet( ctitle, cText, @cgroep, cBmpfile) cnaam=LEFT(cgroep,10) cchar=SUBSTR(cgroep,12,1) clenght=SUBSTR(cgroep,14,2) cdecim=RIGHT(cgroep,1) use verkoop copy to newverkoop structure extended use newverkoop replace ...

... oSay:SetText( LTRIM( STR( ROUND( (nX1/LEN(aImages))*100, 2), 9, 3) ) + "% Complete . . ." ) Sysrefresh() FOR nX2:=1 TO LEN(cTemp) cChar := SUBSTR(cTemp,nX2,1) IF (cChar=="-") .OR. (cChar=='.') EXIT ENDIF cItem += cChar NEXT nX2 IF ! EMPTY(cItem) //cSqlIns := [INSERT asset ...

... FUNCTION _SqlBuild( cSqlField, cSqlValue, cSqlType, cSqlString1, cSqlString2 ) local cTemp := "", cChar, nX, cPrefix := "" // String1.... IF ! EMPTY( cSqlString1 ) cSqlString1 += "," ENDIF cSqlString1 += cSqlField // String2... ...

... CharXOR(<cString1>,<cString2>)->cResult CheckSum(<cString>)->nCheckSum Chr(<nCode>)->cChar ClearBit(<nInteger>|<cHex>,[<nBitPos,...>])->nNewValue ClearEol([<nRow>],[<nCol>],[<xColor>],[<xChar>])->cNull ...

... cWinResp := oHttp2:ResponseBody // Token ID... nPos := AT( "ACCESS_TOKEN", UPPER(cWinResp) ) lStart := .F. FOR nX0=nPos TO LEN(cWinResp) cChar := SUBSTR( cWinResp, nX0, 1 ) IF cChar==":" lStart := .T. ELSE IF cChar=="," EXIT ELSE IF lStart .AND. (! EMPTY( cChar )) ...

... oError lError := .T. END ENDIF // Copy to history... IF ! EMPTY(cTxemail) // Init... cTemp := "" aEmail := {} FOR nX7=1 TO LEN(cTxemail) cChar := SUBSTR( cTxemail, nX7, 1 ) IF cChar=="," IF ! EMPTY( cTemp ) AADD( aEmail, cTemp ) ENDIF cTemp := "" ELSE cTemp += cChar ...

... := "" nRowMax := nMax // 13 nRowCnt := 0 IF 'LINK=' $ cQueryString lLink := .T. lStart := .F. cUID := '' FOR nX=1 TO LEN( cQueryString ) cChar := SUBSTR( cQueryString, nX, 1 ) DO CASE CASE cChar='=' lStart := .T. CASE cChar='&' EXIT CASE lStart cUID += cChar ENDCASE NEXT nX ENDIF ...

Crsitobal, De donde obtienes cChar ?      case nCode == SCN_CHARADDED           // 2001           cLine     := ::GetLine( nLine - 1 )      ...

... // This example shows all possible return values of Type() PROCEDURE Main PRIVATE aArray := { 1, 2, 3 } PRIVATE bBlock := {|x| 1+x } PRIVATE cChar := "xHarbour" PRIVATE dDate := Date() PRIVATE hHash := Hash() PRIVATE lLogic := .F. PRIVATE nNumber := 123.45 PRIVATE oObject := GetNew() ...

Adhemar,

Puedes usar la function StrCharCount( cString, cChar ) --> nTimes de FWH está implementada en C y es muy rapida

Ojo que cChar ha de ser de tipo cadena, ej: Chr( 12 )

Darrell,

I have not tried it but its simple and seems fine, just a missing local cChar at the top.

How do you know that the DBFs are corrupted ? Does your app reports it when it tries to use them ?

Please email me the corrupted DBF, thanks

... FUNCTION _Clean( cXmlData ) local cReturn := "" , ; nX0 := 0 , ; lPass := .T. FOR nX0=1 TO LEN(cXmlData) cChar := SUBSTR( cXmlData, nX0, 1 ) IF (ASC(cChar)>31) .AND. (ASC(cChar)<127) cReturn += cChar ELSE IF "ABCHOU" $ Pmod cReturn += SPACE(1) ...

... + CRLF ) return Self //----------------------------------------------// METHOD EsLine( cLong ) CLASS TRtfArch local cLine, cChar local n, nChar cLine := cLong for nChar = 1 to Len( cLine ) if Asc( cChar := SubStr( cLine, nChar, 1 ) ) > 127 FWrite( ::hArch, "\'" ...

//AHORA CUARTA PARTE Static Function Letras( nVal, cText, lInicio, lTrozo ) local n := 1, nLen, cChar := "", lVacio := .t. local cPrev := "", min, may, cTc, nIni := 0, nSp := 0 local lSi := .t., aChar, cEl := "", cCadena := "" DEFAULT ...

//TERCERA PARTE Static Function Justify( oGet, oLine, oPrn, nMargen, nMargend, nJustif, oFontW ) local nPos, cLine := "", cChar := " ", nWidthChar := 0, aOpt := {} local xxx := 0, nVez := 0, nJust := 0, nI, lSeguir := .t., n, nFont, aText, cLinea, cIni, nIni local cTx2, ...