批量修改文本内容,相对复杂

我可以的..

只是姓名是从哪儿来的?
Record0是从0一直向后排的吗?

=======================================
补充:下面是VB源代码,放在VB中编译就行了..你的文本放在C盘根目录下的,1.txt,每行1条邮箱记录,生成的叫2.txt
如果没VB程序,可以留下邮箱,我帮你生成程序,你直接用:

Private Sub Command1_Click()
Dim s$(), i%, a$
ReDim s(5000)

Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
If Trim(a) <> "" Then
s(i) = "[Record" & i & "]" & vbCrLf
s(i) = s(i) & "姓名:" & i + 1 & vbCrLf
s(i) = s(i) & "电子邮件地址:" & a & vbCrLf
s(i) = s(i) & "手机:"
i = i + 1
End If
Loop
Close #1

If i > 0 Then i = i - 1
ReDim Preserve s(i)

Open "c:\2.txt" For Output As #1
Print #1, Join(s, vbCrLf)
Close #1

MsgBox "搞定了,一共有" & i + 1 & "条记录.."
End Sub