Private Sub Command1_Click()
Open App.Path & "\abc.txt" For Binary As #1
a = Input(LOF(1), 1)
Close #1
a = Replace(a, "标记一", Text1.Text)
a = Replace(a, "标记二", Text2.Text)
a = Replace(a, "标记三", Text3.Text)
Open App.Path & "\abc.txt" For Output As #2
Print #2, a
Close #2
End Sub

最新文章

1. Tomcat7基于Redis的Session共享实战二
2. Asp.Net完美隐藏服务器信息
3. HDU 5010 Get the Nut(2014 ACM/ICPC Asia Regional Xi'an Online)
4. Javascript模式（第四章函数）------读书笔记
5. codis安装手册
6. Intelij IDEA 2016.3安装mybatis插件并激活教程
7. 在SQL Server里如何进行页级别的恢复
8. [每日自动更新]Hillstone 山石网科 StoneOS ISP路由表配置文件
9. sqlhelper-sql数据库
10. 【转】eclipse 安装插件
11. 802.11 wireless 三
12. android153 笔记 5
13. Sunny谈软件架构
14. bzoj1001（对偶图最短路）
15. Python xml 模块
16. Neutron server的运行原理（未完待续）
17. Linux提示删除文件cannot remove `文件名': Operation not permitted
18. centos7，Python2.7安装request包
19. Java Socket重要参数讲解
20. 不停机不停服务，MYSQL可以这样修改亿级数据表结构

热门文章

1. Python 的赋值坑 ， a=b=c=1???
2. python大法好——python json
3. Unity3D人脸建模 AvataSDK研究
4. python day09 函数（第一篇）
5. vue---canvas实现二维码和图片合成的海报
6. 基于DPDK的高效包处理系统
7. Django 自带登录验证:authenticate和login,login_require,logout模块
8. hbase-hive整合及sqoop的安装配置使用
9. jmeter入门非GUI（三）
10. wpf改变网格字体颜色