突然想做点有用的东西
天天学F#,感觉又没有动力了。还是要做点好玩点的、有用的东西才会更加有积极性。因为F#活在.NET平台中,做有用的东西简直太简单了。结合到最近知乎和别的平台一直在叽叽咕咕发视频,我没有怎么做过视频,但是PPT做得不少。我就想为啥不能把PPT直接搞成视频呢?
这不思路一下子打开了,我平常上的那门课,也可以改成视频教学啊,把PPT一转换,上课就开始播放,我就可以坐在旁边喝茶了,多美啊,小朋友们不懂了慢慢来问就好!就是这样!
强力论点转视频
老师无需费舌唇
课堂上就能播放
学生不懂慢慢问
嗯嗯,那就这样吧!
PPT转视频总共分几步
视频和PPT一比较,就多个音频讲解,PPT本身就是视觉材料,所以视频就是把PPT和音频结合起来。
- 确定每页PPT的讲解词,一般我们就写在注释里,以前我们写得很不走心,现在写详细一点;
- 把每页的讲解词变成音频,可以自己去录,大佬的自播放那必须用大佬的声音,萌妹子也是,但我是糙汉子,不用自己录,用TTS;
- 把每页的音频插入到PPT中,这样就有了PPT+音频的PPT;
- 设置音频为自动播放,播放时隐藏;
- PPT导出为MP4文件,打完收工。
这样一看起来,相当简单。
F#的实现
输出讲解词的音频
FSharp
#r "nuget: System.Speech, 7.0.0"
open System.Speech.Synthesis
let produceAudio (s:string) (fn:string) =
use synthesizer: SpeechSynthesizer = new SpeechSynthesizer()
synthesizer.SetOutputToWaveFile fn
synthesizer.Speak s
这里只需要用到System.Speech
这个库,然后就是SpeechSynthesizer
这个类,这个类有一个Speak
方法,可以把字符串转换成音频,然后用SetOutputToWaveFile
方法把音频输出到文件中。
这里唯一需要注意的就是use
关键词,这个关键词可以让我们在使用完对象后(到表达式体的范围之外)自动释放对象,这样就不用我们自己去释放了。这里的对象必须是实现了IDisposable
接口的对象,这个接口只有一个方法Dispose
,释放资源,例如文件句柄、数据库连接等等。下面还会反复用到这个功能。
有一个问题就是一般的wav文件适配性不够好,我们把wav文件转换成mp3文件。
FSharp
#r "nuget: NAudio, 2.2.1"
open NAudio.MediaFoundation
open NAudio.Wave
let wav2mp3 (source:string) =
if source.EndsWith ".wav" then
do MediaFoundationApi.Startup()
use reader = new WaveFileReader(source)
let outputFile = source.Replace(".wav", ".mp3")
MediaFoundationEncoder.EncodeToMp3(reader, outputFile)
do MediaFoundationApi.Shutdown()
outputFile
else
source
这用了另外一个包NAudio,这个包功能很多,我们这里用得很少。只需要把wav
文件转换成mp3
文件就可以了。我们用if
构造一个验证文件是否是wav
文件,如果是,就用MediaFoundationEncoder
这个类把wav
文件转换成mp3
文件,然后返回mp3
文件的路径。
把音频插入到PPT中
操作PPT的库有很多,最权威的当然是Open-XML-SDK。但是这个太难了......帮助就来个1000页,不停引用标准ISO/IEC 29500-1:2008,那个标准也不长,只有5560页。包装好的访问PPT的工具部大部分都是收费软件,我不想列名字。
开源的软件中,我们在Open-XML-SDK的主页上找到了推荐的ShapeCrawler。这里也给找软件包的人提示一个方法,到GitHub上找到一个你需要的软件包,然后看看它的主页,一般都会有推荐的软件包。
FSharp
#r "nuget: ShapeCrawler, 0.48.0"
open System.IO
let insertAudio (slide:ShapeCrawler.ISlide) (fn:string) =
use stream = File.Open(fn, FileMode.Open)
let audio = slide.Shapes.AddAudio(10, 10, stream)
slide
let producePPTWithAudioFromNote (inputFile:string) (outputFile:string) =
use p = ShapeCrawler.SCPresentation.Open(inputFile)
p.Slides
|> Seq.iter (fun o ->
let notes = o.SDKSlidePart.NotesSlidePart.NotesSlide.InnerText
let [n; num] =
match removeLastNumber notes with
| Some [note;number] -> [note; number]
| _ -> [""; "0"]
let fn = sprintf $"note-{num}.wav"
do produceAudio n fn
let mp3fn = wav2mp3 fn
if mp3fn = fn then
failwith $"Error produce mp3 file from {fn}"
else
insertAudio o mp3fn |> ignore
)
p.SaveAs(outputFile)
上面的函数producePPTWithAudioFromNote
就是我们最终想使用的功能,打开一个PPT文件,然后把每页的讲解词转换成音频,然后插入到PPT中,最后保存为新的PPT文件。这里面,打开了文件后,属性Slides
就对应了所有的幻灯片页,而每页的SDKSlidePart.NotesSlidePart.NotesSlide.InnerText
就是对应的注释内容。我们打开后发现挺好玩的一件事情,每个注释最后都被加了一个数字,这个数字就是这个注释在这个幻灯片页中的序号。
我们只好又编了一个函数把这个数字提取出来。这里用到了正则表达式,正则表达式在F#中也是很好用的,我们可以用Regex
这个类来处理正则表达式。
FSharp
open System.Text.RegularExpressions
let removeLastNumber note =
let reg = Regex("(.*?)(\d+)$").Match(note)
if reg.Success
then Some (List.tail [for x in reg.Groups -> x.Value])
else None
这样我们就可以把每个注释对应的音频文件命名为note-数字.wav
,这样就可以把音频文件和注释对应起来了。
插入音频的代码也很简单:
FSharp
open System.IO
let insertAudio (slide:ShapeCrawler.ISlide) (fn:string) =
use stream = File.Open(fn, FileMode.Open)
let audio = slide.Shapes.AddAudio(10, 10, stream)
slide
这里还是用到了use
的语法,这样才能在函数结束后自动释放文件句柄。
尚未实现的功能
这个玩意我从昨晚开始打主意,没动手。早上开始整,10点不到就整完了,还是很有效率。
还有几个功能不太满意,找了一下没有轮子,就没有实现。
- 自动把音频设置为自动播放;
- 自动把音频设置为隐藏;
- 自动把PPT导出为MP4文件。
这几个功能应该可以用Office.Interop来实现,那就要求机器上装了Office,是不是还得看版本,算了,就当活动手臂,自己点吧。
总结
- .NET平台人才济济,个个说话都很好听;
- 我们先来把这篇文章的内容做个PPT,然后转成视频吧......