Trying to read specific text from file

[JLogan3o13]

I have been working on a script to use in conjunction with a command line defragmenting tool. The tool analyzes the drive(s), then spits out a report. I'd like to have the script read the number of fragmented items, and then take some action thereafter. The problem I am having is getting the script to read only what I want out of the log file. I've been playing around with FileRead and FileReadLine, but am not coming up with what I need. See below for an example of the log file by line:

1-12 omiited....

13. <blank>

14. Unfragmented items: 26,756,861,952 bytes 112,645 items

15. Fragmented items: 6,966,956,032 bytes 2,677 items

I would like to read line 14, but only the number of unfragmented bytes (26,756,861,952), and then use ClipPut to use this info late in the script. I would then read the fragmented bytes in line 15, and do the same. Can anyone offer any suggestions, or let me know that this is not feasible? Thanks.

[sb1920alk]

  On 4/7/2010 at 6:23 PM, 'JLogan3o13 said:

I have been working on a script to use in conjunction with a command line defragmenting tool. The tool analyzes the drive(s), then spits out a report. I'd like to have the script read the number of fragmented items, and then take some action thereafter. The problem I am having is getting the script to read only what I want out of the log file. I've been playing around with FileRead and FileReadLine, but am not coming up with what I need. See below for an example of the log file by line:

1-12 omiited....

13. <blank>

14. Unfragmented items: 26,756,861,952 bytes 112,645 items

15. Fragmented items: 6,966,956,032 bytes 2,677 items

I would like to read line 14, but only the number of unfragmented bytes (26,756,861,952), and then use ClipPut to use this info late in the script. I would then read the fragmented bytes in line 15, and do the same. Can anyone offer any suggestions, or let me know that this is not feasible? Thanks.

If "unfragmented" and "fragmented" only appear once in the log, you can real the whole file to a variable, split it by lines, then loop through the array of lines. In the loop, if the line contains "unfragmented", use text manipulation to pull out the bytes and set a variable equal to it. Use a different variable for "fragmented".

Look at fileread, stringsplit, for...in...next, stringinstr

[Melba23]

JLogan3o13,

Something along these lines should work:

$sFile = @ScriptDir & "\Defrag.log"

$aArray = StringSplit(StringTrimLeft(FileReadLine($sFile, 14), 20), " ")
$sUnfrag = $aArray[1]
$aArray = StringSplit(StringTrimLeft(FileReadLine($sFile, 15), 18), " ")
$sFrag = $aArray[1]

MsgBox(0, "Bytes", "Unfragmented: " & $sUnfrag & @CRLF & "Fragmented: " & $sFrag)

M23

[JLogan3o13]

  On 4/7/2010 at 6:34 PM, 'sb1920alk said:

If "unfragmented" and "fragmented" only appear once in the log, you can real the whole file to a variable, split it by lines, then loop through the array of lines. In the loop, if the line contains "unfragmented", use text manipulation to pull out the bytes and set a variable equal to it. Use a different variable for "fragmented".

Look at fileread, stringsplit, for...in...next, stringinstr

Hi, Thanks for the reply. Unfortunately both words occur numerous times in the log file. I may just chalk this one up to more trouble than its worth.

[kaotkbliss]

Well, you can still keep the code short and sweet by doing the suggested above.

Read the file line by line until you reach Fragmented or Unfragmented, call a function to do what you want when it finds that, it will then return to the loop when done and continue till end of file.

Just some thoughts to keep your project a possibility

[JLogan3o13]

Thanks for all of the suggestions, I believe Melba's snippet gave me enough to get what I want. Thanks again.

[JLogan3o13]

With the assistance of M23's code, I was able to play around with this until I got it to do what I wanted. Below is what I ended up with, after reading that you could nest StringTrim functions.

$sFile = "C:\Fragmentation.log"

$line1 = FileReadLine($sFile, 14)

$line2 = FileReadLine($sFile, 15)

$value1 = StringTrimLeft (StringTrimRight($line1, 30), 20)

ClipPut( $value1 )

$value2 = StringTrimLeft (StringTrimRight($line2, 30), 24)

ClipPut($value2)

$frag = $value2 / $value1 * 100

$frag1 = StringTrimRight($frag, 12)

$defrag = MsgBox(4, "Fragmentation Level", $frag1 & "%. Would you like to defragment?")

Thanks again for the suggestions, works great now.

[sb1920alk]

  On 4/7/2010 at 9:55 PM, 'JLogan3o13 said:

With the assistance of M23's code, I was able to play around with this until I got it to do what I wanted. Below is what I ended up with, after reading that you could nest StringTrim functions.

$sFile = "C:\Fragmentation.log"

$line1 = FileReadLine($sFile, 14)

$line2 = FileReadLine($sFile, 15)

$value1 = StringTrimLeft (StringTrimRight($line1, 30), 20)

ClipPut( $value1 )

$value2 = StringTrimLeft (StringTrimRight($line2, 30), 24)

ClipPut($value2)

$frag = $value2 / $value1 * 100

$frag1 = StringTrimRight($frag, 12)

$defrag = MsgBox(4, "Fragmentation Level", $frag1 & "%. Would you like to defragment?")

Thanks again for the suggestions, works great now.

...just to make sure you know it's an option.

defrag c: -a -v