背景需求：

去年12月，我去了其他幼儿园参观，这是一个传统文化德育教育特色的学校，在“古典集市”展示活动中，小班中班大班孩子共同现场念诵《元日》《静夜思》包含了演唱版本和儿歌念诵版本。

我马上也要当班主任了，古诗是一种很好的语言教育手段，包含了倾听、注意力、表演等教育元素、也符合传统文化教育、识字需求、磨时间需求等目的。

网上搜索半天，终于找到了一套符合需求的古诗

使用IDM下载器

打开谷歌浏览器的设置-拓展功能

打开IDM开关

右上角会出现IDM下载按钮

Dim temp,sRet
Rem 已经打开动画片页面及idm下载For i = 0 To 62 step 1Mouse.Move(116, 991, false,{"iDelayAfter": 300, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 3000, "iDelayBefore": 300})Delay(1000)
Mouse.Move(1425, 194, false,{"iDelayAfter": 300, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 2000, "iDelayBefore": 300})Delay(1000)Mouse.Move(1125, 505, false,{"iDelayAfter": 300, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 2000, "iDelayBefore": 300})Delay(1000)
Keyboard.Press("Left", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
序号 = Format("%02d",i+1)
Keyboard.Input(序号,{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "message"})Delay(1000)
Mouse.Move(1076, 766, false,{"iDelayAfter": 1000, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 2000, "iDelayBefore": 300})Delay(1000)Mouse.Move(960, 618, false,{"iDelayAfter": 1000, "iDelayBefore": 200})
Mouse.Click("left", "click", [],{"iDelayAfter": 2000, "iDelayBefore": 300})
Next

陆续下载了19分钟 62个视频

下载结果：

问题;文件名太长了，改成 序号+《古诗名字》+ts

'''
目的：去掉古诗视频名称前后的多余
作者：阿夏
时间 2024年2月4日'''import os
import timepath =r"D:\62首古诗"# 第一步切割，不要“儿歌多多古诗大全”fileList=os.listdir(path)for file in fileList:# 提取二位数序号newname0=file[0:2]# print(newname0)split_str = file.split(' ')# 提取第一个空格后的内容《题目》newname2= split_str[1]# _的第0部分=序号 # print(newname2)newname=newname0+'《'+newname2+"》.ts"print(newname)oldname_path = os.path.join(path,file)# 文件新路径newname_path = os.path.join(path,newname)# 新旧对调os.rename(oldname_path, newname_path)

为了防止错误，把最后三行内容隐藏，先测试文件名结果是否正确

文件名正确了，不过作者信息没有，需要手动打上去。

1、区分以下五言绝句、七言绝句（五言容易背诵）

2、根据节日、季节背诵诗歌——春节《元日》 春天《春晓》

最后把所有的TS格式视频用格式工厂改成MP4，