LotusScript Functions

Some Excel VBA Tips

2011-07-05T13:29:00.000-07:00

Get current directory:

ActiveWorkbook.Path

Format Date :

Format(Date, "mmmm_d_yyyy")

Format Time:
Format(Now, "Hh_Nn_Ss")

Replace special characters:

If you know the character code, use the following example:

Replace(str, Chr(149), "-")

Exit While Loop

2009-11-02T05:50:00.000-08:00

There is no Exit While statement in LotusScript.
The solution is simple. Use the Do While ... Loop and then Exit Do if you want to break the loop.
Based on this French language tip.

Check if Form Exists

2009-03-26T08:37:00.001-07:00


Function formExists (db As NotesDatabase, formType As String)
 Dim formTypeYes As Boolean
 Forall  frm In db.Forms
  If Isarray (frm.Aliases)  Then
   If  frm.Aliases (0) = formType Then
    formTypeYes = True
   End If
  End If
 End Forall
 formExists = formTypeYes
End Function

Create Subfolder

2009-03-25T10:54:00.000-07:00

This function first checks to see if a subfolder exists, and creates one if it does not exist. The function returns the path. It is dependent on the DirExists function.

Function CheckMakeFolder ( root As String , leaf As String) As String
Dim strPath As String
strPath = root & "\" & leaf
If Not DirExists (strPath) Then
Mkdir strPath
End If
CheckMakeFolder = strPath
End Function

New Line Symbol

2009-03-25T08:54:00.001-07:00

The new line symbol or carriage return and linefeed symbols can be inserted using the following combination:

 
Chr(13) & Chr(10)

Write String to File

2009-03-25T07:40:00.000-07:00


Sub WriteLog (strLog As String, logFileName As String )
 Dim fileName As String
 Dim fileNum As Integer
 fileNum% = Freefile()
 fileName$ = logFileName
 Open FileName$ For Append As fileNum% 
 Write #fileNum% ,   strLog 
 Close fileNum%
End Sub

Function EndsWith

2009-03-25T05:18:00.000-07:00


Function  EndsWith (Haystack As String,  Needle As String ) As Boolean

Dim lenStr  As Integer
lenStr = Len(Needle)
If  Mid(Haystack , Len(Haystack )-(lenStr-1)) = Needle Then          
    EndsWith = True
Else    
   EndsWith = False
End If  
End Function

Usage:
Msgbox EndsWith("Stranger", "er")
Result: true

Remove File Extension

2009-03-24T15:45:00.001-07:00


Function RemoveExtension (strName As String)
   RemoveExtension = Left (strName, Instr(strName, ".")-1)
End Function

Check if Directory Exists

2009-03-24T15:38:00.000-07:00


Function DirExists (strPath As String) As Boolean
   DirExists = (Dir$ (strPath ,16 ) <> "" )
End Function