$Printer1="user1,user2,user3"

? "user1 =" + split($printer1,",")[0]
? "user2 =" + split($printer1,",")[1]
? "user3 =" + split($printer1,",")[2]

$Printer1= "user1","user2","user3"
for each $user in $printer1
	? $user
next

$Printer1='user1','user2','user3'



if ascan($printer1,'user3')+1

   ? "user3 is in Printer1 variable"

endif

for each $printer in split($printers, ",")
   $ = execute('$$curPrinter = "$" + $printer')
   ? $curPrinter
   if instr($curPrinter, @userid)
      ? "user gets this printer"
   endif
next

for each $printer in split($printers, ",")
   $curPrinter = "$" + $printer
   $ = execute('$$curPrinter = $curPrinter')
   ? $curPrinter
   if instr($curPrinter, @userid) 
      ? "user gets this printer"
   endif
next

Quote:

---

or...

Code:

---

$Printer1='user1','user2','user3'

if ascan($printer1,'user3')+1
   ? "user3 is in Printer1 variable"
endif

---

---

Quote:

---

Where did you get '#' from? Anyway my, bad, try this:

Code:

---

for each $printer in split($printers, ",")
   $curPrinter = "$" + $printer
   $ = execute('$$curPrinter = $curPrinter')
   ? $curPrinter
   if instr($curPrinter, @userid) 
      ? "user gets this printer"
   endif
next

---

---

sorry, I meant $printers.
split statement dosn't work in this code. But that's not critical. Which is more important that I get absolutely the same output.

$printers="Printer1,Printer2,Printer3"
$Printer1 = "user1, user2, Eric"
$Printer2 = "user1, user2, user4"
$Printer3 = "user1, Eric, user8, user2"
for each $printer in split($printers, ",")
   $curPrinter = "$" + $printer
   $ = execute('$$curPrinter = $curPrinter')
   ? $curPrinter
   if instr($curPrinter, @userid) 
      ? "user gets this printer"
   endif
next

Quote:

---

user1, user2, Eric
user gets this printer
user1, user2, user4
user1, Eric, user8, user2
user gets this printer

---

; .INI file
[Printers]
Printer1=user1, user2, Eric
Printer2=user1, user2, user4
Printer3=user1, Eric, user8, user2

$printers=split(readprofilestring('printers.ini','Printers',''),chr(10)
for each $printer in $printers
  $users=split(readprofilestring('printers.ini','Printers',$printer),chr(10)
  if ascan($users,@USERID)+1
    ? @USERID+' gets printer '+$printer
  endif
next

Quote:

---

What do you mean the split statement doesn't work. What version of kix are you using? When i run this on my machine, i get the right output.

Code:

---

$printers="Printer1,Printer2,Printer3"
$Printer1 = "user1, user2, Eric"
$Printer2 = "user1, user2, user4"
$Printer3 = "user1, Eric, user8, user2"
for each $printer in split($printers, ",")
   $curPrinter = "$" + $printer
   $ = execute('$$curPrinter = $curPrinter')
   ? $curPrinter
   if instr($curPrinter, @userid) 
      ? "user gets this printer"
   endif
next

---

Output:

Quote:

---

user1, user2, Eric
user gets this printer
user1, user2, user4
user1, Eric, user8, user2
user gets this printer

---

---

Quote:

---

This whole thing is badly designed. This type of logic is ideal for .INI files. this will allow you to sue some ratehr generic code and make changes to the printer mappings in the separate .INi file instead of hacking the code.

---

Quote:

---

Well, you'll eventually will edit either INI file or the scrpt itself. What's the difference?

---

It is a basic question of design philosophy.

One is a program (script) and the other is a data source. It is a question of change control, limiting the effect of exceptions and introducing lines of demarcation or responsibility.

Including what is quite clearly "data" hard coded in a script is a bad idea. Here are a couple of obvious reasons:

• It's hard to add a front-end to automate the update of the information if it is hard-coded in the script.
  
• It is trivial to add a front end to update the information if it is stored in a data source.
  
• Changing a script runs the risk of introducing errors which will make the script fail or behave unexpectedly. These sort of errors may take time to surface and diagnose. The scope of the problems that may surface cannot be limited.
  
• Changes to a data source are simpler and finite in scope. They are less likely to be incorrect, and can be checked programatically to ensure that they are consistant and sensible

The more often you are going to make changes, the more often you are likely to introduce errors.

Now, in your situation you may be the only person who will ever update the script, and the updates may be few and far between. In this case it may not suit you to change your methodology - however switching to an INI file requires very little change and you will thank us for it later

Quote:

---

PS.
btw, you don't need split if you define printers variable like this :
$printers=Printer1,Printer2,Printer3

---

Quote:

---

Example:
Code:

---

; .INI file
[Printers]
Printer1=user1, user2, Eric
Printer2=user1, user2, user4
Printer3=user1, Eric, user8, user2

---

KiXtart code:
Code:

---

$printers=split(readprofilestring('printers.ini','Printers',''),chr(10)
for each $printer in $printers
  $users=split(readprofilestring('printers.ini','Printers',$printer),chr(10)
  if ascan($users,@USERID)+1
    ? @USERID+' gets printer '+$printer
  endif
next

---

---

$ini='d:\printer.ini'

$printers=split(readprofilestring($ini,'Printers',''),chr(10))

for each $printer in $printers

  $users=split(join(split(readprofilestring($ini,'Printers',$printer)),''),',')

  if ascan($users,@USERID)+1

    ? @USERID+' gets printer '+$printer

  endif

next

Quote:

---

Provide the complete path to the .INi file and try this midified code:
Code:

---

$ini='d:\printer.ini'
$printers=split(readprofilestring($ini,'Printers',''),chr(10))
for each $printer in $printers
  $users=split(join(split(readprofilestring($ini,'Printers',$printer)),''),',')
  if ascan($users,@USERID)+1
    ? @USERID+' gets printer '+$printer
  endif
next

---

---

no luck
does it work on your computer?