Question

vb修改txt文件内容！急！

数据1：
850h=1473
850t=162
850td=36
850d=55
850f=10
700h=3096
700t=56
700td=25
700d=5
700f=4
500h=5780
500t=-95
500td=15
500d=210
500f=21
400h=7470
400t=-183
400td=14
400d=240
400f=29
300h=9570
300t=-325
300td=26
300d=265
300f=23
200h=12290
200t=-543
200td=24
200d=260
200f=39
150h=
150t=
150td=
150d=
150f=
100h=
100t=
100td=
100d=
100f=
h0=3052
h5=3941
h12=5221
h20=6682
f300/f850=2
h20-h0=3630
hc=880
hf=1538
hz=1624
Pc=805
Pf=740
Pz=740
Tc=11.8
Tf=9.0
Tz=8.4
SI=-2.5
SSI=15.0
T850-T400=34.5
K=35.8
U=3.4
F=6
A=888.0

将上述txt文件里的内容200f下面的内容都不要然后将200f以上内容修改为以下一一对应关系，并保存在另一个txt文件里，如上述第一行850h=1473,850t=162,850td=36,850d=55,850f=10,我这里修改了一行，求高手能不能将上述内容按照我刚才改的方法一一对应修改下，用VB修改，这里有个特别要提出的，下面每一行输入是有要求的，每个字符段是从后面向前面输入的，我能力有限，在这里求教，分数不多，但我倾我所有，以表谢意
层 高度 温度 露点 风向 风速
850 1473 162 36 55 10
700 297 -18 -33 290 20
500 541 -33 -40 270 39
400 696 -41 -55 265 50
300 887 -51 -64 265 47
200 1147 -58 -71 270 45
150 1332 -55 -68 270 39
100 1591 -57 -70 280 35
每个字符段是后面对齐的，比如下面两
193 1477
24 348
上面个字符3和4是对齐的，7和8是对齐的，不是2和1 ，7和8对齐。我处理的类似文件很多有几百份，希望提供下可行方法，最好有代码！万分感激！！

Answer 1

程序做好了，你的邮箱在哪里？

用vb比较繁琐：
数组维数从1开始，
先用回车符split，得到一个一维数组，
（可选：统统替换＝为＝加空格（个数从1到3个，用字符串长度判断）
一维数组号除以5，得数i为二维数组第一维，余数1，获取前三个数字=A(i,1),第一行获取＝后面的数字＝A(i,2)
第二行获取＝后面数字＝A(i,3)
（可选：最后判断，len（A(i,j)）＝4 A(i,j)＝" " & A(i,j)）

j=1 to 6 后面插入A(i,j)，最后插入回车
然后i=1 to 数组第一维长度 循环
用word vba稍微简单一点