VB如何给txt每行最后加上一个符号

Sub merge(newfile As String, file_add() As String)
Dim flnum1 As Integer, flnum2 As Integer, n As Integer, txt() As String
flnum1 = FreeFile: n = 1 '初始化变量

Open newfile For Output As #flnum1
For i = LBound(file_add) To UBound(file_add)
flnum2 = FreeFile
'下面的代码将读取文件内容到数组中，并添加标记
Open file_add(i) For Input As #flnum2
ReDim Preserve txt(n)
Line Input #flnum2, txt(n)
txt(n) = "Q:" + txt(n)
Do While Not EOF(flnum2)
n = n + 1
ReDim Preserve txt(n)
Line Input #flnum2, txt(n)
txt(n) = "A:" + txt(n)
Loop
Close #flnum2
n = n + 2

Next

'下面的代码将生成一个合并后的文件，并删除旧文件
'删除文件
GoTo here
For i = LBound(file_add) To UBound(file_add)
Kill file_add(i)
Next
here:
'生成合并文件
For i = 1 To UBound(txt)
Print #1, txt(i)
Next
Close #flnum1
End Sub

你可以将上述代码粘贴到程序的任意位置，然后按照以下方式调用（不知道你会不会过程调用，若有不会的请追问）：

调用方式：Call merge(newfile,file_add)

参数说明：

newfile：合并后的文件的地址（地址要完整，包括盘符、目录、文件名、扩展名，或用相对路径）。比如，你要将需要合并的文件合并成一个文件，名为merged.txt，且在E盘中，则newfile参数为"E:\merged.txt"

file_add：是一个数组，包含需要被合并的文件名的地址（使用规则与newfile相同）

回答人的补充 2010-09-22 21:52 如果你看不懂代码，没关系，你可以不用管代码写的是什么，把它粘贴到程序的任意位置，然后就可以调用了(就像使用库函数一样)。这里举个调用的例子：

单击按钮Cmd后，则把E:\m.txt和D:\file\n.txt的内容合并为一个文件（新的文件为C:\new.txt），代码如下：

Private Sub Cmd_Click()
dim a(1 To 2) As String,file As String

a(1) = "E:\m.txt"

a(2) = "D:\file\n.txt"

file = "C:\new.txt"

Call merge(file,a())

End Sub

使用流程：

首先定义一个字符型变量、一个字符型数组，然后将需要合并的文件地址及名称全部存储到数组中，再将合并后的文件地址及名称存储到变量中，再将变量、数组以参数的形式传递给merge过程即可。

sub command1_click()
dim strfilename as string
dim newfilename as string
dim tempStr as string
open strfilename for input as #1 '打开原来的TXT文件
open newfilename for output as #2 '新文件用于写入
do while not eof(1)
line input #1,tempStr
print #2,tempStr+"/"
loop
close #2
close #1
kill strfilename '删除原文件
rename newfilename strfilename '新文件更名为原文件名
end sub

喜欢钻研