在你的程序上添加一个文本框textBox,将文本框多行属性改为ture和改为不可见属性,然后执行以下代码Private Sub Command1_Click()Dim tmp$Open App.Path + "\a.txt" For Input As #1 '在a.txt输入你的txt文件相应的文件名Do While Not EOF(1)Line Input #1, s$tmp = "/" + s '此处为你所要加的具体符号,暂用/号代替Text1.Text = Text1.Text & tmp & vbCrLfLoopCloseOpen App.Path + "\a.txt" For Output As #1 '在a.txt输入你的txt文件相应的文件名Print #1, Text1.TextCloseEnd Sub
给你个简单的。===========Private Sub Command1_Click()Open "d:\1.txt" For Input As 1Open "d:\2.txt" For Output As 2Print #2, "/" & Replace(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf, vbCrLf & "/")CloseEnd Sub
Private Sub Command1_Click()dim a() as string dim i as long dim tmp as string i=0open "c:\1.txt" for input as #1do while not EOF(1)line input #1,a(i)i=i+1loopclose #1open "c:\1.txt" for output as #1for eachtmpin aprint #1,"\" & tmpnext close #1End Sub