ServiceForTotalAll

#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

 Au3 版本:
 脚本作者:
 Email:
 QQ/TM:
 脚本版本:
 脚本功能:

#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>

If Not FileExists("D:\Glutton") Then
 DirCreate("D:\Glutton")
EndIf

If ProcessExists("caiserver.exe") Then
 MsgBox(0,"ShoeMe","有一吃货要订饭啊！")
 Exit
ElseIf ProcessExists("caiserver.au3") Then
 MsgBox(0,"ShoeMe","有一吃货要订饭啊！")
 Exit
EndIf

Dim $delicia[100][2] = [["小鸡炖蘑菇","15 刀/份"],["猪肉炖粉条","15 刀/份"],["地三鲜","10 刀/份"],["溜肥肠","10 刀/份"],["酸菜小炒","10 刀/份"],["东北乱炖","10 刀/份"],["锅包肉","10 刀/份"],["拌凉菜","10 刀/份"],["红烧肘子","30 刀/份"],["酸菜汆肉","18 刀/份"],["血肠","15 刀/份"]]
Dim $cai[100] = ["小鸡炖蘑菇","猪肉炖粉条","地三鲜","溜肥肠","酸菜小炒","东北乱炖","锅包肉","拌凉菜","红烧肘子"]

$gui = GUICreate("吃货集中营",650,580)
$dateviwe = GUICtrlCreateDate("", 10, 13, 100, 20, $DTS_SHORTDATEFORMAT)

$name = GUICtrlCreateInput("",130,13,100,20)
$search = GUICtrlCreateButton(" 查 找 ",250,10)
$flush = GUICtrlCreateButton(" 刷 新 ",330,10)
$colect = GUICtrlCreateButton(" 收 集 ",410,10)
$close = GUICtrlCreateButton(" 关 闭 ",490,10)

;$view = GUICtrlCreateList("", 10, 40,630,535)

$view1 = GUICtrlCreateEdit("----------------------------------------------", 10, 40,630,535,$ES_READONLY + $ES_AUTOVSCROLL + $ES_WANTRETURN + $WS_VSCROLL + $ES_MULTILINE)
GUICtrlSetLimit(-1,535)
GUICtrlSetFont(-1,20)
GUISetState()

Do
 $msg = GUIGetMsg()
 Select
  Case $msg = $search
   $ymd = StringSplit(GUICtrlRead($dateviwe),"-")
   $y = $ymd[1]
   If StringLen($ymd[2]) = 1 Then
    $m = "0" & $ymd[2]
   Else
    $m = $ymd[2]
   EndIf
   If StringLen($ymd[3]) = 1 Then
    $day = "0" & $ymd[3]
   Else
    $day = $ymd[3]
   EndIf
   $date = $y & "-" & $m & "-" & $day
   
   $search = FileFindFirstFile("D:\Glutton\*.*")

   ; 检查搜索是否成功
   If $search = -1 Then
    MsgBox(0, "ShowMe", "没有文件/目录 匹配搜索")
    Exit
   EndIf

   While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    
    $getdate = StringSplit($file,".")
    ;主要是判断结果中存在的匹配日期项
    If StringCompare($date,$getdate[$getdate[0]-2]) = 0 Then
     ;输入框不为空，按照输入框进行搜索
     ;输入框为空，按照全天进行搜索
     $allfilename = "D:\Glutton\" & $file
     $file1 = FileOpen($allfilename, 0)
     If $file1 = -1 Then
      MsgBox(0,"ShowMe","没有生成可用的结果，无法查看，请刷新后获取结果。")
      ExitLoop
     EndIf
     GUICtrlSetData($view1,"----------------------------------------------")
     $file1 = FileOpen($allfilename, 0)
     ; 检查打开的文件是否可读
     If $file1 = -1 Then
      MsgBox(0, "ShowMe", "不能打开文件.")
      ExitLoop
     EndIf
     ; 每次读取一行文本,直到文件结束.
     While 1
      $line = FileReadLine($file1)
      If @error = -1 Then ExitLoop
      $neatsign = StringSplit($line,"#")
      $one = StringSplit($neatsign[1],"-")
      $two = StringSplit($neatsign[2],"-")
      $three = StringSplit($neatsign[3],"-")
      $num = $one[0]
      
      $fenstr = ""
      If StringCompare($one[1],"first") = 0 Then
       
       For $i = 3 To $num
        $fen = StringSplit($one[$i],"*")
        $fenstr = $fenstr & $fen[1] & "份" & $delicia[$fen[2] - 1][0] & "###"
       Next
       $cal = @YEAR & "-" & @MON & "-" & @MDAY
       $edit = GUICtrlRead($view1) & @CRLF & $fenstr & $one[2] & "--米饭:" & $two[2] & "份--价格:"& $three[2] & "元" & $cal & @CRLF & "----------------------------------------------"
       
       FileMove($allfilename,StringReplace($allfilename,"cai",$cal,2),1)
       GUICtrlSetData($view1,$edit)
       ExitLoop
      ElseIf StringCompare($one[1],"second") = 0 Then
       For $i = 3 To $num
        $fen = StringSplit($one[$i],"*")
        $fenstr = $fenstr & $fen[1] & "份" & $delicia[$fen[2] - 1][0] & "###"
       Next
       $cal = @YEAR & "-" & @MON & "-" & @MDAY
       $edit = GUICtrlRead($view1) & @CRLF & $fenstr & $one[2] & "--米饭:" & $two[2] & "份--价格:"& $three[2] & "元" & $cal & @CRLF & "----------------------------------------------"
       
       FileMove($allfilename,StringReplace($allfilename,"cai",$cal,2),1)
       GUICtrlSetData($view1,$edit)

       ExitLoop
      Else
       MsgBox(0,"ShowMe","处理文件失败，请查看问题所在。")
       ExitLoop
      EndIf
      
     Wend
     FileClose($file)
     FileClose($file1)
      
    Else
     MsgBox(0,"ShowMe","没有生成可用的结果，无法查看，请刷新后获取结果。")
     ExitLoop
    EndIf
    
   WEnd
   
  Case $msg = $flush
   
   ; 显示当前目录中所有文件的文件名
   $search = FileFindFirstFile("D:\Glutton\*.*")

   ; 检查搜索是否成功
   If $search = -1 Then
    MsgBox(0, "ShowMe", "没有文件/目录 匹配搜索")
    Exit
   EndIf

   While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    
    If StringCompare(StringRight($file, 8),".cai.log") = 0 Then
     $allfilename = "D:\Glutton\" & $file
     $file1 = FileOpen($allfilename, 0)
     ; 检查打开的文件是否可读
     If $file1 = -1 Then
      MsgBox(0, "ShowMe", "不能打开文件.")
      ExitLoop
     EndIf
     ; 每次读取一行文本,直到文件结束.
     While 1
      $line = FileReadLine($file1)
      If @error = -1 Then ExitLoop
      $neatsign = StringSplit($line,"#")
      $one = StringSplit($neatsign[1],"-")
      $two = StringSplit($neatsign[2],"-")
      $three = StringSplit($neatsign[3],"-")
      $num = $one[0]
      
      $fenstr = ""
      If StringCompare($one[1],"first") = 0 Then
       
       For $i = 3 To $num
        $fen = StringSplit($one[$i],"*")
        $fenstr = $fenstr & $fen[1] & "份" & $delicia[$fen[2] - 1][0] & "###"
       Next
       $cal = @YEAR & "-" & @MON & "-" & @MDAY
       $edit = GUICtrlRead($view1) & @CRLF & $fenstr & $one[2] & "--米饭:" & $two[2] & "份--价格:"& $three[2] & "元" & $cal & @CRLF & "----------------------------------------------"
       
       FileMove($allfilename,StringReplace($allfilename,"cai",$cal,2),1)
       GUICtrlSetData($view1,$edit)
       
      ElseIf StringCompare($one[1],"second") = 0 Then
       For $i = 3 To $num
        $fen = StringSplit($one[$i],"*")
        $fenstr = $fenstr & $fen[1] & "份" & $delicia[$fen[2] - 1][0] & "###"
       Next
       $cal = @YEAR & "-" & @MON & "-" & @MDAY
       $edit = GUICtrlRead($view1) & @CRLF & $fenstr & $one[2] & "--米饭:" & $two[2] & "份--价格:"& $three[2] & "元" & $cal & @CRLF & "----------------------------------------------"
       
       FileMove($allfilename,StringReplace($allfilename,"cai",$cal,2),1)
       GUICtrlSetData($view1,$edit)
      Else
       MsgBox(0,"ShowMe","处理文件失败，请查看问题所在。")
       ExitLoop
      EndIf
      
     Wend
     FileClose($file)
     FileClose($file1)
    EndIf
    
   WEnd

   ; 关闭搜索句柄
   FileClose($search)
   
     
  Case $msg = $colect    
   $cal = @YEAR & "-" & @MON & "-" & @MDAY
   ; 显示当前目录中所有文件的文件名
   $search = FileFindFirstFile("D:\Glutton\*.*")

   ; 检查搜索是否成功
   If $search = -1 Then
    MsgBox(0, "ShowMe", "没有文件/目录 匹配搜索")
    Exit
   EndIf
   If FileExists("D:\Glutton\RESULT." & $cal & ".log") Then
    FileDelete("D:\Glutton\RESULT." & $cal & ".log")
   EndIf
   While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    
    $getdate = StringSplit($file,".")
    If StringCompare($cal,$getdate[$getdate[0]-1]) = 0 Then
     $allfilename = "D:\Glutton\" & $file
     $file1 = FileOpen($allfilename, 0)
     If $file1 = -1 Then
      MsgBox(0, "ShowMe", "不能打开文件.")
      ExitLoop
     EndIf
     
     FileWriteLine("D:\Glutton\RESULT." & $cal & ".all.log", $cal & "|" & FileReadLine($file1,1))
     
    EndIf
    
   WEnd
   FileClose($file)
   FileClose($file1)
   FileClose($search)
  Case $msg = $close
   Exit
 EndSelect
 
Until $msg = $GUI_EVENT_CLOSE