جدا سازی ارقام در edittext

[naeini89 30]

سلام

خسته نباشید

یه سوال از خدمتتون دارم

چطور میتونم از ورودی از edittext که دارم

بینشون فاصله بزارم

مثلا عدد ورودی ما اینه

123456789

خروجی بشه

1-2-3-4-5-6-7-8-9

ممنون میشم

[naeini89 30]

سلام دوست عزیز

Dim a As String
Dim L As Byte
Dim TXT As String


L=Edittext1.text.Lenght
TXT=""
For i=1 To L
   a=Str.Mid(Edittext1,i,1)
   TXT=TXT&a&"-"
Next
L=TXT.Lenght
L=L-1
TXT=Str.Mid(TXT,1,L)

TXT آخری میشه جواب شما . ضمنا باید از کتابخونه ICOSStrings استفاده کنین

موفق باشین

Str

چی هست؟

[esmaeil57 64]

جواب رو ویرایش کردم

گفتم که کتابخونه رو به کتابخونه های برنامه بیسیکتون اضاف کنید. اگه ندارین بگین تا بذارم

[naeini89 30]

ویرایش شد

ویرایش شد

ویرایش شد

ویرایش شد

[esmaeil57 64]

این هم برنامه شما به همراه کتابخونه:

Split.rar

[mohammad-alone 564]

فکر میکنم باید از Numbers استفاده کنید

شما میتونید عبارت Format Basic4Android رو سرچ کنید

[esmaeil57 64]

سلام

خسته نباشید

یه سوال از خدمتتون دارم

چطور میتونم از ورودی از edittext که دارم

بینشون فاصله بزارم

مثلا عدد ورودی ما اینه

123456789

خروجی بشه

1-2-3-4-5-6-7-8-9

ممنون میشم

سلام دوست عزیز

	Dim a As String	Dim L As Byte
Dim TXT As String
Dim str As ICOSStrings

L=EditText1.text.Length
TXT=""
For i=1 To L
	a=str.Mid(EditText1.text,i,1)
	TXT=TXT&a&"-"
Next
L=TXT.Length
L=L-1
TXT=str.Mid(TXT,1,L)	

TXT آخری میشه جواب شما . ضمنا باید از کتابخونه ICOSStrings استفاده کنین

موفق باشین