求高手帮忙

小小小圊年

下面的数因为他们的顺序不同，所以想用VB程序读取TXT格式文件内特定字符后的数据并进行简单的平均值计算，该怎么编写程序？比如几个“长安”后面的数：15 14.1 21.3 17.4
数据如下：
长安        15
金装        14.5
长岗        14.5
南丰        13.9
莲都        13.9
江口旧站        13.8
江口新站        13.5
渔涝        13.4
河儿口        13.3
大玉口        13
江川        12.8
江口水汽交换站        12.8
泗科        12.7
莲都河口        12.3
白垢        12.2
都平        12
七星        11.7
罗董        11.6
平凤        11.5
平凤平岗        11.1
罗董思寮        10.8
深六        9.5
杏花        0
长岗        15.5
江口旧站        14.2
长安        14.1
莲都        14.1
金装        14
南丰        14
河儿口        13.8
莲都河口        13.7
江川        13.7
渔涝        13.6
江口新站        13.5
江口水汽交换站        13.1
大玉口        13.1
泗科        12.9
白垢        12.9
罗董        12.5
罗董思寮        12.5
平凤        12.5
七星        12.4
平凤平岗        12.4
都平        12.4
深六        11.6
杏花        0
白垢        24.7
河儿口        24.2
都平        24.1
江口旧站        24.1
平凤        24.1
长岗        24.1
平凤平岗        23.7
渔涝        23.6
南丰        23.5
江川        23.5
泗科        23.4
江口水汽交换站        23.2
罗董思寮        22.8
江口新站        22.7
罗董        22.5
金装        22.1
杏花        22
七星        21.9
大玉口        21.9
莲都河口        21.8
莲都        21.7
长安        21.3
深六        19.2
河儿口        19
渔涝        18.4
长岗        18.2
江口新站        18.1
莲都        18.1
泗科        18.1
江口旧站        17.8
南丰        17.7
江口水汽交换站        17.7
江川        17.4
大玉口        17.4
长安        17.4
白垢        17.2
金装        17.2
都平        17.1
平凤        16.6
杏花        16.5
平凤平岗        15.6
罗董        14.8
莲都河口        14.8
罗董思寮        14.7
七星        14
深六        11.8

river

这个数据用Fortran读成两列，第一列读成字符型，第二列读成实数型，然后判断，当第一列字符型数组等于 长安时，此时就将第二列的数加起来

qxtjls

用vb也能实现滴