RIAS
asked on
Make all values in arrayist to titlecase+vb.net
Hello,
How can I make all values in arraylist to titlecase+vb.net desktop app
Cheers
How can I make all values in arraylist to titlecase+vb.net desktop app
Cheers
ASKER
trying
ASKER
pawan,
Error: Select is not a member of Arraylist
Error: Select is not a member of Arraylist
Can you pls post the entire code you are trying?
ASKER
Dim Arr1, Arr2, Arr3, Arr4 As New ArrayList
Arr1 = Arr1.[Select](Function(r) currentCulture.TextInfo.To TitleCase( r.ToLower( ))).ToList ()
Arr1 = Arr1.[Select](Function(r) currentCulture.TextInfo.To
I am using System.Collections.Generic .List..
can you use this?
can you use this?
ASKER
Can't change arraylist to System.Collections.Generic .List...
need to use arraylist
need to use arraylist
Try this to convert array to generic list..and then use the above code.
Pawan [] arr;
List<Pawan> list = arr.ToList();
Pawan [] arr;
List<Pawan> list = arr.ToList();
ASKER
Can't understand what you are asking me to do .
Try this complete code..
Output
Hope it helps !!
Dim s As String() = New String() {"Pawan", "Pawan", "Pawan", "PAWAN", "pAWAAn"}
Dim myList As New List(Of String)(s)
Dim currentCulture As CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
myList = myList.[Select](Function(r) currentCulture.TextInfo.ToTitleCase(r.ToLower())).ToList()
Output
Hope it helps !!
ASKER
Nope pawan,
Please let me know how to do conversion in arraylist only.
Can;t change arraylist to something else.
Please let me know how to do conversion in arraylist only.
Can;t change arraylist to something else.
Hi,
Please see the last comment.
Please see the last comment.
ASKER
Thanks pawan,
Tried this
how to convert MyList to arraylist?
Tried this
Dim myList As New List(Of String)(Arr1)
myList = myList.[Select](Function(r) currentCulture.TextInfo.ToTitleCase(r.ToLower())).ToList()
SetCombobox(Cmbo1, Need Arraylistback here)
how to convert MyList to arraylist?
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
'Dim ArrList As New List(Of String)(Arr1)
Gave an error:
invalid cast expression
Gave an error:
invalid cast expression
ASKER
Also I am using Arraylist and nor array :>
can you please post entire code?
ASKER
Dim Arr1, Arr2, Arr3, Arr4 As New ArrayList
Arr1.Add("")
Arr2.Add("")
Arr3.Add("")
Arr4.Add("")
Do While SQLdr.Read()
If IsDBNull(SQLdr(StrCol1)) = False Then
StrColval1 = SQLdr(StrCol1).ToString
'StrColval1 = StrColval1.Replace(" ", String.Empty)
If StrColval1 <> String.Empty AndAlso StrCol1 <> "SentBy" Then
'Check for duplicates in array
If Not (Arr1.Contains(StrColval1)) AndAlso Not (Arr1.Contains(StrColval1.ToLower)) Then
If Not (Arr1.Contains(StrColval1.ToUpper)) Then
Arr1.Add(StrColval1.ToUpperInvariant)
End If
End If
ElseIf StrCol1 = "SentBy" Then
If Not (Arr1.Contains(StrColval1)) AndAlso Not (Arr1.Contains(StrColval1.ToLower)) Then
If Not (Arr1.Contains(StrColval1.ToUpper)) Then
If StrColval1.ToUpper = "M" OrElse StrColval1.ToUpper = "A" OrElse StrColval1.ToUpper = "jijJ" OrElse StrColval1.ToUpper = "Sii" Then
Arr1.Add(StrColval1.ToUpper)
End If
End If
End If
End If
End If
Not getting this looks like a separate code? Below is working for me.
Dim s As String() = New String() {"Pawan", "Pawan", "Pawan", "PAWAN", "pAWAAn"}
Dim myList As New List(Of String)(s)
Dim s As String() = New String() {"Pawan", "Pawan", "Pawan", "PAWAN", "pAWAAn"}
Dim myList As New List(Of String)(s)
Hi Rias,
Any luck ?
Any luck ?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thanks!
You could just do...
For i As Integer = 0 To Arr1.Count - 1
Arr1(i) = System.Threading.Thread.CurrentThread.CurrentCulture.TextInfo.ToTitleCase(Arr1(i).ToString.ToLower)
Next
Pls try..
Open in new window