何日得遂田圆乐睡到人间饭熟时女儿三岁去年玩我手机摔破屏幕于是拼㙍duo)㙍duo)上网购唱戏机内存SD卡上有视频这样代替手机手机替代品女儿有时看下有时不看喜欢大人一样手指划动左拔右拔式看网上微信视频。网上下载了喜羊羊视频MP4不料放到唱戏机不能播放于是ubuntu下ffmpeg命令转为常见mp4唱戏机可以看了开头太长了于是ffmpeg将开头一分钟片头去掉也可以唱戏机中播放正常。考虑到学英语三岁了网上下载了当年的走遍美国视频网上下的是rm/rmvb格式这个唱戏机不认的于是ffmpeg转为mp4也成了但是没有字幕的这个网上附有srt字幕文件的测试ffmpeg合并srt字幕到视频中总不成功。查了许久才发现可能是格式不合吧试下装了aegisub格式确可以这时批量转srt为ass就成为需求了。这时网上AI给出的python脚本测试不成也不知错在哪。唯有自已动手打开lazarus批量srt转ass了。srt中如下200:2:37,000--00:2:40,000My name is Richard Stewart.我叫Richard Stewart。转为assDialogue: 0,00:02:34.60,0:02:37.00,Origin,,0,0,0,,Excuse me.打扰一下 ok如果为这样Dialogue: 0,00:2:34.600,00:2:37.000,Origin,,0,0,0,,Excuse me.打扰一下 not ok至于Dialogue: 0,是什么意思这不理了能运行vlc播放时字幕能生效就行了。if pos(--, www[j]) 0 thenbegin// 00:2:40,000--00:2:41,000// 00:02:37.00,0:02:40.00,Origin,,0,0,0,,ss:copy(www[j],0,pos(--, www[j])-2);// ss : trim(ss);//ss: copy(ss,0,length(ss)-1);ss : ss -- copy(www[j],pos(--, www[j])3,length(www[j]));ss : stringreplace(ss, ,, ., [rfReplaceAll]);ss : stringreplace(ss, --, ,, [rfReplaceAll]);ss : trim(ss);ss: copy(ss,0,length(ss)-1);ss : ss ,Origin,,0,0,0,,;sss : sss ss;endelsesss : sss \N www[j];这段简单代码调试就是易产生焦虑抑郁如果是工作上班后果更严重可能失眠无法调休。。。幸好自已自搞自乐的当捞Lao的。。。但是三岁女儿不喜欢唱戏机上看视频喜欢大人一样手指划动左拔右拔式看网上手机上的微信视频。 幸好自已自搞自乐的做捞Lao的。。。下一步Next将TSP的SeaLine算法的逐层法加上逐点法完成代码就没啥自定义需求了乎抑郁不顺烟消云散乎。。。。。。。procedure Tfrm_srtToass.Button1Click(Sender: TObject);vari, j, k: integer;s, ss, sss: string;www: TStringList;beginOpenDialog1.Options : [ofAllowMultiSelect];application.ProcessMessages;if OpenDialog1.Execute thenbeginwww : TStringList.Create;for i : 0 to OpenDialog1.Files.Count - 1 dobegin//Memo1.Clear;// Memo1.Lines.Add(OpenDialog1.Files[i]);Memo1.Clear;www.Clear;www.LoadFromFile(OpenDialog1.Files[i]);memo1.Lines.Add([Script Info]);memo1.Lines.Add(; Script generated by lazarus);memo1.Lines.Add(Title: Aegisub);memo1.Lines.Add(ScriptType: v4.00);memo1.Lines.Add(WrapStyle: 0);memo1.Lines.Add();memo1.Lines.Add([Aegisub Project Garbage]);memo1.Lines.Add([V4 Styles]);memo1.Lines.Add(Format: Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, OutlineColour, BackColour, Bold, Italic, Underline, StrikeOut, ScaleX, ScaleY, Spacing, Angle, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, Encoding);memo1.Lines.Add(Style: Subtitle,Arial,12,H00FFFFFF,H000000FF,H00000000,H00000000,0,0,0,0,100,100,0,0,1,1,0,2,10,10,10,1);memo1.Lines.Add();memo1.Lines.Add([Events]);memo1.Lines.Add(Format: Layer, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text);sss : ;for j : 0 to www.Count - 1 dobegin// sss : ;if trim(www[j]) then continue;tryif StrToInt(trim(www[j])) -1 thenbeginif sss thenmemo1.Lines.Add(sss);sss : Dialogue: 0,;continue;end;exceptend;//if sss Dialogue: 0, then// if pos(--, www[j]) 0 then// begin// // 00:2:40,000--00:2:41,000// // 00:02:37.00,0:02:40.00,Origin,,0,0,0,,// ss : stringreplace(www[j], ,, ., [rfReplaceAll]);// ss : stringreplace(ss, --, ,, [rfReplaceAll]);// ss : trim(ss) ,Origin,,0,0,0,,;// sss : sssss;// end;// if sss thenbeginif pos(--, www[j]) 0 thenbegin// 00:2:40,000--00:2:41,000// 00:02:37.00,0:02:40.00,Origin,,0,0,0,,ss:copy(www[j],0,pos(--, www[j])-2);// ss : trim(ss);//ss: copy(ss,0,length(ss)-1);ss : ss -- copy(www[j],pos(--, www[j])3,length(www[j]));ss : stringreplace(ss, ,, ., [rfReplaceAll]);ss : stringreplace(ss, --, ,, [rfReplaceAll]);ss : trim(ss);ss: copy(ss,0,length(ss)-1);ss : ss ,Origin,,0,0,0,,;sss : sss ss;endelsesss : sss \N www[j];end;// memo1.Lines.Add(sss);end;if sss thenmemo1.Lines.Add(sss);memo1.Lines.SaveToFile(OpenDialog1.Files[i] .ass);end;www.Free;end;end;