رفتن به مطلب

NumberFormat


amir54

ارسال‌های توصیه شده

سلام. سال نو همه مبارک:53::53::53:

 یه آموزش برای جدا کردن شماره ها می خوام برای شما بفرستم مثل 09123456789 به 6789 345 0912

Sub Button1_Click
	change("09123456789","****-***-****"," ")
End Sub

Sub change(number As String,format As String,Words As String) As Object
	Dim spc(0),tx,com As String
	Dim x As Int
	
	spc =Regex.Split("-",format)
	
	For i = 0 To number.Length-1
		If (number.Length-1) < i+spc(x).Length Then
			tx = number.SubString2(i,number.Length)
			com = com & tx & Words
			 Exit
		End If
		tx= number.SubString2(i,i+spc(x).Length)
		i = (i+spc(x).Length)-1
		x = x +1
		If spc.Length = x Then x = 0
		com = com & tx & Words
	Next
	Return com.SubString2(0,com.Length-1)
End Sub

اول میاد ستاره ها رو جدا می کنه میریزه تو spc بعد میاد اعداد رو به تعداد ستاره ها در number جدا می کنه بعدش یک فاصله ایجاد می کنه خط آخر میاد فاصله اضافی اخر رو پاک می کنه خروجی میده

نمونه کد قرار گرفت

NumberFormat.zip

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 8 ماه بعد...
در در 1396/01/08, 12:33:51، amir54 گفته است :

سلام. سال نو همه مبارک:53::53::53:

 یه آموزش برای جدا کردن شماره ها می خوام برای شما بفرستم مثل 09123456789 به 6789 345 0912


Sub Button1_Click
	change("09123456789","**** *** ****")
End Sub


Sub change(number As String,format As String)
	Dim spc(0),tx,com As String
	Dim x As Int
	
	spc =Regex.Split(" ",format)
	
	For i = com.Length To number.Length-1
		tx= number.SubString2(i,i+spc(x).Length)
		i = (i+spc(x).Length)-1
		x = x +1
		If spc.Length = x Then x = 0
		com = com & tx & " "
	Next
	Return com.SubString2(0,com.Length-1)
End Sub

اول میاد ستاره ها رو جدا می کنه میریزه تو spc بعد میاد اعداد رو به تعداد ستاره ها در number جدا می کنه بعدش یک فاصله ایجاد می کنه خط آخر میاد فاصله اضافی اخر رو پاک می کنه خروجی میده

مرسی از راهنماییت متغیر CHANGE از چه نوعه؟

 

اگه بخوایم با نقطه جدا کنیم چیکار کنیم؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 6 دقیقه قبل، reza644 گفته است :

مرسی از راهنماییت متغیر CHANGE از چه نوعه؟

 

اگه بخوایم با نقطه جدا کنیم چیکار کنیم؟

سلام متن میگیره و جدا سازی می کنه و متن تحویل میده

com = com & tx & " "

رو به این تغییر بدین

com = com & tx & "."

و برای مثال میشه 

change("100000000","*** *** ***")

100.000.000

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 18 دقیقه قبل، amir54 گفته است :

سلام متن میگیره و جدا سازی می کنه و متن تحویل میده


com = com & tx & " "

رو به این تغییر بدین


com = com & tx & "."

و برای مثال میشه 


change("100000000","*** *** ***")

100.000.000

CHANG رو چجوری DIM کنم؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 3 دقیقه قبل، reza644 گفته است :

CHANG رو چجوری DIM کنم؟

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 2 ساعت قبل، amir54 گفته است :

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

میشه بیشتر کمک کنید تا حالا باهاش کار نکردم

 

الان مشکل اینه که متغیر CHANGE قرمزه و شناخته نمیشه.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 17 ساعت قبل، reza644 گفته است :

میشه بیشتر کمک کنید تا حالا باهاش کار نکردم

 

الان مشکل اینه که متغیر CHANGE قرمزه و شناخته نمیشه.

نمونه کد جوری که خواستین پیوست شد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...