add numbers to different IP´s

[timi1014]

Hey Community!

It´s been a while but now i realy need your help.

i have a .txt looking like that

192.168.0.112 smbprn.00 1

192.168.0.112 smbprn.00 1

192.168.0.112 smbprn.00 1

192.168.0.112 smbprn.00 1

192.168.0.119 smbprn.00 1

192.168.0.119 smbprn.00 2

192.168.0.119 smbprn.00 1

192.168.0.119 smbprn.00 1

192.168.0.119 smbprn.00 1

192.168.0.119 smbprn.00 1

192.168.0.119 smbprn.00 1

192.168.0.119 smbprn.00 3

192.168.0.119 smbprn.00 1

192.168.0.119 smbprn.00 1

192.168.0.119 smbprn.00 1

192.168.0.134 smbprn.00 1

192.168.0.136 smbprn.00 9

192.168.0.136 smbprn.00 9

192.168.0.136 smbprn.00 4

it´s the output from a printing software.

The last number is the number of pages an IP print.

so i need to add all pages together to the right IP.

there can be differnt IP´s from 30 to 200

i dont need a working script but i dont know how to start some useful tips would be great!

[abberration]

Maybe this will help get you started:

#include <array.au3>
#include <file.au3>

$lineCount = _FileCountLines("data.txt")
Dim $outputArray[$lineCount][2]
For $i = 1 to $lineCount Step 1
$line = FileReadLine("data.txt", $i)
$line = StringStripWS($line, 8)
$split = StringSplit($line, "smbprn.00", 3)
$outputArray[$i - 1][0] = $split[0]
$outputArray[$i - 1][1] = $split[1]
Next

_ArrayDisplay($outputArray)

[UEZ]

Something like that?

#include <Array.au3>
$sFile = FileRead(@ScriptDir & "Printer.txt")
$aIPs = StringRegExp($sFile, "(?:d{1,3}.){3}d{1,3}", 3)
$aUniqueIPs = _ArrayUnique($aIPs)
$iPos = $aUniqueIPs[0]
$aUniqueIPs[0] *= 2
ReDim $aUniqueIPs[$aUniqueIPs[0] + 1]
$aValues = StringRegExp($sFile & @CRLF, "((?:d{1,3}.){3}d{1,3}).*(d+)rn", 3)

For $i = 0 To UBound($aValues) - 1 Step 2
    $aUniqueIPs[$iPos + _ArraySearch($aUniqueIPs, $aValues[$i])] += $aValues[$i + 1]
Next

For $i = 1 To $aUniqueIPs[0] / 2
    ConsoleWrite($aUniqueIPs[$i] & ": " & $aUniqueIPs[$iPos + $i] & @LF)
Next

Br,

UEZ

[Mechaflash]

More lines of code, but you can drop having to parse file.au3 (more native). This method should work a little faster.

#include <array.au3>

$sFile = "C:print.txt"
$hFile = FileOpen($sFile) ; open for reading
Local $x = 0, $i = 0, $asPrintCount[171][2]
While 1
    $i+=1
    $sLine = FileReadLine($hFile, $i)
    If @error <> 0 Then ExitLoop
    $asSplit = StringSplit($sLine, " ")
    $iIndex = _ArraySearch($asPrintCount, $asSplit[1], 0, 0, 0, 0, 1, 0)
    If $iIndex = -1 Then
        $asPrintCount[$x][0] = $asSplit[1]
        $asPrintCount[$x][1] = $asSplit[$asSplit[0]]
        $x+=1
    Else
        $asPrintCount[$iIndex][1]+=$asSplit[$asSplit[0]]
    EndIf
WEnd
FileClose($hFile)
ReDim $asPrintCount[$x][2]
_ArrayDisplay($asPrintCount)

[Spiff59]

And another...

#include <Array.au3>
#include <File.au3>

Global $aFileIn, $iReportLines
_FileReadToArray(@ScriptDir & "Printer.txt",$aFileIn)
Global $aReportOut[$aFileIn[0] + 1][2]

For $x = 1 to $aFileIn[0]
    $aTemp = StringSplit($aFileIn[$x], " ", 0)
    If $aTemp[1] <> $aReportOut[$iReportLines][0] Then $iReportLines += 1
    $aReportOut[$iReportLines][0] = $aTemp[1] ; IP address
    $aReportOut[$iReportLines][1] += $aTemp[$aTemp[0]] ; IP page total
    $aReportOut[0][1] += $aTemp[$aTemp[0]] ; Overall page total
Next

$aReportOut[0][0] = $iReportLines ; Number of IP's
ReDim $aReportOut[$iReportLines + 1][2]
_ArrayDisplay($aReportOut)

Edit: Added one line for an overall page total

Edited June 26, 2012 by Spiff59

[iamtheky]

one more..

yay, new ff, new pasting issues....

Edited June 25, 2012 by boththose

[GEOSoft]

$FileIn = "C:SomePathsomefile.txt"
$s_Str = _TotalPages(FileRead($FileIn))

MsgBox(4096, "Result",  $s_Str)
 
Func _TotalPages($s_Txt)
      If FileExists($s_Txt) Then $s_Txt = FileRead($s_Txt)
      Local $int_Count = 0
      Local $a_Hold = StringRegExp($s_Txt, ".+h+(d+)", 3)
      If Not @Error Then
            For $i = 0 To Ubound($a_Hold) -1
                  $int_Count += $a_Hold[$i]
            Next
            Return "Total Page Count: " & $Int_Count
      EndIf
      Return SetError(1, 0, "Error creating the array.")
EndFunc

[Mechaflash]

$FileIn = "C:SomePathsomefile.txt"
$s_Str = _TotalPages(FileRead($FileIn))

MsgBox(4096, "Result", $s_Str)

Func _TotalPages($s_Txt)
     If FileExists($s_Txt) Then $s_Txt = FileRead($s_Txt)
     Local $int_Count = 0
     Local $a_Hold = StringRegExp($s_Txt, ".+h+(d+)", 3)
     If Not @Error Then
         For $i = 0 To Ubound($a_Hold) -1
                 $int_Count += $a_Hold[$i]
         Next
         Return "Total Page Count: " & $Int_Count
     EndIf
     Return SetError(1, 0, "Error creating the array.")
EndFunc

From now on, I'm going to be one of the cool kids and write my examples in functions. It's how it should be done anyways. <3 Geo

[GEOSoft]

Just easier to follow that way.

[Juvigy]

C'mon guys , dont do 'everything' in 5 ways for the guy , just point to the right direction.

"Give a man a fish .... Teach the man to fish ..."

[UEZ]

@Juvigy: we showed him how to fish 5 different fishes and now it is timi1014's turn to learn from these examples and learn fishing.

Br,

UEZ

[Mechaflash]

C'mon guys , dont do 'everything' in 5 ways for the guy

More than one way to skin a program?

[timi1014]

Thanks to all off you!

i am going to find the best func that match my requirements.

never expected such high response O.o