Archivo de disco en minusculas

[Daniel Burgos]

Hola grupo

Tengo un problema generando archivos de texto a disco. Utilizo la función upper() para la variable que utilizo, pero es grabado en minúsculas en el directorio destino y lo necesito en mayúsculas.

Alguna sugerencia?

Muchas Gracias

Daniel Burgos

[César Pistiner]

Hola Daniel,

Este link de este mismo foro creo que te puede ayuda.

Saludos,

César

[integral]

 

Amigo Daniel :

 

En mi caso tengo el mismo problema pero me sucede al hacer la copia adicional

 

Inicilamente me crea el nombre del archivo en Mayuscula pero luego dicho archivo lo copio a otra carpeta y es ahi donde se convierte a minuscula....

 

Te paso el siguiente codigo a vr si lo adaptas y quizas te funcione...

 

Por cuestiones de tiempo en el desarrollo lo deje asi...

 

x_nom = STRTRAN(SUBSTR(z_idasn,1,15) + "_" + IIF(c_Perfil = "USE","1",STR(Contador,1,0)) + ".TXT", 'asn', 'ASN')  

atte.,

 

INTEGRAL

[Fidel Charny]

Si usas Scripting.FileSystemObject el archivo se genera como tu lo escribes.

LOCAL FSO,OFCREATE,lcFile,lOverWrite
lOverWrite=.t.
lcFile="ArcHivoPrUEBa.Txt"

FSO = CreateObject("Scripting.FileSystemObject")
ofCreate= fso.CreateTextFile(lcFile, lOverwrite )
ofCreate.WriteLine("Texto1 agregado al archivo")
ofCreate.WriteLine("Texto2 agregado al archivo")
ofCreate.close

STORE null TO fso,ofcreate

[Daniel Burgos]

Gracias César, pruebo y te cuento

 

Saludos

Daniel Burgos

[Daniel Burgos]

Gracias Fidel, pruebo y te cuento. Aunque deberia usar, para un archivo completo, el metodo WRITE en vez del WRITELINE, no?

 

Saludos

Daniel Burgos

----- Original Message -----

From: Fidel Charny

To: publice...@googlegroups.com

[Fidel Charny]

Daniel
No sé que es lo que necesitas hacer. Si tienes que copiar un archivo en otro, depende un poco de cómo está armado el archivo fuente y de cómo necesitas que sea la salida.
Si tu problema es solamente la capitalización puedes probar de otra forma:

lcSource="c:\Theodore\Tools\Fso_Getfile.txt"
lcTarget=Upper(lcSource)
fso=NEWOBJECT("Scripting.fileSystemObject")
FSO.MoveFile(LcSource,lcTarget)
fso=null
Esto da como resultado que el nombre del archivo queda en mayúsculas.


Te contesto sobre tu pregunta.

*!*    Posibilidades de escritura de fso.CreateTextFile() // fso.OpenTextFile
*!*    Write(lcTexto)    Escribe la cadena sin CHR(13)+CHR(10). (0D + 0A)
*!*    WriteLine(lcTexto)    Escribe la cadena con CHR(13)+CHR(10)    (Salto de linea) =FPUTS()
*!*    WriteBlankLines(lnNumeroLineas)    Escribe lnNumeroLIneas en blanco

LOCAL FSO,OFCREATE,lcFile,lOverWrite
lOverWrite=.t.

lcFile="ArcHivoPrUEBa.Txt"
FSO = CreateObject("Scripting.FileSystemObject")
ofCreate= fso.CreateTextFile(lcFile, lOverwrite )
ofCreate.WriteLine("<Texto1 agregado al archivo>")
ofCreate.WriteLine("<Texto2 agregado al archivo>")

ofCreate.Write("<Texto que no tiene fin de linea y retorno de carro>")
ofCreate.Write("<Mas Texto escrito con Write>")
ofcreate.WriteBlankLines(2)
ofCreate.WriteLine("<Antes se imprimieron 2 líneas en blanco>")

[Daniel Burgos]

Gracias Fidel funcionó a la perfección. Estoy con la generacion del archivo de informe de retenciones de Ingresos brutos, se genera en un TXT plano, se compacta en zip y se debe generar el MD5 del archivo zip final, todo esto en un directorio temporal y finalmente moverlo a la carpeta de trabajo final para que el usuario lo suba. Dicho MD5, corroborado con un programa de ARBA "genhash", me daba error de hash por estar en minusculas. La copia la realizaba con "COPY FILE" pero el MoveFile lo dejó como lo necesito

 

Muchas gracias por tu aporte y tiempo

Saludos

 

Daniel Burgos

----- Original Message -----

From: Fidel Charny

To: publice...@googlegroups.com