Números de origem fora do Harbour são tratados diferentes de números internos do Harbour.
Uso:
- ValType() pra testar o tipo de conversão
- No caso de números, se resultar em 1.00000, vou removendo os zeros, e o ponto
- E vou acumulando numa string até 500KB, antes de gravar no disco.
Já removi o Len() que fazia no texto de até 500kb, substituindo pelo Len() dos trechos individuais
Imagino que texto menor calcula mais rápido...
É algo do tipo:
FOR nCont = 1 TO FCount()
xValue := FGet( nCont )
DO CASE
CASE ValType( xValue ) == "N"; xValue := NumberSql( xValue )
CASE ValType( xValue ) == "D"; xValue := DateSql( xValue )
OTHERWISE ; xValue := StringSql( xValue )
ENDCASE
cTexto += xValue
NEXT
Alguma idéia pra agilizar isso?
Agora durante post.... talvez cType := ValType( xValue ) uma única vez agilize alguma coisa.