Finding the size today's and previous day file (with specific format school_logs 20151017,txt/school_logs 20151016.txt)

RANA · October 17, 2015

Hello All,

I am stuck in the middle of one script.I am relatively new in coding

There are a list of folders path given in a config file .I want to read each folder path and

find the size today's and previous day file (with specific format like school_logs 20151017,txt/school_logs 20151016.txt) . i did the date format manipulation and also can read the files from specific folders mentioned in the config.txt file.After this not getting the right direction to proceed.CAn any body please help me out of this.Below is the code which i tried

#include <Date.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <ProgressConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>


Main()

Func Main()

    Local $tCur, $datePart, $timePart, $yyyy, $mm, $dd, $rc, $sYDate, $YdatePart, $Nyyyy, $Nmm, $Ndd

    Local $origName, $newName, $folder, $localFilePath, $localFilePath1, $serverFilePath, $serverFilePath13
    Global $Ycnt, $Tcnt, $Comperc

    Local $iWeekday = _DateToDayOfWeek(@YEAR, @MON, @MDAY)
    ; Should be equal to @WDAY

    $tCur = _NowCalcDate()
    MsgBox($MB_SYSTEMMODAL, "CurrentDate", $tCur)
    _DateTimeSplit($tCur, $datePart, $timePart)
    $yyyy = $datePart[1]
    $mm = $datePart[2]
    If ($mm < 10) Then $mm = "0" & $mm
    $dd = $datePart[3]
    If ($dd < 10) Then $dd = "0" & $dd



    ;* new date required to fetch Previous Day file
    If ($iWeekday == 2) Then
        $sYDate = _DateAdd('d', -3, $tCur)
        _DateTimeSplit($sYDate, $YdatePart, $timePart)
        $Nyyyy = $YdatePart[1]
        $Nmm = $YdatePart[2]
        If ($Nmm < 10) Then $Nmm = "0" & $Nmm

        $Ndd = $YdatePart[3]
        If ($Ndd < 10) Then $Ndd = "0" & $Ndd

        MsgBox($MB_SYSTEMMODAL, "Yesterday Date", $sYDate)

    Else
        $sYDate = _DateAdd('d', -1, $tCur)
        _DateTimeSplit($sYDate, $YdatePart, $timePart)
        $Nyyyy = $YdatePart[1]
        $Nmm = $YdatePart[2]
        If ($Nmm < 10) Then $Nmm = "0" & $Nmm

        $Ndd = $YdatePart[3]
        If ($Ndd < 10) Then $Ndd = "0" & $Ndd



        MsgBox($MB_SYSTEMMODAL, "Yesterday's NDDDate", $Ndd)
    EndIf





    ;~      $dd

    $configFile = "C:\Users\Anirban patra\Desktop\New folder\config.txt"
    FileOpen($configFile, 0)

    For $i = 1 To _FileCountLines($configFile)
        $line = FileReadLine($configFile, $i)

        For $gfile In _FileListToArray($line, "*.txt", 1)


        Next

    Next


    FileClose($configFile)

EndFunc   ;==>Main

Edited October 17, 2015 by Melba23
Added code tags

Melba23 · October 17, 2015

RANA,

But please pay attention to where you post - the "Examples" section where you started this thread is clearly marked: "Do not post general support questions here". I have moved it for you, but would ask you to be more careful in future.

And when you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see above now I have added the tags.

M23

RANA · October 17, 2015

RANA,
But please pay attention to where you post - the "Examples" section where you started this thread is clearly marked: "Do not post general support questions here". I have moved it for you, but would ask you to be more careful in future.
And when you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see above now I have added the tags.
M23

Hello Melba ,

Thanks for the guidance.Youwant me to post here

https://www.autoitscript.com/forum/search/?q=Examples

Melba23 · October 17, 2015

RANA,

Why have you just posted this question again in the "Examples" section? As explained above I have moved your thread to the "General Help and Support" section where it belongs, so there is no need for you to do anything more than wait for some replies - I will look at the code myself after lunch. Please do not post the question a 3rd time - and particularly not in "Examples".

M23

Edited October 17, 2015 by Melba23
Typo

Melba23 · October 17, 2015

RANA,

This should do what you require:

#include <Date.au3>

; File name
$sConfigFile = "C:\Users\Anirban patra\Desktop\New folder\config.txt"

; Get list of folders from file
$aFolderList = FileReadToArray($sConfigFile)
$iCount = @extended

; Get todays date
$DateToday = _NowCalcDate()

; Get filename format for today's date:
$FileToday = "school_logs " & StringReplace($DateToday, "/", "") & ".txt"

; Get filename format for yesterday's date
$sDateYesterday = _DateAdd("D", -1, $DateToday)
$sFileYesterday = "school_logs " & StringReplace($sDateYesterday, "/", "") & ".txt"

; Loop through folders
For $i = 0 To $iCount - 1
    ; Depending on how the folder paths are stored, you may not need the "\" in the lines below
    $iSizeToday = FileGetSize($aFolderList[$i] & "\" & $FileToday)
    $iSizeYesterday = FileGetSize($aFolderList[$i] & "\" & $FileYesterday)
    
    ; Now do your comparison and whatever comes next
    
Next

Please ask again if not - or if you have any questions.

M23

RANA · October 17, 2015

Hello Melba ,

$FileToday = "school_logs " & StringReplace($DateToday, "/", "") & ".txt"

In the above line i tried with putting "*" instead of "school_logs",Because the name of the files (like school_logs )will be different in the each of the folder.
say for example
in the first path
the path mentioned is :C:\Users\Anirban patra\Documents\Extract---under this path i will be having files like school_logs 20151017.txt ,school_logs 20151016.txt etc

2nd path is like : C:\Users\Anirban patra\Documents\counterpartymapping -- under this path i will be having files like mappings20151017.txt ,mappings20151016.txt etc

That is why i want to replace school_logs with " * " .

$FileToday = "*" & StringReplace($DateToday, "/", "") & ".txt"

this is not giving the desired result

RANA · October 17, 2015

Basically i want to loop through each of the folders ,read today's date timestamp file and yesterday's date timestamp file and again the loop should do to the next folder path mentioned in the config.txt file and do the same operation.I have written a compare function so size difference won't be a problem

Melba23 · October 17, 2015

RANA,

Because the name of the files (like school_logs )will be different in the each of the folder

A top tip: give ALL the useful information when you ask a question - then people will not waste their time writing code that will obviously not meet the requirement.

As you have discovered, you cannot use wildcards with FileGetSize - you need a full path. What I suggest is that you save the correct part-filename in your config file along with the path like this:

C:\Users\Anirban patra\Documents\Extract|school_logs 
C:\Users\Anirban patra\Documents\counterpartymapping|mappings

Then you can create the full filenames using this code:

#include <Date.au3>
#include <File.au3>

#include <Array.au3> ; Just to show the file after being read into an array

; File name
$sConfigFile = @ScriptDir & "\config.txt"

; Get list of folders from file
Global $aFolderList

_FileReadToArray($sConfigFile, $aFolderList, Default, "|")

_ArrayDisplay($aFolderList, "", Default, 8) ; Just to show the file after being read into an array

; Get todays date
$sDateToday = _NowCalcDate()
; Get yesterday's date
$sDateYesterday = _DateAdd("D", -1, $sDateToday)
; Format both correctly
$sDateToday = StringReplace($sDateToday, "/", "")
$sDateYesterday = StringReplace($sDateYesterday, "/", "")

; Loop through folders
For $i = 1 To $aFolderList[0][0] ; Note new limits here <<<<<<<<<<<

    $iSizeToday = FileGetSize($aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $sDateToday & ".txt")
    $iSizeYesterday = FileGetSize($aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $sDateYesterday & ".txt")
    ; Show what is produced
    MsgBox($MB_SYSTEMMODAL, "Checking", $aFolderList[$i][0] & @CRLF & _
                            $aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $sDateToday & ".txt" & @CRLF & _
                            $aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $sDateYesterday & ".txt")

    ; Now do your comparison and whatever comes next

Next

Better?

M23

RANA · October 17, 2015

Thanks for the help .see the below code

Edited October 17, 2015 by Melba23
Removed quote

Melba23 · October 17, 2015

RANA,

One final point - when you reply, please use the "Reply to this topic" button at the top of the thread or the "Reply to this topic" editor at the bottom rather than the "Quote" button - I know what I wrote and it just pads the thread unnecessarily.

M23

RANA · October 17, 2015

#include <Date.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <ProgressConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>

Main()

Func Main()

    Local $tCur, $datePart, $timePart, $yyyy, $mm, $dd, $rc, $sYDate, $YdatePart, $Nyyyy, $Nmm, $Ndd,$ssDateToday,$ssYesterdayDate
    Local $origName, $newName, $folder, $localFilePath, $localFilePath1, $serverFilePath, $serverFilePath13
    Global $Ycnt, $Tcnt, $Comperc
        Local $iWeekday = _DateToDayOfWeek(@YEAR, @MON, @MDAY)
    ; Should be equal to @WDAY

    $tCur = _NowCalcDate()
    MsgBox($MB_SYSTEMMODAL,"CurrentDate",$tCur)
    _DateTimeSplit($tCur, $datePart, $timePart)
    $yyyy = $datePart[1]
    $mm = $datePart[2]
    If ($mm < 10) Then $mm = "0" & $mm
    $dd = $datePart[3]
    If ($dd < 10) Then $dd = "0" & $dd
    $ssDateToday = $yyyy & $mm & $dd
        MsgBox($MB_SYSTEMMODAL,"CurrentDate",$ssDateToday)

    ;* new date required to fetch Previous Day file
    If ($iWeekday == 2) Then
        $sYDate = _DateAdd('d', -3, $tCur)
        _DateTimeSplit($sYDate, $YdatePart, $timePart)
        $Nyyyy = $YdatePart[1]
        $Nmm = $YdatePart[2]
        If ($Nmm < 10) Then $Nmm = "0" & $Nmm
        $Ndd = $YdatePart[3]
        If ($Ndd < 10) Then $Ndd = "0" & $Ndd
MsgBox($MB_SYSTEMMODAL,"Y_Date",$sYDate)
$ssYesterdayDate = $Nyyyy & $Nmm  & $Ndd
MsgBox($MB_SYSTEMMODAL,"CurrentDate",$ssYesterdayDate)
    Else
        $sYDate = _DateAdd('d', -1, $tCur)
        _DateTimeSplit($sYDate, $YdatePart, $timePart)
        $Nyyyy = $YdatePart[1]
        $Nmm = $YdatePart[2]
        If ($Nmm < 10) Then $Nmm = "0" & $Nmm
        $Ndd = $YdatePart[3]
        If ($Ndd < 10) Then $Ndd = "0" & $Ndd

        MsgBox($MB_SYSTEMMODAL,"Yesterday's NDDDate",$Ndd)
        $ssYesterdayDate = $Nyyyy & $Nmm  & $Ndd
        MsgBox($MB_SYSTEMMODAL,"YDate",$ssYesterdayDate)
    EndIf

    $sConfigFile = @ScriptDir & "\config.txt"

; Get list of folders from file
Global $aFolderList

_FileReadToArray($sConfigFile, $aFolderList, Default, "|")
ArrayDisplay($aFolderList, "", Default, 8) ; Just to show the file after being read into an array
; Get todays date
$sDateToday = _NowCalcDate()

; Get yesterday's date
$sDateYesterday = _DateAdd("D", -1, $sDateToday)
; Format both correctly
$sDateToday = StringReplace($ssDateToday, "/", "")
$sDateYesterday = StringReplace($ssYesterdayDate, "/", "")

; Loop through folders
For $i = 1 To $aFolderList[0][0] ; Note new limits here <<<<<<<<<<<

    $iSizeToday = FileGetSize($aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $ssDateToday & ".txt")
    $iSizeYesterday = FileGetSize($aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $ssYesterdayDate & ".txt")
    ; Show what is produced
    MsgBox($MB_SYSTEMMODAL, "Checking", $aFolderList[$i][0] & @CRLF & _
                            $aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $ssYesterdayDate & ".txt" & @CRLF & _
                            $aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $ssYesterdayDate & ".txt")

    ; Now do your comparison and whatever comes next

Next

EndFunc



ArrayDisplay($aFolderList, "", Default, 8) ; Just to show the file after being read into an array--Before this line it gives an error that no array variable passed to the function.


and the message box doesn't comes up

For $i = 1 To $aFolderList[0][0] ; Note new limits here <<<<<<<<<<<

    $iSizeToday = FileGetSize($aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $ssDateToday & ".txt")
    $iSizeYesterday = FileGetSize($aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $ssYesterdayDate & ".txt")
    ; Show what is produced
    MsgBox($MB_SYSTEMMODAL, "Checking", $aFolderList[$i][0] & @CRLF & _
                            $aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $ssYesterdayDate & ".txt" & @CRLF & _
                            $aFolderList[$i][0] & "\" & $aFolderList[$i][1] & $ssYesterdayDate & ".txt")

    ; Now do your comparison and whatever comes next

Melba23 · October 17, 2015

RANA,

The code I gave you replaces all of your original script, it is not something to be added at the end.

And the reason you do not get an array is because I changed the path of the config file for my testing:

$sConfigFile = @ScriptDir & "\config.txt"

You need to change it back to match the actual path you are using:

$sConfigFile = "C:\Users\Anirban patra\Desktop\New folder\config.txt"

Now the code should find the file and read it into the array.

M23

RANA · October 17, 2015

Hi Melba ,Please refer the attached screenshot.It gives some error on line 86

"C:\Users\Anirban patra\Desktop\New folder\Autoit1_script.au3" (86) : ==> Subscript used on non-accessible variable.:
For $i = 1 To $aFolderList[0][0]
For $i = 1 To $aFolderList^ ERROR

Edited October 17, 2015 by Melba23
Removed yet another quote!

RANA · October 17, 2015

Sorry , a bit uncomfortable with the functionality of quote and "reply to this topic" will follow from next

Melba23 · October 17, 2015

RANA,

Does the file which you are reading now have the part-filenames added to the paths as in the example I posted above?

Folder path                             |part file-name
C:\Users\Anirban patra\Documents\Extract|school_logs

or is it still folder paths only?

When you look at the array, what does the _ArrayDisplay dialog show as dimensions in the bottom-left corner?

M23

RANA · October 17, 2015

Yes i gave like

C:\Users\Anirban patra\Documents\AdaptivApmsExtract|supriyas_Email
C:\Users\Anirban patra\Documents\counterpartymapping|Email

The array display still does not shows anything.it shows same error

Melba23 · October 17, 2015

RANA,

Please run this and tell me what you get in the MsgBox:

#include <MsgBoxConstants.au3>

$sContent = FileRead("C:\Users\Anirban patra\Desktop\New folder\config.txt")
MsgBox($MB_SYSTEMMODAL, "Config", $sContent)

That will tell us if AutoIt can access the file.

M23

RANA · October 17, 2015

Yes Melba ,

it gives the two paths that are mentioned in the config.txt file

Melba23 · October 17, 2015

RANA,

What AutoIt version do you run? You can find the answer by running this:

#include <MsgBoxConstants.au3>

MsgBox($MB_SYSTEMMODAL, "Version", @AutoItVersion)

M23

RANA · October 17, 2015

3.3.14.1

Finding the size today's and previous day file (with specific format school_logs 20151017,txt/school_logs 20151016.txt)

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Top Posters In This Topic

Posted Images

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

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

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

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

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members