I'm afraid not.
I did try it back then....and a lot of other things.
I remember you also sugested to edit with notpad but nothing worked.
So ended up creating a new one.




>Just curious, did it help?
>
>>gosh, I hope you did not come up w/this off the top of you head, in just a couple of minutes! (:0)
>>thanks Celtin, I'll give it a try now.
>>I guess I will have to pay more attention to this kind of things. Is the first time I have a corrupted form, and of course, it happens now that I need to set the app in the next 7 min.
>>
>>
>>
>>>
>>>Edgar,
>>>I was just leaving. I don't have time for details, if it had some garbage you could try this on a copy :
>>>

fastrepair('blahblah.scx')
>>>function fastrepair
>>>Lparameters tcDBF
>>>Local handle, lnFileSize, lnReccount, lnHeaderSize, lnRecordSize, ;
>>>	lnCalculatedReccount, llHasMemo
>>>handle=fopen(tcDBF,12) && Opened readwrite
>>>lnFileSize = fseek(handle,0,2) && Get file size
>>>* Read header info
>>>With this
>>>	lnReccount   = ReadBytes(handle, 4,4)
>>>	lnHeaderSize = ReadBytes(handle, 8,2)
>>>	lnRecordSize = ReadBytes(handle,10,2)
>>>
>>>	lnCalculatedReccount = floor((lnFileSize-(lnHeaderSize+1))/lnRecordSize)
>>>	If lnCalculatedReccount # lnReccount && If calculated # recorded fix it
>>>		WriteBytes(handle, 4,4,lnCalculatedReccount)
>>>	Endif
>>>Endwith
>>>=fclose(handle)
>>>
>>>function readbytes
>>>Lparameters tnHandle, tnPos, tnSize, tlLR
>>>Local lcString, lnRetValue,ix
>>>=fseek(tnHandle, tnPos,0) && Go to pos
>>>lcString = fread(tnHandle, tnSize) && Read tnSize bytes
>>>lnRetValue = 0
>>>For ix=0 to tnSize-1  && Convert to a number
>>>	lnRetValue = lnRetValue + asc(substr(lcString,ix+1)) * ;
>>>		iif(tlLR,256^(tnSize-1-ix),256^ix)
>>>Endfor
>>>Return int(lnRetValue)
>>>
>>>function WriteBytes
>>>Lparameters tnHandle, tnPos, tnSize, tnNumber, tlLR
>>>Local lcString, lnLowDword, lnHighDword,ix
>>>lcString=''
>>>If tlLR
>>>	For ix=tnSize-1 to 0 step -1
>>>		lcString=lcString+chr(tnNumber/256^ix%256)
>>>	Endfor
>>>Else
>>>	For ix=0 to tnSize-1
>>>		lcString=lcString+chr(tnNumber/256^ix%256)
>>>	Endfor
>>>Endif
>>>=fseek(tnHandle, tnPos,0) && Go to pos
>>>Return fwrite(tnHandle,lcString)
>>>

Cetin