Caracteres especiales o de Control - VB-MUNDO

JuniorTuPapa · #1 (**permalink**) 08-09-2005, 15:56:12

Saludos Amigos.

Estoy leyendo un archivo CSV generado desde la aplicación contable Peachtree. Quisiera saber cómo hago para saber si dicho archivo contiene al principio y al final del archivo algún caracter especial o de control.

Gracias

acalanto · #2 (**permalink**) 08-09-2005, 17:09:50

Que yo sepa un archivo CVS es un tipo ascii plano que separa sus items por el caácter ',' o ';'.

Al ser un fichero de texto también contendrá CRLF o chr(13)+chr(10), no sé si en este mismo orden, para separar las diferentes líneas de fichero.

si deseas buscar otros caracteres de control además de estos que te indico, tendrás que hacerlo leyendo el fichero en formato binario, cargándolo en un String y verificar desde el ASCII '0' al ASCII '31' mediante INSTR(cadfic, caracter).

JuniorTuPapa · #3 (**permalink**) 09-09-2005, 00:46:17

Gracias por tu respuesta. Pero podrías ampliar tu explicación? Tal vez me indicarías como es el código para tal fin?

Nuevamente muchas gracias

acalanto · #4 (**permalink**) 09-09-2005, 05:50:20

Algo como esto.

Código:

Dim txt as String
dim ce_1(0 to 31) as long
dim wPtr as long, i as integer
'Cargamos el contenido en una cadena
open "nombrefichero" for binary as #1
txt = lof(1)
get #1,,txt
close #1
'Ahora vamos a contar el número de caracteres especiales
for i = 0 to 31
    wPtr = 0
    do until wPtr > len(txt)
        'Buscamos el puntero a una coincidencia del carácter (i)
        wPtr = instr(wPtr+1, txt, chr(i))
        if wPtr <> 0 then ce_1(i)=ce_1(i) + 1 else exit do
    loop
next i

JuniorTuPapa · #5 (**permalink**) 12-09-2005, 04:46:39

Nuevamente Muchas Gracias...Eres todo un maestro!