Originally posted by Joseph Coveney
View Post
Best
Daniel
. cap program drop whatversion . program define whatversion 1. syntax anything 2. file open handle using "`1'", read text 3. file seek handle 28 4. file read handle test 5. file close handle 6. noi di as smcl `"For file: `1'"' 7. noi di as smcl `"Header: `=substr(`"`test'"', 1, 3)'"' 8. end . . . . **test small file first . global mydir `"/users/ebooth/desktop//"' . sysuse auto, clear (1978 Automobile Data) . sa `"${mydir}/test.dta"', replace file /users/ebooth/desktop///test.dta saved . whatversion `"${mydir}/test.dta"' For file: /users/ebooth/desktop///test.dta Header: 118 . . . . **more than 35000 vars . clear . set maxvar 36000 . set obs 100 number of observations (_N) was 0, now 100 . forval n = 1/35000 { 2. g var`n' = 1 3. } . desc, sh Contains data obs: 100 vars: 35,000 size: 14,000,000 Sorted by: Note: Dataset has changed since last saved. . sa `"${mydir}mpfile.dta"', replace file /users/ebooth/desktop//mpfile.dta saved . whatversion `"${mydir}mpfile.dta"' For file: /users/ebooth/desktop//mpfile.dta Header: 119 . . . u var1-var10 using `"${mydir}mpfile.dta"' . sa `"${mydir}mpfile_extract.dta"' , replace file /users/ebooth/desktop//mpfile_extract.dta saved . whatversion `"${mydir}mpfile_extract.dta"' For file: /users/ebooth/desktop//mpfile_extract.dta Header: 118
Leave a comment: