本文目录一览：
VB怎么修改文本内容呢？
打开原txt文件读取修改，放入新建txt文件内：
Sub ReplaceTxtFile()
Dim f1, f2
f1 = "D:\1.txt" '原文件路径
f2 = "D:\2.txt" '修改后文件路径
Open f2 For Output As #2
Open f1 For Input As #1
Do While Not EOF(1)
Line Input #1, vartemp '读取f1,修改f1
If InStr(1, vartemp, "身高", vbTextCompare) 0 And InStr(1, vartemp, "男", vbTextCompare) 0 Then
vartemp = Replace(vartemp, "男", "女")
End If
Print #2, vartemp '写入f2
Loop
Close #1
'Kill f1'可以删除f1
Close #2
End Sub
请大家帮忙用“胡甘霖”为我女朋友写一首藏头诗，歌词也行，谢谢大家！
思美人兮西华山
胡烟白草日光寒
甘辛未省有如许
霖雨苍生四海传
安徽新华学院怎样？
我就是新华的，开学大四了，现在正在准备考研，学校环境不错，学习氛围一般，不过图书馆的学习氛围很强，在三本里是很不错的，当然和那些一本二本没法比。强项专业有土木，自动化，和财务管理，主要还是看自己在大学里怎么度过，要有目标，有的同学很奋斗，有自己的专利和奖项，但有的玩了几年游戏到头来啥都没有学到！