need help with changing script

KuanTi · May 14, 2015

Hi im new here and look for some advice with make program wich will open file and look in to the file excel or txt and search for expired time.

Then if expired time is <= 1 month from curent time program will automaticly send mail.

example of file:

A B C D E

text 1 | text 2 | tex3 | expired time | mail

I'm just find this:

Global $oExcel = _Excel_Open(False)
Global $oBook = _Excel_BookOpen($oExcel, $sWorkbook, True)
Global $aData = _Excel_RangeRead($oBook, Default, $oBook.ActiveSheet.Usedrange)
_Excel_Close($oExcel, False)
$oOutlook = _OL_Open()
For $i = 1 To UBound($aData, 1) - 1
   $sDate = StringLeft($aData[$i][13], 4) & "-" & StringMid($aData[$i][13], 5, 2) & "-" & StringMid($aData[$i][13], 7, 2) ; Format date to YYYY-MM-DD
   $sTemp = $sBody & "<p>" & '<html><body><style>table{width:100%;}td{border:1px solid;}</style>' & _
           '<table><tr bgcolor="#ffcc66"><td>' & $aData[0][1] & '</td><td>' & $aData[0][9] & '</td>' & _
           '<td>' & $aData[0][11] & '</td><td>' & $aData[0][13] & '</td><td>' & $aData[0][16] & '</td><td>' & $aData[0][17] & '</td><td>' & $aData[0][18] & '</td>' & _
           '<tr><td>' & $aData[$i][1] & '</td><td>' & $aData[$i][9] & '</td>' & _
           '<td>' & $aData[$i][11] & '</td><td>' & $sDate & '</td><td>' & $aData[$i][16] & '</td><td>' & $aData[$i][17] & '</td><td>' & $aData[$i][18] & '</td>' & _
           '</tr></table></body></html>' ; set the body to the static text from $sBody plus 5 cells from Excel
   _OL_Wrapper_SendMail($oOutlook, $aData[$i][9], $aData[$i][10], "", $aData[$i][1], $sTemp, "", $olFormatHTML)
Next
_OL_Close($oOutlook)
Exit

and try to change it to resolve mine problem.

If u have some time maybe help with this ...

Ty

Mariusz

Edited May 14, 2015 by KuanTi

nitekram · May 14, 2015

I am not able to test this, but you never compare the date to an expired range. I think you need to check that with an If/Then statement, and if it falls outside the lines, then use the wrapper to send the email. Right now it looks like you are sending out the email for every row?

KuanTi · May 14, 2015

Hi Nitekram, you r right with this. hmm i find another script which look into the file and send mail if it find some word.

Here is link to script: https://www.autoitscript.com/forum/topic/164830-monitor-txt-file-for-words-then-send-alert-mail/?page=2

And maybe in this file i edit and use it to take mine problem off.

Must think some minutes how to make it

nitekram · May 14, 2015

You will need to do a date check to determine if the date is <= one month...maybe check if the month is different (up from one, up from two would be automatic), then once the month is one value higher, check the date, if it is a match or higher then send, if not then do not send.

SadBunny · May 14, 2015

That, or _DateDiff().

KuanTi · May 14, 2015

Ty Guys for replay but need some advice. How to check DATE recorded in file ??

i can compare dates using below script but dont know how to check from file any help will close me to end

#include <Date.au3>
#include <MsgBoxConstants.au3>
Local $time = "2015/05/15 00:00:00"
Local $time2 = "2015/07/28 00:00:00"
$iDateCalc = _DateDiff('M',$time,$time2)
MsgBox (4096,"",$iDateCalc)

KuanTi · May 14, 2015

hmm how to compare _datedif in array ?

file a:

a,a,a,a,2015/05/15
a,a,a,a,2015/07/15
a,a,a,a,2015/09/15

file b:

2015/05/14

#include <Date.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>
#include <Array.au3>
Local $time = "2015/05/15"
Local $time2 = "2015/07/28"
Global $aArray_1, $aArray_2
$sFile_1 = "c:\test\a.txt"
$sFile_2 = "c:\test\b.txt"
$iDateCalc = _DateDiff('M',$time,$time2)
_FileReadToArray($sFile_1, $aArray_1)
_FileReadToArray($sFile_2, $aArray_2)
;_ArrayDisplay($aArray_1)
;_ArrayDisplay($aArray_2)
Global $aArray_2D_1[$aArray_1[0] + 1][5], $aArray_2D_2[$aArray_2[0] + 1][1]
For $i = 1 To $aArray_1[0]
   $aSplit_1 = StringSplit($aArray_1[$i], ",", 2)
   $aSplit_2 = StringSplit($aArray_2[$i], ",", 2)
   For $j = 0 To 1
       $aArray_2D_1[$i][$j] = $aSplit_1[$j]
       $aArray_2D_2[$i][$j] = $aSplit_2[$j]
   Next
Next
For $i = 1 To UBound($aArray_2D_1) - 1
   If $aArray_2D_1[$i][4] < $aArray_2D_2[$i][4] Then
       ConsoleWrite($aArray_2D_1[$i][4] & " is less than " & $aArray_2D_2[$i][4] & @CRLF)
   Else
       ConsoleWrite($aArray_2D_1[$i][4] & " is greater than " & $aArray_2D_2[$i][4] & @CRLF)
   EndIf
Next
MsgBox (4096,"",$iDateCalc)

Edited May 14, 2015 by KuanTi

nitekram · May 14, 2015

You pull the date from the array, and put in same formt as datediff or however you want to compare.

KuanTi · May 14, 2015

Can u give me some example?

nitekram · May 14, 2015

Try this and check the help file, there are plenty of examples:

#include <Date.au3>
#include <array.au3>

$aTempDate = StringSplit('2015/05/10', '/', 2)

$iYear = $aTempDate[0]
$iMonth = $aTempDate[1]
$iDay = $aTempDate[2]
_ArrayDisplay($aTempDate)

Local $iDateCalc = _DateDiff('D', $iYear & '/' & $iMonth & '/' &$iDay & " 00:00:00", _NowCalc())
MsgBox(4096, "", "Number of Days since Update: " & $iDateCalc)

Edited May 14, 2015 by nitekram

need help with changing script

Recommended Posts

Link to comment

Share on other sites

Ternary operator

Link to comment

Share on other sites

Link to comment

Share on other sites

Ternary operator

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Ternary operator

Link to comment

Share on other sites

Link to comment

Share on other sites

Ternary operator

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members