以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这样的程序能实现吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97912)
--  作者：ufo20085
--  发布时间：2017/3/20 22:58:00
--  [求助]这样的程序能实现吗？
想编写一个程序。实现功能如下——

我的一个文件夹里有多个 .ass 格式的字幕文件。
该字幕文件用文本编辑器打开，每一行的格式如下：

Dialogue: 0,0:04:46.78,0:04:52.29,Default,NTP,0000,0000,0000,,那个… “万叶集”读起来差不多就是这种感觉…吧
Dialogue: 0,0:04:53.47,0:04:55.41,Default,NTP,0000,0000,0000,,远子真是个文学少女呢
Dialogue: 0,0:04:59.21,0:05:01.11,Default,NTP,0000,0000,0000,,总之 能借下笔记吗
Dialogue: 0,0:05:01.70,0:05:03.56,Default,NTP,0000,0000,0000,,作为答谢 随时都可以请你哦
Dialogue: 0,0:05:04.06,0:05:06.28,Default,NTP,0000,0000,0000,,XX字幕组
Dialogue: 0,0:05:10.46,0:05:12.05,Default,NTP,0000,0000,0000,,我开动了
Dialogue: 0,0:05:12.63,0:05:13.54,Default,NTP,0000,0000,0000,,我开动了
Dialogue: 0,0:05:16.98,0:05:17.73,Default,NTP,0000,0000,0000,,真好吃
Dialogue: 0,0:05:18.18,0:05:19.15,Default,NTP,0000,0000,0000,,太棒了
Dialogue: 0,0:05:23.04,0:05:24.08,Default,NTP,0000,0000,0000,,来这里真是来对了

运行程序，遍历该文件夹中的每一个字幕文件，和文件中的每一行文本。
如果该行中包含“字幕组”字样，则删除该行。然后保存该字幕文件。

希望高手指导一下。谢谢！
--  作者：有点蓝
--  发布时间：2017/3/21 8:55:00
--  

参考：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)