VB删除文本例子.docVIP

VB删除文本例子汇总 下面是用VB6来删除文本的例子汇总。我已经验证，正确运行。 例子一： 例如在C:\1.txt里有这些文本： 3ladkti3k4df 48ekrdl4i5 2346843l345 abcdefg 238yfu4il4334wer 43jdfjkl8i23l 如何删除符合条件abcdefg的那一整行？这行的位置不固定。 解题的源代码： Option Explicit Private Sub Form_Load() Dim i As Long, s As String i = FreeFile Open C:\1.txt For Input As #i s = StrConv(InputB(LOF(i), i), vbUnicode) Close #i i = FreeFile Open C:\1.txt For Output As #i Print #i, Replace(Replace(s, abcdefg, ), vbCrLf vbCrLf, vbCrLf) Close #i MsgBox Success, , Tip Unload Me End Sub **************************************************************** 例子二： 例如在C:\1.txt里有这些文本： abcdefgh Unloadgh Abcdefgh 问题是：打开C:\1.txt之后，删除这个文本文件的所有内容。例如只留下“RichTextBox3.Text”‘。 解题的源代码： Private Sub Command1_Click() If Dir(c:\1.txt) Then Kill c:\1.txt Open c:\1.txt For Output As #1 打开文本 Print #1, RichTextBox3.Text 写入文本 Close #1 关闭文本 End Sub 例子三： 用VB6删除文本文档内的回车换行符 用VB6写一个小程序，要能够把文本文档内的回车换行符都删除掉，文本文档内保存是用文本合并器合并的多个文本文档的内容，所以每合并一个文件就会有一个回车换行符，想把中间的这些回车换行符都删除掉，只留下最后一个就可以了。： 解题的源代码： Private Sub Command1_Click() Dim str As String, x As String Open c:\1.txt For Input As #1 Do While Not EOF(1) Line Input #1, x str = str + x Loop Close Open c:\1.txt For Output As #1 Print #1, str Close End Sub 例子四： VB删除文本文件中重复的字符。 在“d:\test.txt”文件中内容d:\cs\vb\003.txtd:\cs\vb\004.txtd:\cs\vb\001.txtd:\cs\vb\004.txtd:\cs\vb\001.txtd:\cs\vb\003.txt我想实现d:\cs\vb\004.txtd:\cs\vb\001.txtd:\cs\vb\003.txt也就是说把重复的内容删除掉源代码： Private Sub Form_Load()thepath = d:\test.txt 设置文本文件的路径Open thepath For Input As #1Open Left(thepath, Len(thepath) - 4) 修改后.txt For Output As #2ReDim a(0)i = 0If Not EOF(1) ThenLine Input #1, a(i)Print #2, a(i)i = i + 1ReDim Preserve a(i)Do While Not EOF(1)Line Input #1, a(i)ifex = FalseFor j = 0 To i - 1If a(j) = a(i) Then ifex = True: Exit ForNextIf Not ifex ThenPrint #2, a(i)i = i + 1ReDim Preserve a(i)End IfLoopMsgBox 修改成功,新文件路径为： Left(thepath, Len(thepath) - 4) 修改后.txtEnd IfClose #1Close #2End Sub在d:\1.txt中有如下内容三四五问题是如何将文本文件1.txt中