HMGforum.com

Posted: **Wed Feb 24, 2021 7:36 am**

AUGE_OHR wrote: ↑Tue Feb 23, 2021 10:45 pm hi Mol,
mol wrote: ↑Tue Feb 23, 2021 6:29 pm It works OK when you change field name.
i was sure that it will fail when change FIELD Name ...
now i have test it with DBU and it work

so you are right

Hola.., yo tambien uso DBU y funciona correctamente "en ocasiones".
No he prestado mucha atención, pero creo que cuando la DBF contiene un campo MEMO es cuando da error (Dice que la DBF esta dañada), y tengo que usar la utilidad DBA...
Sl2

Posted: **Wed Feb 24, 2021 11:20 pm**

hi,

so it it still "more safe" to use FIELDGET() / FIELDPUT() to transfer data when Structure was change

Posted: **Fri Mar 26, 2021 8:16 pm**

Estimados estoy trabajando sobre un replicador/modificador de un dbf y hoy no estoy muy inspirado, Alguno de uds tiene una funcion para Validar el Nombre de la columna de un dbf, que no tenga caracteres caracteres no permitidos, longitud maxima, primer caracter no numerico? es una aplicacion que pienso subirla para que lo use cualquiera codigo incluido, aun me falta bastante pero en algun momento la terminare.

Posted: **Fri Mar 26, 2021 8:32 pm**

asi luce

: Screen_all.png (63.3 KiB) Viewed 2123 times

Posted: **Fri Mar 26, 2021 10:51 pm**

Hola...
Basado en una función que subí ayer le agregue lo que necesitás...

Code: Select all

Function ValidFieldName (cCadena)

LOCAL cValid := .T.
LOCAL i

	If ValType (cCadena) <> "C"
	
		Return .F.
		
	EndIf

	If SubStr (cCadena,1,1) $"0123456789" .OR. Len (cCadena) > 10
	
		Return .F.
		
	EndIf
	
	For i = 1 To Len (cCadena)
	
		If ! Lower ( SubStr (cCadena,i,1)) $"abcdefghijklmnopqrstuvwxyz0123456789_"	// lista de caracteres permitidos
		
			cValid := .F.
			
		EndIf
		
	Next

Return cValid

Posted: **Sat Mar 27, 2021 2:45 pm**

Buscando otra cosa miren que encontré en el libro: 109 Funciones en Cli**er

Es también para validar nombres de campos DBF.
Al menos la mía es más completa

: 20210327_112915.jpg (158.08 KiB) Viewed 2088 times

Posted: **Sat Mar 27, 2021 6:24 pm**

Nooooooo.... me muero tenes un libro de clipper todavia? jajajaja Que groso Bueno muchas gracias Claudio Ricardo, Postea la una foto de la tapa del libro asi me hago trago de nostalgia

Posted: **Sat Mar 27, 2021 8:28 pm**

Los cuido como a un tesoro

Tengo de Basic, Assembler y muchos más.

: 20210327_172218.jpg (1.75 MiB) Viewed 2065 times

Posted: **Sat Mar 27, 2021 11:42 pm**

Eres un desgraciado... jajajaja. Ahora sé donde estaban los libros de clipper de assembler y de basic cuando yo pateada calles y avenidas por las librerias buscando ese material... No estarás pensando llevártelo a la tumba no?

Atencion mis Valientes hago esta declaración

Declaro los libros de Claudio Ricardo como Patrimonio de la Humanidad y uds mis valientes (machos de pecho peludo, lomo plateado y pito chanfleado) de hmgforum los fieles protectores de dicho material y si por accion mezquina se los lleva a la tumba han de profanar y buscar dicho material entre los huesos del tal Ricardo.

Ja!
PD que buen material Ricardo. Yo como soy programador COBOL CICS solo tengo de cobol y alguno de C pero estan bien guardaditos.
Programo en HMG por hobbie.
Un abrazo

HMGforum.com

Modificar estructura de una DBF

Re: Modificar estructura de una DBF

Re: Modificar estructura de una DBF

Re: Modificar estructura de una DBF

Re: Modificar estructura de una DBF

Re: Modificar estructura de una DBF

Re: Modificar estructura de una DBF

Re: Modificar estructura de una DBF

Re: Modificar estructura de una DBF

Re: Modificar estructura de una DBF