INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS
Come Join Us!
Are you a
Computer / IT professional?
Join Tek-Tips now!
- Talk With Other Members
- Be Notified Of Responses
To Your Posts
- Keyword Search
- One-Click Access To Your
- Automated Signatures
On Your Posts
- Best Of All, It's Free!
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.
Partner With Us!
"Best Of Breed" Forums Add Stickiness To Your Site
(Download This Button Today!)
"...It's fun to see others going through the same stuff I did and be able to help. It's also a way for me to stay sharp and not lose the stuff I've learned..."
Where in the world do Tek-Tips members come from?
Databases and tables
Remove CDX reference from table
Posted: 25 Oct 03
Sometimes it is easy to remove cdx references from tables by program.
* this function deletes the cdxref from any dbf.
* usage: lresult = nocdxref('C:\TABLES\MYTABLE.DBF')
private filehandle, cdxbyte
rdfile = alltrim(rdfile)
filehandle=FOPEN(rdfile,12) && Open the file
if filehandle < 0
wait(rdfile+' NOT FOUND or IN USE')
=FSEEK(filehandle, 28,0) && Move pointer before 29th byte
cdxbyte = asc(fgets(filehandle,1)) && read byte 29
if cdxbyte % 2 = 1 && test if it has a cdx
cdxbyte = cdxbyte - 1 && if so change it
=FSEEK(filehandle, -1,1) && Move pointer before 29th byte again
=FWRITE(filehandle, chr(cdxbyte), 1) && write changed byte to dbfheader
Back to Microsoft: Visual FoxPro FAQ Index
Back to Microsoft: Visual FoxPro Forum
Join Tek-Tips® Today!
Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.
Here's Why Members Love Tek-Tips Forums:
- Talk To Other Members
- Notification Of Responses To Questions
- Favorite Forums One Click Access
- Keyword Search Of All Posts, And More...
Register now while it's still free!
Already a member? Close this window and log in.
Join Us Close