Write column 1 from 2D array to file

[antmar904 0]

Hi all,

I cant seem to get it working with arrays for some reason.

Basically i want to list all the printers that are installed on a computer and write them to a file.

I am using a print function from >HERE but i only want to write column 1 (print names)

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

$PrinterList = @ScriptDir & "\PrinterList.log"
$aPrinterList = _EnumPrinterConfiguration()
_FileWriteFromArray ($PrinterList, $aPrinterList)
_ArrayDisplay($aPrinterList)

[JohnOne 1,541]

I cant seem to get it working with arrays for some reason.

Did to try ...

[Chimp 366]

you could use _ArrayExtract()

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

$PrinterList = @ScriptDir & "\PrinterList.log"
$aPrinterList = _EnumPrinterConfiguration()
;
$aColumn1 = _ArrayExtract($aPrinterList, Default, Default, 1, 1) ; <- extract only column 1
;
_FileWriteFromArray($PrinterList, $aColumn1)
_ArrayDisplay($aColumn1)

[jguinch 352]

... or use a simple loop :

#include "Printers.au3"
#include <Array.au3>

$PrinterList = @ScriptDir & "\PrinterList.log"

$aPrinterList = _EnumPrinterConfiguration()

$hFile = FileOpen($PrinterList, 2)
For $i = 0 To UBound($aPrinterList) - 1
    FileWriteLine($hFile, $aPrinterList[$i][1])
Next
FileClose($hFile)
_ArrayDisplay($aPrinterList)

[mikell 522]

Or if the list is the only thing you need to get, use only the udf part which does this

#Include <Array.au3>
$res = _EnumPrinters()
 _ArrayDisplay($res)

Func _EnumPrinters()
    Local $aResult[1], $i = 0, $strComputer = "."
    $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
    $colPrinters = $objWMIService.ExecQuery ("Select Name from Win32_PrinterConfiguration", "WQL", 0x10 + 0x20)
    If NOT IsObj($colPrinters) Then Return 0
    For $objPrinter in $colPrinters
        $i += 1
        Redim $aResult[$i]
        $aResult[$i-1] = $objPrinter.Name
    Next
    Return $aResult
EndFunc

[antmar904 0]

 

you could use _ArrayExtract()

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

$PrinterList = @ScriptDir & "\PrinterList.log"
$aPrinterList = _EnumPrinterConfiguration()
;
$aColumn1 = _ArrayExtract($aPrinterList, Default, Default, 1, 1) ; <- extract only column 1
;
_FileWriteFromArray($PrinterList, $aColumn1)
_ArrayDisplay($aColumn1)

 

Thank you Chimp, this worked.

I will try the other suggestions later on today.