Moderador: Moderadores
FUNCTION Main( cFileName )
LOCAL cText, cLetra
ctext := MemoRead( cFileName )
FOR EACH cLetra IN cText
DO CASE
CASE cLetra $ "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
CASE cLetra $ "abcdefghijklmnopqrstuvwxyz"
CASE cLetra $ "0123456789"
OTHERWISE
? cLetra, Asc( cLetra ), cLetra:__EnumIndex, Substr( cText, cLetra:__EnumIndex - 20, 40 )
ENDCASE
NEXT
RETURN NIL
AutomoSistema escreveu: Vou citar um exemplo q acontece, o nome do campo é produto tamanho 50 caracteres contendo um produto com o nome CARNE COXAO MOLE. Só issono campo e nada mais e o erro acontece.
Usuários vendo este fórum: Google Adsense [Bot] e 8 visitantes