تکه کد: جداکردن کاراکتر های یک متن به صورت دو تا دو تا

[Kazem Forghani 2,927]

با سلام،

این متد رو نوشتم که باهاش می تونید رشته خودتون رو از سمت چپ چپ دو تا دو تا جدا کنید و اون ها رو در لیست ویو اضافه کنید؛ اگر هم تعداد کاراکتر ها زوج نبود و دو تا دو تا نشد آخرین آیتم می شه همون آخرین کاراکتری که باقی مونده.

خود متد:

Sub TwoTwoSeparate(Text As String) As List
	Dim l As List
	l.Initialize
	Dim i As Int = 0
	Dim id As Int = 2
	Dim new As String
	For i = 0 To Text.Length-1
		If id > Text.Length Then
			id = id -1
		End If
		new = Text.SubString2(i, id)
		l.Add(new)
		i = i + 1
		id = id + 2
	Next
	Return l
End Sub

نحوه استفاده از متد فوق:

Dim li As List
li.Initialize
li = TwoTwoSeparate("Hello")
Log(li)

در کد بالا ابتدا ما یک متغیر از نوع List تعریف کردیم و سپس اون رو Initialize کردیم. بعد لیست خودمون رو برابر با مقدار برگشتی متد مورد نظر قرار دادید. (هر آیتم برگردانده شده حاوی دو کاراکتر می باشد. البته در صورتی که تعداد کاراکتر های متن داده شده زوج نبود آیتم آخر برابر با آخرین کاراکتر می باشد.) بعد هم لیست خودمون رو در Log نشون دادیم. شما می تونید اون رو در یک لیست ویو نشون بدید:

Dim li As List
li.Initialize
li = TwoTwoSeparate("Hello")
For i = 0 To li.Size-1
	ListView1.AddSingleLine(li.Get(i))
Next

موفق باشید