背景需求:
去年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,