asked on Arrays to check duplicates in vb.net
Hi,
How to check if array has a string.Three checks on Uppercase,mixed case and lowercase.
If IsDBNull(SQLdr(StrCol1)) = False Then
StrColval1 = SQLdr(StrCol1).ToString
StrColval1 = StrColval1.Trim
If StrColval1 <> String.Empty Then
If Not (Arr1.Contains(StrColval1)
If Not Arr1.Contains(StrColval1.T
Arr1.Add(StrColval1)
End If
End If
End If
End If
Any better way of doing this?
How to check if array has a string.Three checks on Uppercase,mixed case and lowercase.
If IsDBNull(SQLdr(StrCol1)) = False Then
StrColval1 = SQLdr(StrCol1).ToString
StrColval1 = StrColval1.Trim
If StrColval1 <> String.Empty Then
If Not (Arr1.Contains(StrColval1)
If Not Arr1.Contains(StrColval1.T
Arr1.Add(StrColval1)
End If
End If
End If
End If
Any better way of doing this?
Visual Basic.NET.NET Programming
Last Comment
RIAS
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
check the comment again, i added a snippet, be weary of the syntax, it's been a long time since i've used Visual Basic.
ASKER
Thanks!
Air-coded:
Dim strFind as string = "abc"
Dim str1st As String = "ABCd, abcd, AbCd)
Dim str2nd As String
'
str2nd = str1st.Upper.Replace(strFi
MsgBox _
((str1st.Length - str2nd.Length) / str1st.Length).ToString & " occurences found"
Dim strFind as string = "abc"
Dim str1st As String = "ABCd, abcd, AbCd)
Dim str2nd As String
'
str2nd = str1st.Upper.Replace(strFi
MsgBox _
((str1st.Length - str2nd.Length) / str1st.Length).ToString & " occurences found"
Air-coded:
Dim strFind as string = "abc"
Dim str1st As String = "ABCd, abcd, AbCd)
Dim str2nd As String
'
str2nd = str1st.Upper.Replace(strFi
MsgBox _
((str1st.Length - str2nd.Length) / str1st.Length).ToString & " Occurences Found"
Dim strFind as string = "abc"
Dim str1st As String = "ABCd, abcd, AbCd)
Dim str2nd As String
'
str2nd = str1st.Upper.Replace(strFi
MsgBox _
((str1st.Length - str2nd.Length) / str1st.Length).ToString & " Occurences Found"
Correction:
Dim strFind as string = "abc"
Dim str1st As String = "ABCd, abcd, AbCd)
Dim str2nd As String
'
If strFind.Length > 0 Then
str2nd = str1st.Upper.Replace(strFi
MsgBox _
((str1st.Length - str2nd.Length) / strFind.Length).ToString & " Occurences Found"
End If
Dim strFind as string = "abc"
Dim str1st As String = "ABCd, abcd, AbCd)
Dim str2nd As String
'
If strFind.Length > 0 Then
str2nd = str1st.Upper.Replace(strFi
MsgBox _
((str1st.Length - str2nd.Length) / strFind.Length).ToString & " Occurences Found"
End If
ASKER
Cheers!
Cheers! Any suggestion how can i use it my code...