vb删除文字中 所有的指定字符串

vb删除文字中 所有的指定字符串


Option Explicit

Private Sub Form_Load()



Dim i As Long, s As String, ini As String
ini = "C:\1.txt"
i = FreeFile
Open ini For Input As #i
     s = StrConv(InputB(LOF(i), i), vbUnicode)
Close #i
i = FreeFile
Open ini For Output As #i
     Print #i, Replace(Replace(s, "D:\Mr.Mei\NX8", ""), vbCrLf & vbCrLf, vbCrLf)
Close #i
Unload Me
End
End Sub



_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/