ChadSmiley Blog Things about family, life, coding, and more

11Jan/050

LotusScript and Regular Expressions

I guess I was wrong about the options for Regular Expressions and Domino. The other option that now is available to Color Coding Domino Formula is to use Regular Expressions in LotusScript. I have not used this yet but this could more helpfull than just color coding code.

Tagged as: No Comments
9Jan/050

11 Christians arrested at homosexual event

Wow, what has America come to? Check out how this story is unfolding.

October 15, 2004 - WorldNetDaily - 11 Christians arrested at homosexual event
December 1, 2004 - WorldNetDaily - 'Philadelphia 11' fighting back
December 14, 2004 - WorldNetDaily - City will prosecute Christian protesters
December 16, 2004 - WorldNetDaily - Prosecutor: Bible is 'fighting words'
December 20, 2004 - WorldNetDaily - Free the Philadelphia 4
January 5, 2005 - WorldNetDaily - U.S. attorneys complicit in arrest of Christians?
January 5, 2005 - AgapePress - Report Says Homosexual DOJ Lawyers Complicit in Arrest of Christians

Tagged as: , No Comments
8Jan/050

Truth or Fiction

Most people have received e-mails over the years of some interesting stories and some that might be questionable, but are still entertaining. See for yourself if it is Truth or Fiction.

Tagged as: No Comments
7Jan/052

New BlogSphere Image Document

BlogSphere currently displaying the URL of the image which is nice, but most of the time I use the image in a blog with plain text so I have to remember the rest of the HTML like the ALT and border that needs to be added. What would be nice is to display the image HTML along with the URL, with the ability copy the text. All I do now is attach the image and save and start copying text. Here are the changes I made with the ability to have multiple images which is currently possible.

If your are going to make these changes please place the image description and fields in a table so the URL and HTML text is aligned correctly when there are multi-values.

Change the ImageName to be editable with multi-value checked with Newline as the as the display separator. The input translation would be:

@If( ImageName = "" ; @AttachmentNames ; ImageName )

The Computed Text for the URL needs to be changed to an editable field (ImageURL) with Newline as the as the display separator. The editable is needed so copying of the URL can be done while editing. The input translation would be:

@GetProfileField("BlogConfig";"Conf_basic_baseURL") + "/2/") + @Explode( ImageFileName; ";" ))</div> 
 A new field(ImageHTML) editable with Newline as the as the display separator.  The editable is needed so copying of the HTML can be done while editing.  The input translation would be:  <div class="formula">url := (@GetProfileField("BlogConfig";"Conf_basic_baseURL") + "/2/") + @Explode( ImageFileName; ";" ) ;
 @If(ImageName=""; ""; (("&lt;img src=\"") + url + ("\" border=0 ALT=\"")) + ImageName + ("\"&gt;" ))

The preview will need the same code as the ImageHTML field.

The last step is to move the ImageFileName field above the ImageURL fields so URL and HTML display correctly when refreshed or saved the first time.

New Look:

New BlogSphere Image Document

5Jan/050

Comparing StrCompare and @Compare

The StrCompare and @Compare are considered 'Language cross-reference' according to Designer Help. When using the compares you should get the following results:

Strings being compared
StrCompare result
@Compare
Either string is NULL
NULL
string1 is less than string2
-1
-1
string1 equals string2
0
0
string1 is greater than string2
1
1

Now use the following strings and the results are different. The only character that is different is the special characters. I would assume that all non number and letters would have the same reults.

String1 String2
StrCompare Results
@Compare Results
MailArchivensf Mailnsf
-1
-1
MailArchive.nsf Mail.nsf
1
-1
MailArchive!nsf Mail!nsf
1
-1
MailArchive!nsf Mail!nsf
1
-1
MailArchive#nsf Mail#nsf
1
-1
MailArchive5nsf Mail5nsf
1
1

For now I will be using the following code:

Dim String1 As String, String2 As String
Dim EvalCompare As Variant
Dim CompareResults As Integer
String1 = "MailArchive.nsf"
String2 = "Mail.nsf"
EvalCompare = Evaluate( { @Compare( "} + String1 + {" ; "} + String2 + {" )})
CompareResults = EvalCompare(0)
Tagged as: No Comments
3Jan/050

Proverbs 15:1

A soft answer turns away wrath,
But a harsh word stirs up anger
Tagged as: No Comments