- من مي خواهم تك تك كاراكتر هاي يك String را جدا كنم و بر روي هر كدام از اين كاراكتر ها عملياتي انجام دهم، در حقيقت من مي خواهم بدانم آيا VB.NET تابعي براي اين منظور دارد يا نه كه اگر نه چگونه يك چنين كاري را با VB.NET انجام دهم ( خواهشمندم اين كد را برايم بيان كنيد ) ؟
تابع زیر رو که خودم نوشتم میتونه تمومه کاراکترهای یک رشته رو جدا و در یک کالکشن جمع آوری کنه.
Public Function Str_Spliter(ByVal str As String) As Collection
Str_Spliter = New Collection
Str_Spliter.Clear()X
Dim i As Integer = 1
For i = 0 To str.Length - 1
Str_Spliter.Add(str.Substring(i, 1))X
Next
End Function
مثال :
به فرم برنامه ، یک BUtton و یک ListBox اضافه کن و کد زیر رو در ادیتور وارد کن:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 1 To Str_Spliter("p30world").Count
ListBox1.Items.Add(Str_Spliter("p30world").Item(i))X
Next
End Sub