تفکیک حروف و اعداد موجود در متن

[rasul23 40]

با سلام

 

تو برنامه ای که ساختم لازمه که اعداد و حروف هایی که کاربر به برنامه میده تفکیک بشن

مثلا فرض کنید کاربر یه شماره به برنامه میده

حالا باید برنامه بیاد اون شماره رو به صورت عدد دو رقمی . سه رقمی و چهار رقمی از سمت چپ تفکیک کنه

مثلا 09123456789 رو در نظر بگیرد میخام این شماره بعد از تفکیک داخل سه تا لیبل نمایش داده بشه

 

لیبل اول : 12

لیبل دوم : 345

لیبل سوم:6789

 

ممنوم میشم اگه کمکم کنید 

[Kazem Forghani 2,927]

الان دوتا دوتا از سمت چپ بخام جدا کنه و تو یه لیست ویو نشون بده مشکلی پیش میاد؟

سلام

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

Sub TwoTwoSeparate(Text As String, Lv As ListView)
	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)
		Lv.AddSingleLine(new)
		i = i + 1
		id = id + 2
	Next
End Sub

نحوه استفاده هم به اسن صورته:

TwoTwoSeparate("09123456789", ListView1)

اگر سوالی داشتید در خدمتم ،

موفق باشید

[ha88an 203]

با استفاده از متد substring2 خیلی راحت میتونید رشته خودتون که همون شماره باشه رو جدا کنید و بریزید داخل لیبل ها

[Kazem Forghani 2,927]

سلام

اگر تعداد ارقام شما مشخصه کار خیلی آسون تر می شه.

Dim text As String = 09123456789
Dim lbl1 As Label
Dim lbl2 As Label
Dim lbl3 As Label
lbl1.Text = text.SubString2(2, 3)
lbl2.Text = text.SubString2(4, 6)
lbl3.Text = text.SubString2(7, 10)

موفق باشید

[rasul23 40]

ممنون از پاسختون اما مشخص نیست متغیره 

[Kazem Forghani 2,927]

ممنون از پاسختون اما مشخص نیست متغیره 

خوب مثلا اگر 3 رقم باشه چطوری می خواین مثل پست اول که گفتید تفکیک کنید؟

[rasul23 40]

خوب مثلا اگر 3 رقم باشه چطوری می خواین مثل پست اول که گفتید تفکیک کنید؟

 

اونو مثال زدم / اما تعداد رقمی که میخام تفکیک بشن معلومه و دوتا دوتا هستش ولی مقدار کلی متغیره  ممکنه چهاررقمی باشه یا 12 رقمی

[rasul23 40]

ایا امکانش هست؟

[Kazem Forghani 2,927]

 

با این ارور مواجه شدم

 

Dim text As String = 09123456789

javac 1.7.0_09

src\b4a\example\main.java:363: error: integer number too large: 09123456789

_text = BA.NumberToString(09123456789L);

 

به این صورت بدید ،

Dim text As String = "09123456789"

[rasul23 40]

 

به این صورت بدید ،

Dim text As String = "09123456789"

  

 

الان دوتا دوتا از سمت چپ بخام جدا کنه و تو یه لیست ویو نشون بده مشکلی پیش میاد؟