【办公类-21-12】 2024045三级育婴师 351道判断题 UIBOT下载+整理-CSDN博客

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

文章讲述了作者使用Uibot技术从混合格式的电子稿和APP中抓取判断题、多选题和单选题的答案，将其整理成清晰的PDF格式，以满足老师对分类PDF的需求，但因屏幕识别限制，还需人工校对部分内容。

摘要由CSDN通过智能技术生成

背景需求

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

问题：

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

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

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

思路：

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

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

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

判断题一共351题

代码解析：

Dim sText,objExcelWorkBook,文字
objExcelWorkBook = Excel.OpenExcel('''C:\Users\jg2yXRZ\OneDrive\桌面\判断题.xlsx''',true,"Excel","","")
For i = 0 To 351 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)