diff options
Diffstat (limited to 'wizards/source/tools')
| -rw-r--r-- | wizards/source/tools/Listbox.xba | 4 | ||||
| -rw-r--r-- | wizards/source/tools/Strings.xba | 12 | ||||
| -rw-r--r-- | wizards/source/tools/UCB.xba | 2 |
3 files changed, 9 insertions, 9 deletions
diff --git a/wizards/source/tools/Listbox.xba b/wizards/source/tools/Listbox.xba index 2ac741ce68aa..2f4e48b402e6 100644 --- a/wizards/source/tools/Listbox.xba +++ b/wizards/source/tools/Listbox.xba @@ -172,10 +172,10 @@ Dim iOldSourceSelect as Integer m = 0 For n = 0 To MaxOriginalIndex SearchString = OriginalList(n) - If IndexinArray(SearchString, SelList()) <> -1 Then + If IndexInArray(SearchString, SelList()) <> -1 Then NewSourceList(m) = SearchString m = m + 1 - ElseIf IndexinArray(SearchString, SourceList()) <> -1 Then + ElseIf IndexInArray(SearchString, SourceList()) <> -1 Then NewSourceList(m) = SearchString m = m + 1 End If diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index f91b8f4dff87..d05555fd9901 100644 --- a/wizards/source/tools/Strings.xba +++ b/wizards/source/tools/Strings.xba @@ -158,7 +158,7 @@ End Sub ' Checks if a Field (LocField) is already defined in an Array ' Returns 'True' or 'False' -Function FieldinArray(LocArray(), MaxIndex as integer, LocField as String) As Boolean +Function FieldInArray(LocArray(), MaxIndex as integer, LocField as String) As Boolean Dim i as integer For i = Lbound(LocArray()) to MaxIndex If Ucase(LocArray(i)) = Ucase(LocField) Then @@ -172,7 +172,7 @@ End Function ' Checks if a Field (LocField) is already defined in an Array ' Returns 'True' or 'False' -Function FieldinList(LocField, BigList()) As Boolean +Function FieldInList(LocField, BigList()) As Boolean Dim i as integer For i = Lbound(BigList()) to Ubound(BigList()) If LocField = BigList(i) Then @@ -186,15 +186,15 @@ End Function ' Retrieves the Index of the delivered String 'SearchString' in ' the Array LocList()' -Function IndexinArray(SearchString as String, LocList()) as Integer +Function IndexInArray(SearchString as String, LocList()) as Integer Dim i as integer For i = Lbound(LocList(),1) to Ubound(LocList(),1) If Ucase(LocList(i,0)) = Ucase(SearchString) Then - IndexinArray = i + IndexInArray = i Exit Function End if Next - IndexinArray = -1 + IndexInArray = -1 End Function @@ -356,7 +356,7 @@ Dim LocFileName as String End Function -Function CountCharsinString(BigString, LocChar as String, ByVal StartPos as Integer) as Integer +Function CountCharsInString(BigString, LocChar as String, ByVal StartPos as Integer) as Integer Dim LocCount%, LocPos% LocCount = 0 Do diff --git a/wizards/source/tools/UCB.xba b/wizards/source/tools/UCB.xba index ed1ae1c719b8..73d849cc8fea 100644 --- a/wizards/source/tools/UCB.xba +++ b/wizards/source/tools/UCB.xba @@ -89,7 +89,7 @@ Dim sFileArray(StartUbound,1) as String If RealFileContent <> "" Then ' Retrieve the Index in the Array, where a Filename is positioned If Not IsMissing(sFileContent()) Then - If (FieldinArray(sFileContent(), Ubound(sFileContent), RealFileContent)) Then + If (FieldInArray(sFileContent(), Ubound(sFileContent), RealFileContent)) Then ' The extension of the current file passes the filter and is therefore admitted to the ' fileList If Not IsMissing(sExtension) Then |