-1

AvayaCMS Reporting を介して現在何人の従業員がパンチインされているかをその場で教えてくれる小さなプログラムを作成中です。

現時点では、Avaya スクリプトを使用して簡単なレポートを作成し、それを Autoit スクリプトで使用する CSV にエクスポートするように設定しています。

デバッグに関しては、何かが欠けているように感じ、別の目が必要です。Staffing.au3 を起動すると、レポートに対して使用している CSV スクリプトがトリガーされます。まったく同じデータを持っていても、メッセージボックスはまだ「0」を報告しています

#include <Array.au3>
#include <CSV.au3>
$i_AgentCount = AvayaData(@ScriptDir & '\Report.csv', @ScriptDir & '\Name List.csv')
MsgBox(0x40, "", $i_AgentCount)
Func AvayaData($s_ReportSource, $s_NameList)

$av_LiveData = _ParseCSV($s_ReportSource)
If @error Then Return -1

$av_NameList = _ParseCSV($s_NameList)
If @error Then Return -1

Local $i_AgentCount = 0

For $i_RowCnt = 1 To (UBound($av_LiveData, 1) - 1) Step +1

    For $i_AgtLst = 1 To (UBound($av_NameList) - 1) Step +1

        If StringStripWS($av_LiveData[$i_RowCnt][1], 3) = StringStripWS($av_NameList[$i_AgtLst][0], 3) Then

            $i_AgentCount += 1

        EndIf

    Next

Next

;Return the Agent Count
Return $i_AgentCount

EndFunc

名前リスト.csv

 Agent Name
"Doe, Jane"
"Doe, John"

レポート.csv

,Agent Name,Login ID,Extn,AUX Reason,State,Split/Skill,Time,VDN Name
5,"Doe, John",5930001,1000001,7,AUXOUT,999,51:32:00,
2,"Doe, Jane",5930002,1000002,7,AUXOUT,999,52:32:00,
4

2 に答える 2

1

テスト済み！提供されたファイルでうまく機能します（スクリプトのようにコピーして名前を付けます）

以下に注意してください

  • _ParseCsv() は書き直され、$Dchar などのパラメーターを区切り記号として追加します (スクリプトを参照)。
  • ファイル内で名前を見つける方法に注意してください（検索を拡張する機能を簡単に追加できますが、必須ではありません）
  • メッセージボックスは説明用です。もう必要ない場合はコメントアウトしてください
  • array.au3 は必要ありません

そしてコード：

$i_AgentCount = AvayaData(@ScriptDir & '\Report.csv', @ScriptDir & '\Name List.csv')
MsgBox(0x40, "", $i_AgentCount)
Func AvayaData($s_ReportSource, $s_NameList)


 $av_LiveData = _ParseCSV($s_ReportSource,",","oops...",True)
 If @error Then Return -1

 $av_NameList = _ParseCSV($s_NameList,",","oops: 2",True)
 If @error Then Return -1

 MsgBox(0,default,"$av_NameList (Number of lines) -> " & $av_NameList[0][0])
 MsgBox(0,default,"$av_NameList (Number of data in each line) -> " & $av_NameList[0][1])

  MsgBox(0,default,"$av_LiveData (Number of lines) -> " & $av_LiveData[0][0])
 MsgBox(0,default,"$av_LiveData (Number of data in each line) -> " & $av_LiveData[0][1])

  Local $i_AgentCount = 0
for $i = 1 to $av_NameList[0][0] Step 1


For $j= 1 To $av_LiveData[0][0] Step 1

   ;we can have  names from $av_NameList as well from $av_LiveData but in Live Data 2nd abd 3rd values are the names
   MsgBox(0,default,$av_NameList[$i][1] & $av_NameList[$i][2] & " <------------> " & $av_LiveData[$j][2] & $av_LiveData[$j][3])

   ;~   let's compare them if matched with any of the liveData lines
  If StringCompare($av_NameList[$i][1] & $av_NameList[$i][2],$av_LiveData[$j][2] & $av_LiveData[$j][3]) == 0 Then 
     $i_AgentCount += 1
     MsgBox(0,default,"Match found: counter: " & $i_AgentCount)
   EndIf     
Next   
 Next   

;Return the Agent Count
Return $i_AgentCount

 EndFunc

 Func _ParseCSV($f,$Dchar,$error,$skip)

    Local $array[500][500]
    Local $line = ""

     $i = 0
    $file = FileOpen($f,0)
     If $file = -1 Then
   MsgBox(0, "Error", $error)
   Return False
    EndIf

   ;skip 1st line (since it is the header)
   If $skip Then $line = FileReadLine($file)

 While 1
 $i = $i + 1
Local $line = FileReadLine($file)
If @error = -1 Then ExitLoop
   ;skip 1st line
      $row_array = StringSplit($line,$Dchar)
      If $i == 1 Then $row_size = UBound($row_array) 
      If $row_size <> UBound($row_array) Then  MsgBox(0, "Error", "Row: " & $i & " has different size ")
      $row_size = UBound($row_array)
      $array = _arrayAdd_2d($array,$i,$row_array,$row_size)

WEnd
FileClose($file)
$array[0][0] = $i-1 ;stores number of lines
$array[0][1] = $row_size -1  ; stores number of data in a row (data corresponding to    index 0 is the number of data in a row actually that's way the -1)
Return $array

EndFunc
Func _arrayAdd_2d($array,$inwhich,$row_array,$row_size)
  For $i=1 To $row_size -1 Step 1
  $array[$inwhich][$i] = $row_array[$i]
 Next
Return $array
EndFunc
于 2013-12-14T20:33:08.963 に答える