主题：[求助]这样的程序能实现吗？

参考：http://www.foxtable.com/webhelp/scr/0344.htm

http://www.foxtable.com/webhelp/scr/0345.htm

Dim s As String = FileSys.ReadAllText("f:\111.txt",Encoding.Default)
Dim arr() As String = s.Replace(chr(10),"").Split(chr(13))
Dim sb As new StringBuilder
For Each v As String In arr
    If v.Contains("字幕组") = False Then
        sb.AppendLine(v)
    End If
Next
FileSys.WriteAllText("f:\111.Txt", sb.ToString(), False,Encoding.Default)