|
. clear
. input ///
> year a1 str20 a2 a0
year a1 a2 a0
1. 1999 102338 国营一厂 102338
2. 1998 . 国营一厂 102338
3. 1999 . 国营二厂 234567
4. 1998 234567 国营二厂 234567
5. end
. list
+-----------------------------------+
| year a1 a2 a0 |
|-----------------------------------|
1. | 1999 102338 国营一厂 102338 |
2. | 1998 . 国营一厂 102338 |
3. | 1999 . 国营二厂 234567 |
4. | 1998 234567 国营二厂 234567 |
+-----------------------------------+
.
. sort a2 a1
. list
+-----------------------------------+
| year a1 a2 a0 |
|-----------------------------------|
1. | 1998 234567 国营二厂 234567 |
2. | 1999 . 国营二厂 234567 |
3. | 1999 102338 国营一厂 102338 |
4. | 1998 . 国营一厂 102338 |
+-----------------------------------+
. replace a1=a1[_n-1] if a2[_n-1]==a2[_n]
(2 real changes made)
. list
+-----------------------------------+
| year a1 a2 a0 |
|-----------------------------------|
1. | 1998 234567 国营二厂 234567 |
2. | 1999 234567 国营二厂 234567 |
3. | 1999 102338 国营一厂 102338 |
4. | 1998 102338 国营一厂 102338 |
+-----------------------------------+
.
end of do-file
|