VB批量替换文本字符
摘要:
Private Sub Command1_Click()Open App.Path & "\abc.txt" For Binary As #1a = Input(LOF(1), 1)Close #1a = Replace(a, "标记一", Text1.Text)a = Replace(a, "标记 阅读全文
posted @ 2019-02-20 13:17 猫头鹰111 阅读(1515) 评论(0) 推荐(0) 编辑