>I have a strange situation with some parameters being ignored in one of my functions. I have a function called Inlist() to simulate the VFP Inlist() function. The function is like this:
>
>
> ' VFP inlist equivalent
> ' expC1 String where all the strings will be tried to look into
> ' expC2 String 1
> ' expC3 String 2
> ' expC4 String 3
> ' expC5 String 4
> ' expC6 String 5
> ' expC7 String 6
> ' expC8 String 7
> ' expC9 String 8
> ' expC10 String 9
> ' expC11 String 10
> ' expC12 String 11
> ' expC13 String 12
> ' expC14 String 13
> ' expC15 String 14
> ' expC16 String 15
> ' expC17 String 16
> ' expC18 String 16
> ' expC19 String 18
> ' expC20 String 19
> ' expC21 String 20
> ' expC22 String 21
> ' expC23 String 22
> ' expC24 String 23
> ' expC25 String 24
> ' expC26 String 25
> ' expC27 String 26
> Public Function Inlist(ByVal tcString As String, ByVal tcSearchFor1 As String, ByVal tcSearchFor2 As String, _
> Optional ByVal tcSearchFor3 As String = "", _
> Optional ByVal tcSearchFor4 As String = "", _
> Optional ByVal tcSearchFor5 As String = "", _
> Optional ByVal tcSearchFor6 As String = "", _
> Optional ByVal tcSearchFor7 As String = "", _
> Optional ByVal tcSearchFor8 As String = "", _
> Optional ByVal tcSearchFor9 As String = "", _
> Optional ByVal tcSearchFor10 As String = "", _
> Optional ByVal tcSearchFor11 As String = "", _
> Optional ByVal tcSearchFor12 As String = "", _
> Optional ByVal tcSearchFor13 As String = "", _
> Optional ByVal tcSearchFor14 As String = "", _
> Optional ByVal tcSearchFor15 As String = "", _
> Optional ByVal tcSearchFor16 As String = "", _
> Optional ByVal tcSearchFor17 As String = "", _
> Optional ByVal tcSearchFor18 As String = "", _
> Optional ByVal tcSearchFor19 As String = "", _
> Optional ByVal tcSearchFor20 As String = "", _
> Optional ByVal tcSearchFor21 As String = "", _
> Optional ByVal tcSearchFor22 As String = "", _
> Optional ByVal tcSearchFor23 As String = "", _
> Optional ByVal tcSearchFor24 As String = "", _
> Optional ByVal tcSearchFor25 As String = "", _
> Optional ByVal tcSearchFor26 As String = "") As Boolean
> Dim llFound As Boolean
> llFound = False
> If tcString = tcSearchFor1 Then
> Return True
> End If
> If tcString = tcSearchFor2 Then
> Return True
> End If
> If tcSearchFor3.Length > 0 Then
> If tcString = tcSearchFor3 Then
> Return True
> End If
> End If
> If tcSearchFor4.Length > 0 Then
> If tcString = tcSearchFor4 Then
> Return True
> End If
> End If
> If tcSearchFor5.Length > 0 Then
> If tcString = tcSearchFor5 Then
> Return True
> End If
> End If
> If tcSearchFor6.Length > 0 Then
> If tcString = tcSearchFor6 Then
> Return True
> End If
> End If
> If tcSearchFor7.Length > 0 Then
> If tcString = tcSearchFor7 Then
> Return True
> End If
> End If
> If tcSearchFor8.Length > 0 Then
> If tcString = tcSearchFor8 Then
> Return True
> End If
> End If
> If tcSearchFor9.Length > 0 Then
> If tcString = tcSearchFor9 Then
> Return True
> End If
> End If
> If tcSearchFor10.Length > 0 Then
> If tcString = tcSearchFor10 Then
> Return True
> End If
> End If
> If tcSearchFor11.Length > 0 Then
> If tcString = tcSearchFor11 Then
> Return True
> End If
> End If
> If tcSearchFor12.Length > 0 Then
> If tcString = tcSearchFor12 Then
> Return True
> End If
> End If
> If tcSearchFor13.Length > 0 Then
> If tcString = tcSearchFor13 Then
> Return True
> End If
> End If
> If tcSearchFor14.Length > 0 Then
> If tcString = tcSearchFor14 Then
> Return True
> End If
> End If
> If tcSearchFor15.Length > 0 Then
> If tcString = tcSearchFor15 Then
> Return True
> End If
> End If
> If tcSearchFor16.Length > 0 Then
> If tcString = tcSearchFor16 Then
> Return True
> End If
> End If
> If tcSearchFor17.Length > 0 Then
> If tcString = tcSearchFor17 Then
> Return True
> End If
> End If
> If tcSearchFor18.Length > 0 Then
> If tcString = tcSearchFor18 Then
> Return True
> End If
> End If
> If tcSearchFor19.Length > 0 Then
> If tcString = tcSearchFor19 Then
> Return True
> End If
> End If
> If tcSearchFor20.Length > 0 Then
> If tcString = tcSearchFor20 Then
> Return True
> End If
> End If
> If tcSearchFor21.Length > 0 Then
> If tcString = tcSearchFor21 Then
> Return True
> End If
> End If
> If tcSearchFor22.Length > 0 Then
> If tcString = tcSearchFor22 Then
> Return True
> End If
> End If
> If tcSearchFor23.Length > 0 Then
> If tcString = tcSearchFor23 Then
> Return True
> End If
> End If
> If tcSearchFor24.Length > 0 Then
> If tcString = tcSearchFor24 Then
> Return True
> End If
> End If
> If tcSearchFor25.Length > 0 Then
> If tcString = tcSearchFor25 Then
> Return True
> End If
> End If
> If tcSearchFor26.Length > 0 Then
> If tcString = tcSearchFor26 Then
> Return True
> End If
> End If
> Return llFound
> End Function
>
>
>If the function is called like this:
>
>
> If oApp.Inlist(lcCharacter, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", _
> "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z") Then
> llIsAlpha = True
> End If
>
>
>Any parameter starting with I and more are ignored. The Inlist() function will go as if it was not passed and go with the default which is a blank. I really don't understand that. I don't know with .NET is ignoring all parameters starting from letter I until Z.
Isn't it too much code for Inlist. IMHO System.Array class has corresponding (and much better) ways to implement it (like Exists, Find ...).
Cetin
