全给你也没用,给你分享一下核心内容
Func lei();类被层
$blzs = 0
$blsjc2 = 0
$blsjc = 0
While 1;像素位置判断学习病例多寡,作用在类层面
Sleep(500)
If $tm >= 1 Then d2xx()
ToolTip("开始检查选择来了吗?", 500, 500)
WinWait("选择", "")
If Not WinActive("选择", "") Then WinActivate("选择", "")
WinWaitActive("选择", "")
ToolTip("选择来了", 500, 500)
Sleep(500)
ToolTip("是否经过了d2xx", 500, 500)
;~ MsgBox(0,$xxg,"停",8)
If PixelGetColor(30, $xxg) = 0xECE9D8 Then
TrayTip("该病人有病例类型", $tm, 10)
MouseClick("left", 30, $xxg, 1, 1)
$bls = 0
IniWrite($lsini_lj, "类", "当前类", $tm)
$blsjc = bl()
$blsjc2 += $blsjc
$tm += 1
;~ IniWrite($RZLJ, $m, "进度" & @HOUR & "-" & @MIN & "-" & @SEC, "已经完成" & $id & "的第一次病例。")
ToolTip("2类别数量" & $tm, 130, $xxg)
$xxg += 20
;~ MsgBox(0,$g,$tm)
Else
;~ MsgBox(0,"类别结果判定","类别数等于:"&$tm)
;~ MsgBox(0,"病例数",$blsjc2)
If $blsjc2 >= 1 Then ;如果病例获得总数大于等于1就
;~ If $blsjc2 >= 0 Then
;~ IniWrite($RZLJ, $m, "进度"&$sj, $id & "的病人有类别,但是所有类别中均无数据。未导出任何数据。其中类别数为"&$tm&"病例数为"&$blsjc2)
;~ IniWrite($ywcIDrzlj, "无病例", $id,"的病人有类别,但是所有类别中均无数据。未导出任何数据。其中类别数为"&$tm&"病例数为"&$blsjc2)
;~ EndIf
$wjl = wjl()
;~ MsgBox(0,"应有文件与现有文件的比对","应有文件:"&$blsjc2&"现有文件"&$wjl)
$wordGL1 = IniRead($lsini_lj, "树", "word文档是否有错误", "ini中无数据")
$leils = IniRead($lsini_lj, "类", "当前类", "临时ini中无数据")
If $wjl = $blsjc2 Then
Select
Case $wordGL1 = 1
IniWrite($RZLJ, $m, "错误" & @HOUR & "-" & @MIN & "-" & @SEC, "树节错误" & $id & "的病人发生“激活Word出错。“错误,其类别在第" & $leils & "类上,")
IniWrite($ywcIDrzlj, "程序错误", $id, "树环节发生“激活Word出错。1“,已经导出的类别数量" & $leils & "但是会继续导出")
Case Else
IniWrite($RZLJ, $m, "进度" & @HOUR & "-" & @MIN & "-" & @SEC, $id & "的病人已经完成导出,已完成的类别数量为" & $tm & "病例数为" & $blsjc2)
IniWrite($ywcIDrzlj, "完成", $id, "已经导出的类别数量" & $tm & "病例数为" & $blsjc2)
EndSelect
Else
Select
Case $wordGL1 = 1
IniWrite($RZLJ, $m, "错误" & @HOUR & "-" & @MIN & "-" & @SEC, "树节错误" & $id & "的病人发生“激活Word出错。“错误,其类别在第" & $leils & "类上,")
IniWrite($ywcIDrzlj, "程序错误", $id, "树环节发生“激活Word出错。2“,已经导出的类别数量" & $leils & "但是会继续导出")
Case Else
IniWrite($RZLJ, $m, "错误" & @HOUR & "-" & @MIN & "-" & @SEC, $id & "的病人已经完成导出,但是已经导出的文件和现在存在的文件不相符,已完成的类别数量为" & $tm & "病例数为" & $blsjc2 & ",现有文件数量为:" & $blsjc2)
IniWrite($ywcIDrzlj, "完成", $id, "已完成导出但是应有数据与现存在磁盘中数据不相符,应导出的类别数量_" & $tm & "_磁盘中实际病例数为_" & $blsjc2)
EndSelect
EndIf
Else
If $blsjc2 = 0 Then;如果类别总数等于0就
;~ IniWrite($RZLJ, $m, "进度"&$sj, $id & "的病人没有类别,未导出任何数据。")
;~ IniWrite($ywcIDrzlj, "无病例", $id, "已经导出的类别数量" & $tm)
IniWrite($RZLJ, $m, "进度" & @HOUR & "-" & @MIN & "-" & @SEC, $id & "无病例。未导出任何数据。其中类别数为" & $tm & "病例数为" & $blsjc2)
IniWrite($ywcIDrzlj, "无病例", $id, "无病例,未导出任何数据。其中类别数为" & $tm & "病例数为" & $blsjc2)
Else
IniWrite($RZLJ, $m, "错误" & @HOUR & "-" & @MIN & "-" & @SEC, "类环节错误" & $id & "的病人发生错误$tm <类别量> 为" & $tm)
IniWrite($ywcIDrzlj, "程序错误", $id, "已经导出的类别数量" & $tm)
EndIf
EndIf
;~ MsgBox(0,"类别层","关闭类别")
ExitLoop
EndIf
WEnd
EndFunc ;==>lei