【办公类-21-13】 2024045三级育婴师 721道单选题 UIBOT下载+整理-CSDN博客

本文链接：https://blog.csdn.net/reasonsummer/article/details/137398105

作品展示

背景需求

培训机构提供了两个理论学习素材

问题：

1、电子稿：打印页数很多，按章节，题型混在一起的，只有答案，没有说明，

2、APP版，操作方便，有错题集，也只有答案，没有解析说明。但是APP只能一道题一道题看，不如纸质的可宏观看所有题。

很多老师问我有没有分类（判断、多选、单选）的PDF打印文件？

思路：

由于是手机版的APP，为了将题目文字读取出来。

我使用Uibot,读取屏幕内容的功能，将题目、选项、答案，逐一写入EXCLE内

以下演示“Uibot读取育婴师高级-单选题”的代码

单选题一共721题

代码解析：

Dim sText,objExcelWorkBook,文字
objExcelWorkBook = Excel.OpenExcel('''C:\Users\jg2yXRZ\OneDrive\桌面\单选题.xlsx''',true,"Excel","","")
For i = 0 To 712 step 1


#icon("@res:d51aa1f0-f272-11ee-9066-536d8ee172e9.png")
Image.Click({"wnd":[{"cls":"StartupDui","title":"多屏协同","app":"HwMirror"}]},{"x": 0, "y": 0, "width": 0, "height": 0},@res"d51aa1f0-f272-11ee-9066-536d8ee172e9.png",0.9,"left","click",10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate","sMatchType":"GrayMatch", "iSerialNo": 1})
Delay(500)



文字=LocalOCR.ScreenOCR(@ui"窗口_FolderView",{"x":1457,"y":349,"width":390,"height":500},"SceneText",10000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":true})

Delay(1000)
Excel.WriteCell(objExcelWorkBook,"Sheet1","A"&i+1,文字,false)



Delay(500)
#icon("@res:7f4cdaf0-f276-11ee-9066-536d8ee172e9.png")
Image.Click({"wnd":[{"cls":"StartupDui","title":"多屏协同","app":"HwMirror"}]},{"x": 0, "y": 0, "width": 0, "height": 0},@res"7f4cdaf0-f276-11ee-9066-536d8ee172e9.png",0.9,"left","click",10000, {"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate","sMatchType":"GrayMatch", "iSerialNo": 1})

Delay(1000)
Next

Excel.Save(objExcelWorkBook)