UC知道vb修改txt文件内容！急！
来源：百度知道 编辑：UC知道 时间：2024/06/23 23:56:27
数据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修改，这里有个特别要提
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修改，这里有个特别要提
程序做好了，你的邮箱在哪里？
用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稍微简单一点