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: