可能得等个两三天才能弄完，兄弟你等得了吗？
不过先说下，你给的信息不太详细，我就按自己理解先做了哈！
搞定啦：
Private Sub Command1_Click()
Dim A As String, B1 As String, B2 As String, I As Integer
Dim T1 As String, T2 As String
T1 = Text1.Text
Open App.Path & VB.txt For Input As 1
Do Until EOF(1)
Input 1, A
For I = 1 To Len(A)
If Mid(A, I, 1) = Then Exit For
Next
B1 = Trim(Left(A, I))
B2 = Trim(Right(A, Len(A) - I))
T2 = Replace(T1, B1, B2)
T1 = T2
Loop
Close 1
Text1.Text = T2
End Sub
Private Sub Form_Load()
Text1.Text = 我爱你一生一世.我恨你一辈子
Command1.Caption = 替换
End Sub
记得在程序同目录下建个vb.txt文件，内容格式像这样：
我爱你 你爱我
我恨你 你恨我
当然，还能加别的，但格式要一样，中间用空格分开。
再补一句：
之前你例子出问题，主要是因为不能用半角逗号（,），VB会把它当分隔符处理，容易乱。
要是非得用逗号，建议换成全角的（，）就OK了~
这样能帮到你不？
不过先说下，你给的信息不太详细，我就按自己理解先做了哈！
搞定啦：
Private Sub Command1_Click()
Dim A As String, B1 As String, B2 As String, I As Integer
Dim T1 As String, T2 As String
T1 = Text1.Text
Open App.Path & VB.txt For Input As 1
Do Until EOF(1)
Input 1, A
For I = 1 To Len(A)
If Mid(A, I, 1) = Then Exit For
Next
B1 = Trim(Left(A, I))
B2 = Trim(Right(A, Len(A) - I))
T2 = Replace(T1, B1, B2)
T1 = T2
Loop
Close 1
Text1.Text = T2
End Sub
Private Sub Form_Load()
Text1.Text = 我爱你一生一世.我恨你一辈子
Command1.Caption = 替换
End Sub
记得在程序同目录下建个vb.txt文件，内容格式像这样：
我爱你 你爱我
我恨你 你恨我
当然，还能加别的，但格式要一样，中间用空格分开。
再补一句：
之前你例子出问题，主要是因为不能用半角逗号（,），VB会把它当分隔符处理，容易乱。
要是非得用逗号，建议换成全角的（，）就OK了~
这样能帮到你不？
