如何用圖像目錄的名稱創建文本文件？

Question

餵我的名字是丹尼斯和我有以下目錄IMAGES\：

EX0010040324303-001.tif 
EX0010040324303-002.tif 
EX0010040324303-003.tif 
EX0020943843934-001.tif 
EX0020943843934-002.tif 
EX0030673452099-001.tif 
EX0030673452099-002.tif 

我想要什麼？

通過目錄和 環路編譯一個文本文件如下：

EX0010040324303,,IMAGES\EX0010040324303-001.tif,Y,,,3 
EX0010040324303,,IMAGES\EX0010040324303-002.tif,,,, 
EX0010040324303,,IMAGES\EX0010040324303-003.tif,,,, 
EX0020943843934,,IMAGES\EX0020943843934-001.tif,Y,,,2 
EX0020943843934,,IMAGES\EX0020943843934-001.tif,,,, 
EX0030673452099,,IMAGES\EX0030673452099-001.tif,Y,,,2 
EX0030673452099,,IMAGES\EX0030673452099-002.tif,,,, 

所以： DocId2，DOCID，Y ,,, NumberOfPages的doc和 DocId2的第一TIF頁,, DOCID ,,,,爲DOC

的其他TIF，年齡在那一刻，我已經產生了下面的腳本：

Function readCompleteText(inputReadLocation, OutputwriteLocation) 
Const ForReading = 1 
Dim lenInputReadLocation 
Dim docId 
    Dim docId2 
Dim oStream 
Dim translationFileContents 
Dim inputText 
lenInputReadLocation = LEN(inputReadLocation) 

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set FileList = objWMIService.ExecQuery _ 
     ("ASSOCIATORS OF {Win32_Directory.Name='"& inputReadLocation &"'} Where " _ 
       & "ResultClass = CIM_DataFile") 

For Each objFile In FileList 
    Dim i 
    i = 0 
    docId = RIGHT(objFile.Name,(LEN(objFile.Name)-lenInputReadLocation-1)) 
    docId2 = LEFT(docId, LEN(docId)-4) 
    MyArray = Split(docId2, "-") 

    EXnumber = MyArray(0) 
    PageNumber = MyArray(1) 

    'inputText = EXnumber &",,"& docId &",,,," 
Next 

oStream.WriteText inputText,0 
oStream.SaveToFile OutputwriteLocation  
oStream.close 
oStream = Nothing 
End Function 

我的問題是：

• 如何計算每個文檔的頁數？
• 如何使用上面顯示的圖像的文件名來編寫文本文件。

任何幫助是極大的讚賞:-)

Answer 1

當您提取文件的信息，把這些信息（TifFile）的一個集合中的對象，你在用自己的身份證字典存儲：

（不幸的是我無法測試的代碼，但你的想法）

class TifFile 
    Public FileName 
    Public DocId 
    Public DocId2 
    Public ExNumber 
    Public PageNumber 
End Class 

'[..snip..] 

Set TifFileCollection = CreateObject("Scripting.Dictionary") 

For Each objFile In FileList 
    ' Do some parsing here 
    docId = RIGHT(objFile.Name,(LEN(objFile.Name)-lenInputReadLocation-1)) 
    docId2 = LEFT(docId, LEN(docId)-4) 
    exNumber = Split(docId2, "-")(0) 
    pageNumber = Split(docId2, "-")(1) 

    ' Put it in an object 
    Set oTifFile = new TifFile 
    oTifFile.FileName = objFile.Name 
    oTifFile.DocId = docId 
    oTifFile.DocId2 = docId2 
    oTifFile.ExNumber = exNumber 
    oTifFile.PageNumber = pageNumber 

    ' Add the file to a collection 
    if not TifFileCollection(DocId).Exists then 
     Set TifFileCollection.Item(DocId) = CreateObject("System.Collections.ArrayList") 
    end if 
    TifFileCollection.Item(DocId).Add oTifFile 
Next 

' Iterate through all files 
prefix = "IMAGES\" 
distinctNumberOfFiles = TifFileCollection.Count 
For each id in TifFileCollection.Keys 
    Set collectionOfTifFilesWithSameId = TifFileCollection(id) 
    numberOfFilesWithSameId = collectionOfTifFilesWithSameId.Count 

    for each oTifFile in collectionOfTifFilesWithSameId.ToArray() 
     If (numberOfFilesWithSameId > 1) and (oTifFile.PageNumber = "001") then 
      multipage = "Y" 
      pageCount = numberOfFilesWithSameId 
     else 
      multipage = "N" 
      pageCount = "" 
     End if 
     ' Output: 
     MsgBox join(array(_ 
      oTifFile.DocId, _ 
      "", _ 
      prefix & oTifFile.FileName, _ 
      multipage, _ 
      "", "", _ 
      pageCount), ",") 
    Next 
Next