Private Sub 修改字符() Dim WJ1$, WJ2$, n1%, n2%, cWZ$ WJ1 = "Daye.TXT" : n1 = FreeFile Open WJ1 For Input As #n1 WJ2 = "Daye_修改.TXT" : n2 = FreeFile Open WJ2 For Output As #n2 Do While Not Eof(n1) Line Input #n1, cWZ : cWZ = Trim(cWZ) If Len(cWZ) > 8 Then If Mid(cWZ, 1, 8) = "diameter" Then cWZ = "diameter" & Chr(32) & Trim(Text1.Text) End If End If Print #n2, cWZ Loop Close WJ1 = "已经生成修改后的文件:" & WJ2 MsgBox WJ1, 0 + 64, "修改字符" End Sub 调用这个子过程……