各位大侠
目前是这样子,我想先定义一些字串,然後让FileReadLine去检查文档是否有这些字串存在,达到文档格式的判断。因为有时候会收到的PDF文档,实际上是DOC(透过笔记本看原始码得知),所以想试着作一个工具来判断文档类型。(当然是以比较常见的格式)
目前我的代码如下,但ARRAY的部分不知道该怎么写,请各位大侠帮帮忙,或者我的思路根本错误,也请赐知。
#include <array.au3>
Local $avArray[4]
$avArray[0] = "PDF"
$avArray[1] = "WORD"
$avArray[2] = "EXCEL"
$avArray[3] = "TIF"
$fpd = FileOpenDialog("", "", "(*.*)")
$file = FileOpen($fpd, 0)
If $file = -1 Then
MsgBox(0, "error", "cancel")
Exit
EndIf
While 1
$line = FileReadLine($file)
If @error Then ExitLoop
Local $iKeyIndex = _ArraySearch($avArray, $line); 这里我想不出怎么写
If Not @error Then
MsgBox(0, 'Entry found', ' Index: ' & $avArray[$iKeyIndex])
Else
MsgBox(0, 'Entry Not found', ' Error: ' & @error)
EndIf
Exit
WEnd
FileClose($file)
|