Line-No. / Ref. | Code Line |
0001 | Public Function Check_Delimiters(strText, strDelimeter) |
0002 | Dim strText_Local As String |
0003 | Dim strText_Undelimited As String |
0004 | Dim i As Long |
0005 | Dim j As Long |
0006 | Dim k As Long |
0007 | Dim strMsg As String |
0008 | strText_Local = strText |
0009 | strText_Undelimited = Replace(strText_Local, strDelimeter, "", 1, -1, vbBinaryCompare) |
0010 | i = Len(strText_Local) |
0011 | j = Len(strText_Undelimited) |
0012 | k = (i - j) / Len(strDelimeter) |
0013 | j = k Mod 2 |
0014 | If j <> 0 Then |
0015 | i = InStr(1, strText_Local, strDelimeter, vbBinaryCompare) |
0016 | If i > 100 Then |
0017 | strMsg = Mid(strText_Local, i - 100, 500) |
0018 | Else |
0019 | strMsg = Mid(strText_Local, 1, 500) |
0020 | End If |
0021 | strMsg = Now() & " - Unpaired Delimeters - " & strDelimeter & " (Count = " & k & ") in text segment commencing ... " & strMsg |
0022 | Debug.Print strMsg |
0023 | If (automatic_processing <> "Yes") And (automatic_processing <> "Full") Then |
0024 | MsgBox strMsg |
0025 | Stop |
0026 | End If |
0027 | Check_Delimiters = "Unpaired Delimeters" |
0028 | Else |
0029 | Check_Delimiters = "OK" |
0030 | End If |
0031 | End Function |
Line-No. / Ref. | Code Line |
0001 | Public Sub Find_Functors() |
0002 | Dim rs_In As Recordset |
0003 | Dim rs_Out As Recordset |
0004 | Dim rs_Test As Recordset |
0005 | Dim strQuery As String |
0006 | Dim strNote_Text As String |
0007 | Dim i As Long |
0008 | Dim j As Long |
0009 | Dim iFunctor_End As Long |
0010 | Dim k As Long |
0011 | Dim m As Long |
0012 | Dim Functor_ID_Parameter As String |
0013 | Dim Functor_ID As Integer |
0014 | Dim Functor_Option As Integer |
0015 | Dim Functor_Parameter As String |
0016 | Dim Embedded_Functor As Boolean |
0017 | Dim field_Output(5) |
0018 | Dim iTester As Integer |
0019 | k = Len("") |
0034 | If j > 0 Then |
0035 | If i < iFunctor_End Then |
0036 | Embedded_Functor = True |
0037 | Else |
0038 | Embedded_Functor = False |
0039 | End If |
0040 | iFunctor_End = InStr(i + 1, strNote_Text, " |