Not fully optimized code but here is an example.
Code:
Break On
Dim $SO,$Pause
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('WrapAtEOL','On')
Dim $BDayFile, $List, $Array1, $Array2, $Item, $x
$BDayFile = @ScriptDir +'\' +'bsdays.ini'
$List = ReadProfileString ($BDayFile, 'bsdays', @DATE)
If $List
$Array1 = Split($List,'|')
If UBound($Array1)>1
For Each $Item In $Array1
$Array2 = Split($Item,',')
? 'http://servername/emaileditor/happybday.jsp?name=' + $Array2[1]
Next
Else
$Array2 = Split($List,',')
? 'http://servername/emaileditor/happybday.jsp?name=' + $Array2[1]
Endif
Endif
Exit 0
Code:
[bsdays]
2005/04/11=joshraymer,Josh%20Raymer
2005/04/12=joshraymer,Josh%20Raymer|bdsmith,Brian%20Smith|acwilson,Alice%20Wilson
Changing the dates around for testing you should be able to come up with a single entry or with a mutliple entry.
Quote:
http://servername/emaileditor/happybday.jsp?name=Josh%20Raymer
http://servername/emaileditor/happybday.jsp?name=Brian%20Smith
http://servername/emaileditor/happybday.jsp?name=Alice%20Wilson
