Array filtering

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Array filtering

Logged in as: Guest

arrSession:exec spGetSession 2,2,58234

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Array filtering
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Array filtering - 3/20/2008 12:18:54 AM

sgimi

Posts: 6
Score: 0
Joined: 9/15/2006
Status: offline

Hello,

I'm trying to write a script that gets data on printers from printservers. The script sends this data to excel but some parts of the data have to be formatted. For example:
The script gets the printerdrivername, which should be formatted for use in a new column in excel: a printerdrivername HP LaserJet 4300 PS should be formatted to HPLJ4300-001-PS. However if there already is an entry called HPLJ4300-001-PS the script should convert this to HPLJ4300-002-PS. And that's where my trouble begins...

I've tried to accomplish this renaming by putting every single value into an array and filter that array on every new formatted printedrivername the script will come up with. I was, if not I wouldn't be posting here, unsuccesfull in getting this to work. Below is the code I came up with so far, but just the for next loop in which the actual printerdata is being formatted. The troublesome part is marked with '>>>>>>>>>>>'. There's also some remarked stuff in the script that might come in handy for later use, I hope this will not render the script unreadable....

I hope somebody can help me out here....

For Each objItem in colItems
' Populate the row with this printer's data
objSheet.Cells(k, 1).Value = objItem.ShareName
'objSheet.Cells(k, 2).Value = objItem.ShareName
objSheet.Cells(k, 2).Value = objItem.PortName
objSheet.Cells(k, 3).Value = replace(objItem.Portname,"IP_","")
objSheet.Cells(k, 4).Value = objItem.Drivername
temp = replace(objItem.DriverName," LaserJet ","LJ")
temp = replace(temp," Color","")
temp = replace(temp," DesignJet ","DJ")
a=0
temp = replace(temp," mfp "," ")
temp = replace(temp,"Series ","")
temp = replace(temp,"Generic ","Generic")
 if right(temp,2) = "PS" then
  temp = replace(temp," ","-001-")
 else a = 1
 end if
 if a = 1 then
  strLength = len(temp)
   for b = 0 to strLength
    searchP = mid(temp, b, 2)
     if searchP = "PS" then
      b = b + 1
      temp = left(temp,b)
      temp = replace (temp, "PS", "-001-PS")
      exit for
     end if
   next
   strLength = len(temp)
   
   for b = 0 to strLength
    searchP = mid(temp,b,2)
     if searchP = "CL" then
      b = b + 1
      temp = left(temp,b)
      temp = replace(temp,"PCL","-001-PCL")
      temp = replace(temp," ","")
      exit for
     end if
   next
 end if

PrintQTempArray(c) = temp
if c >= 1 then
PrintQArray = filter(PrintQTempArray,temp)
msgbox PrintQArray
if PrintQArray <> "" then
PrintQArrayTemp(c) = PrintQArray
msgbox PrintQArrayTemp(c)
'PrintQArray = filter(PrintQArray,"",False)
'PrintQTempArray(c) = PrintQArray
'PrintQArrayTemp(c) = PrintQArray(c)
'msgbox PrintQArray(0)
end if
end if
 
'for p = 0 to c
'test = PrintQArray(p)
'msgbox test
'next
'end if

c = c + 1
redim PrintQArrayTemp(c)
redim preserve PrintQTempArray(c)
objSheet.Cells(k, 5).Value = temp
objSheet.Cells(k, 6).Value = left((instrrev(objItem.ShareName," ",-1,1)-1),objItem.Portname)
objSheet.Cells(k, 7).Value = left(objItem.Portname,6) & "." & domain & ".eu.corp.amgen.com"

'd = d + 1
k = k + 1
Next

Post #: 1

RE: Array filtering - 3/20/2008 12:41:02 AM

ebgreen

Posts: 4972
Score: 31
Joined: 7/12/2005
Status: offline

Use a dictionary. Before you try to add the driver, check to see if that name already exists. Then tou can increment the counter.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to sgimi)

Post #: 2

RE: Array filtering - 3/20/2008 8:58:35 PM

sgimi

Posts: 6
Score: 0
Joined: 9/15/2006
Status: offline

I've googled some on dictionaries, and the concept sounds real great but.....

This is what I tried but unfortunately it didn't work. Can you give me a hint (or a solution will do as well ;)) on how to get this working?

(in reply to ebgreen)

Post #: 3

RE: Array filtering - 3/22/2008 6:53:59 AM

ebgreen

Posts: 4972
Score: 31
Joined: 7/12/2005
Status: offline

Take it in baby steps. First figure out how to make a dictionary and add elements to it (looks like you have that). Next put the if statement before you try to add new elements.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to sgimi)