RULES

• No KiXtart.org Moderators or Administrators aside from myself are allowed to post in this thread.
  
• (This is for those with less experience to learn, not for bored, experienced users to bump their post count)
  
• (If you're able to easily do this task then please don't participate with any solutions)
  
• (If the task is too easy then I'll increase the difficulty level next time)
  
• No using IM,PM or Google to locate/find an answer (you're on the honor system here).
  

Dim $SO,$Re ,$R, $S, $J

;Script Options
$SO=SETOPTION("Explicit", "ON")
$SO=SETOPTION("NoMacrosInStrings", "ON")
$SO=SETOPTION("NoVarsInStrings", "ON")
$SO=SETOPTION("WrapAtEOL", "ON")
BREAK ON

;Read the value at the given location
$R = ReadValue("HKCU\Software\Golfing","Round1")

;Split the value as a Reg_Multi will include the | character
$S = Split($R,"|")

;Now take each of the elements and put them back together
;with a space to check the value = what we want
$J = Join($S," ")

;Does it match?
If $J = "Enterprise Terminal Server ";space added at end as the join adds one
	     ? "We have a match.  The string returned was: " $J
Else
	     ? "No match found. The string returned was: " $J
EndIf

;The value of $J was verified by printing out each of the elements of
;$S Array with the following code

/*

For $ = 0 to Ubound($S)
? $S[$]
Next

*/

;When attempting to do the join, with the optional "count", it did not work.
;I was unable to determine why the following would not work

/*
$J = Join($S," ",Ubound($s)-1)
*/


;To make this more robust one should verify that the value exist first
;then they should read the value type and write a routine to know how the
;expected return is going to be formatted, by no means should the following
;snippet be deemed fully functional, one would need to evaluate the returns 
;of the different data types and build the appropriate "CASE" statement for 
;that scenario 

;Example

/*

If KeyExist("HKCU\Software\Golfing\Round1") = 1
	     $Type = Readtype("HKCU\Software\Golfing","Round1")
	     $R = ReadValue("HKCU\Software\Golfing","Round1")
	     
	     Select 
	     	     Case $Type = "Reg_Multi_SZ"
	     	     	     $S = Split($R,"|")
	     	     	     $J = Join($S," ")
	     	     Case $Type = "Reg_SZ"
	     	     	     $J = $S
	     	     Case 1
	     	     	     @Error = 5
	     EndSelect

Else
	     Exit 1
EndIf

*/

$ = ReadValue('HKCU\Software\Golfing', 'Round1')
Do	
	$ = SubStr($, 1, InStr($, '|') - 1) + ' ' + SubStr($, InStr($, '|') + 1, Len($))
Until InStr($, '|') = 0
If Rtrim($) = 'Enterprise Terminal Server'
	? 'Value Present'
EndIf

  
$ = Split(ReadValue('HKCU\Software\Golfing', 'Round1'), '|')
For Each $a in $
	If InStr('Enterprise Terminal Server', $a) = 0
		Exit
	EndIf
Next
? 'Value Present'

/* Minigolfing 01*/

If NOT @LOGONMODE
	Break On
EndIf

Dim $SO,$Key,$wr
$SO = SetOption("Explicit","On")
$SO = SetOption("NoVarsInStrings","On")
$SO = SetOption("NoMacrosInStrings","On")

$key='HKEY_CURRENT_USER\Software\','Golfing','Round1','Enterprise Terminal Server' 
;The first two is the key, third is the value, and forth the data we are looking for.

$wr=FindMe($key) ; will return a code to @error: 0 for true, and 1 for not true
@error

Function FindMe($key)
Dim $ch,$found,$index,$valuename,$KeyF,$JoinKey,$Valuename2,$wr,$split,$inst
$ch=KeyExist($key[0]) ; Does the HKEY_CURRENT_USER_\Software\ exist?
if $ch ;If it does....
$found=0 
$index=0 ;Setting values so the while-statement will not run forever..

 while @error=0 and $found=0 ;While no errors and $found is still 0
  $ValueName = ENUMKEY($key[0],$index) ;Lists the subkey, $index points to the 'number' in the list
  if $ValueName = $Key[1] $found=1 ;If the subkey is the same as the $Key[1] (second val in array), $found is set to 1
   $KeyF=$key[0],$ValueName ;make an array out of $Key[0] and $ValueName
   $JoinKey=Join($KeyF,'') ;Join 'em together
   $wr=ReadValue($JoinKey,$Key[2]) ;Reads the data of value in the key
   $split=Split($wr,'|') ;Current format is seperated by '|', therefore remove those
   $wr=Join($split,' ') ; and join 'em together
   $inst=Instr($wr,$Key[3]) ;Does $wr contain the same as $Key[3] ?
   if $inst exit 0 else exit 1 endif ; If it does, exit with a 0, otherwise exit with a 1
   else
    $Index = $Index + 1 ;$ValueName wasn't the same as $Key[1], continues to look for matches.
  endif
 loop
 
 exit @error ; In case of an unexpected error comes along, just exit with it (dunno if really needed)

endif

EndFunction

Dim $Type, $S, $J, $R

If KeyExist("HKCU\Software\Golfing") = 1
	     $Type = Readtype("HKCU\Software\Golfing","Round1")
	     $R = ReadValue("HKCU\Software\Golfing","Round1")
	     
	     Select 
	     	     Case $Type = "Reg_Multi_SZ"
	     	     	     $S = Split($R,"|")
	     	     	     $J = Join($S," ")
	     	     Case $Type = "Reg_SZ"
	     	     	     $J = $R
	     	     Case 1
	     	     	     @Error = 5
	     EndSelect
If $J = "Enterprise Terminal Server ";space added at end as the join adds one
	     ? "We have a match.  The string returned was: " $J
Else
	     ? "No match found. The string returned was: " $J
EndIf


Else
	     Exit 1
EndIf

 IIF(InStr(ReadValue('HKCU\Software\Golfing','Round1'),'Enterprise|Terminal|Server|'),0,1)     

DIM $Round1Value 
$Round1Value = Split(ReadValue('HKCU\Software\Golfing', 'Round1'), '|')
? IIF(Trim(Join($Round1Value, ' ',UBound($Round1Value))) = 'Enterprise Terminal Server', 'Value Present', 'Value Not Present')

Quote:

---

I like Learning Series better than Mini Golf. Following the principles of best coding practice can only improve beginners and intermediate scripters. I never had used IIF or Join in my production environment, but you know for sure I will review some of my scripts to see if they can be improved. You can teach an old dog new tricks. Good stuff!

---

I agree! Never used join nor IIF either

Quote:

---

Never used join nor IIF either

---

Then you should see what wonders a SPLIT-JOIN can do