当前位置: 首页 > 工具软件 > Chimm.Excel > 使用案例 >

MM TO EXCEL

戚祺
2023-12-01


#cs ____________________________________

 Au3 版本: 3.3.6.1
 脚本作者: wozijisunfly 
 Email:
 QQ/TM:
 脚本版本: MMForYou-1.0
 脚本功能: MM TO EXCEL

#ce _______________脚本开始_________________

#include <Excel.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstantsEx.au3>

Global $fileExcel,$tcnum = 1
Local $verStr = "v-1.1.1"
Local $first[20] = ["","Depth","SpecificName","Specific","yesORno","Author","TC","Level","TCNumber","Number","Trigger","Auto","PresetCondition","Step","ExpectedResult","Remark"]
Local $fileopen,$auto,$trigger,$specific,$anyhow,$userName,$number,$filenum
Local $excel,$row,$icar = 1,$filename,$file,$getStr

If ProcessExists("EXCEL.EXE") Then
 MsgBox(0,"MMForYou","Excel.exe process is running." & @CRLF & @CRLF & "Please save it and then program will be kill it!")
 ProcessClose("EXCEL.EXE")
EndIf

_getGUI()

$excel = _ExcelBookNew()
$row = 1
$num = 1
$point = 0
While 1
 $content = FileReadLine($fileopen)
 If @error = -1 Then ExitLoop
 If StringInStr($content,"<map version=""0.8.1"">") <> 1 And $num = 1 Then
  MsgBox(0,"MMForYou","输入文件不是FreeMind文件,请重新确认.")
  FileClose($fileopen)
  Exit 1
 EndIf
 $dealString = StringStripWS($content,3)
 $strnum = StringLen($dealString)
 If StringCompare($dealString,"</map>",1) == 0 Then
  $filenum = StringSplit($file,"\")
  $fileExcel = StringReplace($file,$filenum[$filenum[0]],$filename)
  _ExcelBookSaveAs($excel,$fileExcel,"xls",0,1)
  ExitLoop
 EndIf
 If StringCompare($dealString,"</node>",1) == 0 Then
  $point = $point - 1
  If $icar <> 1 Then
   $mark = "--"
   _insertData($mark,$excel,$getStr,$row - 1,$point + 1,$tcnum)
   $icar = 1
   $tcnum = $tcnum + 1
  EndIf
  $num = $num + 1
  ContinueLoop
 Else
  $num = $num + 1
 EndIf
 If StringInStr($dealString,"<node ",1) == 1 Then
  $point = $point + 1
  $dealnum = StringInStr($dealString,"TEXT=""",1) + 6
  $lastString = StringRight($dealString,2)
  If StringCompare($lastString,"/>",1) == 0 Then
   $getnum = $strnum - 2 - $dealnum
   $getStr = StringMid($dealString,$dealnum,$getnum)
   $mark = "yes"
   _insertData($mark,$excel,$getStr,$row,$point,$tcnum)
   $tcnum = $tcnum + 1
   $point = $point - 1
   $row = $row + 1
   $num = $num + 1
   ContinueLoop
  ElseIf StringCompare($lastString,""">",1) == 0 Then
   $getnum = $strnum - 1 - $dealnum
   $getStr = StringMid($dealString,$dealnum,$getnum)
   $mark = "no"
   _insertData($mark,$excel,$getStr,$row,$point,$tcnum)
   $row = $row + 1
   $num = $num + 1
   ContinueLoop
  Else
   MsgBox(0,"MMForYou","解析FreeMind文件出错,第" & $num & "行,请检查.")
   FileClose($fileopen)
   Exit 1
  EndIf
 ElseIf StringInStr($dealString,"<icon ",1) == 1 Then
  $icar = $icar + 1
  $num = $num + 1
  ContinueLoop
 ElseIf StringInStr($dealString,"<arrowlink ",1) == 1 Then
  ;TODO 

  ;情况复杂,需要保存数组中
  ;(ID,DESTINATION=ID,TEXT)
  $icar = $icar + 1
  $num = $num + 1
  ContinueLoop

ElseIf StringInStr($dealString,"<hook ",1) == 1 Then
$icar = $icar + 1
;行数加一
$num = $num + 1
ContinueLoop
ElseIf StringInStr($dealString,"<text>",1) == 1 Then
  $point = $point + 1
  $dealnum = StringInStr($dealString,"<text>",1) + 6
  ;判断最后两个字符是否为结束字符,或异常字符
  $lastString = StringRight($dealString,7)
  If StringCompare($lastString,"</text>",1) == 0 Then
   ;获得需要得到的字符数量
   $getnum = $strnum - 6 - $dealnum
   ;获取需要解析的字符串
   $getStr = StringMid($dealString,$dealnum,$getnum)
   ;标记
   $mark = "#"
   _insertData($mark,$excel,$getStr,$row,$point,$tcnum)
   ;TCNUM
   $tcnum = $tcnum + 1
   ;将根结点减一,以适应变化的层次
   $point = $point - 1
   ;$row = $row - 1
  Else
   MsgBox(0,"MMForYou","无法解析的图标,请联系作者。" & @CRLF & "MM图中,第" & $num & "行。")
   $num = $num + 1
   ContinueLoop
  EndIf
  $icar = $icar + 1
  ;行数加一
  $num = $num + 1
  ContinueLoop

ElseIf StringInStr($dealString,"</hook>",1) == 1 Then
$icar = $icar + 1
;行数加一
$num = $num + 1
ContinueLoop
ElseIf StringInStr($dealString,"<cloud/>",1) == 1 Then
$icar = $icar + 1
;行数加一
$num = $num + 1
ContinueLoop

ElseIf StringInStr($dealString,"<font ",1) == 1 Then
  $icar = $icar + 1
  ;行数加一
  $num = $num + 1
  ContinueLoop
ElseIf StringInStr($dealString,"<edge ",1) == 1 Then
$icar = $icar + 1
;行数加一
$num = $num + 1
ContinueLoop
Else
If StringInStr($dealString,"<map version=""0.8.1"">",1) == 1 Then
ContinueLoop
ElseIf StringInStr($dealString,"<!-- ",1) == 1 Then
ContinueLoop
Else
MsgBox(0,"MMForYou","无法解析的图标,请联系作者。")
EndIf
 EndIf
 $num = $num + 1
WEnd
FileClose($fileopen)

Func _getAnalyse($getStr)
 Dim $array[1000], $getStrForChinese = "", $getChinese, $getS
 $judgenum = StringSplit($getStr,"&#x",1)
 $recordeStr = 1
 For $count = 1 To $judgenum[0] Step 1
  $ssnum = StringInStr($getStr,"&#x",2,$count)
  If $recordeStr <> $ssnum Then
   $getStrForChinese = $getStrForChinese & StringMid($getStr,$recordeStr,$ssnum - $recordeStr)
   $recordeStr = $ssnum
  EndIf
  If StringInStr(StringMid($getStr,$ssnum,8),";",2) == 8 Then
   $recordeStr = $recordeStr + 8
   $ascii = StringReplace(StringMid($getStr,$ssnum,7),"&#x","0x")
   $array[$count] = $ascii
   $getChinese = StringFromASCIIArray($array,$count,$count + 1,0)
   
   $getStrForChinese = $getStrForChinese & $getChinese
  ElseIf StringInStr(StringMid($getStr,$ssnum,5),";",2) == 5 Then
   $recordeStr = $recordeStr + 5
   If StringCompare(StringMid($getStr,$ssnum,5),"&#xa;",1) Then
    $getStrForChinese = $getStrForChinese & @LF & ""
   EndIf
  Else
   ContinueLoop
  EndIf
 Next
 
 Return $getStrForChinese
 
EndFunc

Func _getGUI()
 $Form1 = GUICreate("MMForYou", 400, 220, -1, -1)
 GUISetIcon(@SystemDir & "\mspaint.exe", 0)

 $label = GUICtrlCreateLabel("File Path:",30,13)
 $filePath = GUICtrlCreateInput("",100,10,250,Default)
 $label1 = GUICtrlCreateLabel("Number:",10,43)
 $file1 = GUICtrlCreateInput("",55,40,130,Default)
 $label2 = GUICtrlCreateLabel("UserName:",200,43)
 $file2 = GUICtrlCreateInput(@UserName,260,40,130,Default)
 $label3 = GUICtrlCreateLabel("Anyhow:",10,73)
 $file3 = GUICtrlCreateInput(@ComputerName,55,70,130,Default)
 $label4 = GUICtrlCreateLabel("Specific:",200,73)
 $file4 = GUICtrlCreateInput("",260,70,130,Default)
 $label5 = GUICtrlCreateLabel("Trigger:",5,103)
 $com1 = GUICtrlCreateCombo("",55,100,130,Default)
 $file5 = GUICtrlSetData($com1, "item1Trigger|item2Trigger|item3Trigger", "item3Trigger")
 $label6 = GUICtrlCreateLabel("  Auto  :",200,103)
 $com2 = GUICtrlCreateCombo("",260,100,130,Default)
 $file6 = GUICtrlSetData($com2, "item1Auto|item2Auto|item3Auto", "item2Auto")
 $label7 = GUICtrlCreateLabel("DATE:" & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC,80,143,220)
 
 GUICtrlSetColor($label7,0xff00ff)
 GUICtrlSetBkColor($label7,0x000000)
 GUICtrlSetFont($label7,13)
 
 $OK_Btn = GUICtrlCreateButton("确定", 85, 170, 70, 25)
 $Cancel_Btn = GUICtrlCreateButton("取消", 225, 170, 70, 25)
 $label7 = GUICtrlCreateLabel("VERSION : " & $verStr,130,200)
 GUISetState(@SW_SHOW)
 
 Do
  $msg = GUIGetMsg()
  Select
   Case $msg = $OK_Btn
    $file = GUICtrlRead($filepath)
    $file = "E:\AnalyseMMPicture\新增思维导图.mm"
    If StringLen($file) == 0 Then
     MsgBox(0,"MMForYou","Please input File Path!")
     ContinueLoop
    EndIf
    If StringCompare(StringUpper(StringRight($file,3)),".MM") == 0 Then
     $fileopen = FileOpen($file)
     If $fileopen == -1 Then
      MsgBox(0,"MMForYou","The file can not open.")
      ContinueLoop
     EndIf
    Else
     MsgBox(0,"MMForYou","The file is not FreeMind file.")
     ContinueLoop
    EndIf
    If StringLen(GUICtrlRead($file1)) == 0 Then
     MsgBox(0,"MMForYou","Please input Number.")
     ContinueLoop
    Else
     $number = GUICtrlRead($file1)
    EndIf
    If StringLen(GUICtrlRead($file2)) == 0 Then
     MsgBox(0,"MMForYou","Please input UserName.")
     ContinueLoop
    Else
     $userName = GUICtrlRead($file2)
    EndIf
    If StringLen(GUICtrlRead($file3)) == 0 Then
     MsgBox(0,"MMForYou","Please input Anyhow.")
     ContinueLoop
    Else
     $anyhow = GUICtrlRead($file3)
    EndIf
    If StringLen(GUICtrlRead($file4)) == 0 Then
     MsgBox(0,"MMForYou","Please input Specific.")
     ContinueLoop
    Else
     $specific = GUICtrlRead($file4)
    EndIf
    $trigger = GUICtrlRead($com1)
    $auto = GUICtrlRead($com2)
    $msg = $GUI_EVENT_CLOSE
   Case $msg = $Cancel_Btn
    Exit 1
  EndSelect
 Until $msg = $GUI_EVENT_CLOSE
 
 GUISetState(@SW_HIDE)
 
EndFunc

Func _insertData($mark,$excel,$getStr,$row,$point,$tcnum)
 If $row == 1 Then
  For $rownum = 0 To 16 Step 1
   _ExcelWriteCell($excel,$first[$rownum],$row,$rownum)
  Next
  $filename = _getAnalyse($getStr)
  _ExcelSheetNameSet($excel, "INEEDYOU")
 EndIf
 $row = $row + 1
 $pointS = ""
 $dian = "."
 For $pointnum = 1 To $point Step 1
  $pointS = $pointS & $dian
 Next
 If StringLen($tcnum) == 1 Then
  $tcnumS = ".00" & $tcnum
 ElseIf StringLen($tcnum) == 2 Then
  $tcnumS = ".0" & $tcnum
 Else
  $tcnumS = "." & $tcnum
 EndIf
 If $row = 2 Then
  _ExcelWriteCell($excel,$pointS,$row,1)
  _ExcelWriteCell($excel,_getAnalyse($getStr),$row,2)
  _ExcelWriteCell($excel,$specific,$row,3)
  _ExcelWriteCell($excel,"YES",$row,4)
  _ExcelWriteCell($excel,$userName,$row,5)
  _ExcelWriteCell($excel,$number,$row,9)
  _ExcelWriteCell($excel,$trigger,$row,10)
  _ExcelWriteCell($excel,$auto,$row,11)
 ElseIf StringCompare($mark,"yes") == 0 Then
  _ExcelWriteCell($excel,$pointS,$row,1)
  _ExcelWriteCell($excel,"NO",$row,4)
  _ExcelWriteCell($excel,$userName,$row,5)
  $formula = "=""[""" & "& RIGHT(R" & $row & "C7,1)&""]""" & "&""" & _getAnalyse($getStr) & """"
  _ExcelWriteFormula($excel, $formula, $row, 6)
  _ExcelWriteCell($excel,"Level 1",$row,7)
  _ExcelWriteCell($excel,$specific & $tcnumS,$row,8)
  _ExcelWriteCell($excel,$number,$row,9)
  _ExcelWriteCell($excel,$trigger,$row,10)
  _ExcelWriteCell($excel,$auto,$row,11)
  _ExcelWriteCell($excel,"P1." & @CRLF & "P2.",$row,12)
  _ExcelWriteCell($excel,"S1." & @CRLF & "S2.",$row,13)
  _ExcelWriteCell($excel,"E1." & @CRLF & "E2.",$row,14)
 ElseIf StringCompare($mark,"no") == 0 Then
  _ExcelWriteCell($excel,$pointS,$row,1)
  _ExcelWriteCell($excel,_getAnalyse($getStr),$row,2)
  _ExcelWriteCell($excel,"NO",$row,4)
  _ExcelWriteCell($excel,$userName,$row,5)
 ElseIf StringCompare($mark,"--") == 0 Then
  _ExcelWriteCell($excel,$pointS,$row,1)
  _ExcelWriteCell($excel,"",$row,2)
  _ExcelWriteCell($excel,"NO",$row,4)
  _ExcelWriteCell($excel,$userName,$row,5)
  $formula = "=""[""" & "& RIGHT(R" & $row & "C7,1)&""]""" & "&""" & _getAnalyse($getStr) & """"
  _ExcelWriteFormula($excel, $formula, $row, 6)
  _ExcelWriteCell($excel,"Level 1",$row,7)
  _ExcelWriteCell($excel,$specific & $tcnumS,$row,8)
  _ExcelWriteCell($excel,$number,$row,9)
  _ExcelWriteCell($excel,$trigger,$row,10)
  _ExcelWriteCell($excel,$auto,$row,11)
  _ExcelWriteCell($excel,"P1." & @CRLF & "P2.",$row,12)
  _ExcelWriteCell($excel,"S1." & @CRLF & "S2.",$row,13)
  _ExcelWriteCell($excel,"E1." & @CRLF & "E2.",$row,14)

 ElseIf StringCompare($mark,"#") == 0 Then
  _ExcelWriteCell($excel , _getAnalyse($getStr) , $row - 1, 15)
 EndIf
EndFunc

 类似资料:

相关阅读

相关文章

相关问答