NumberFormat

[amir54 138]

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

 یه آموزش برای جدا کردن شماره ها می خوام برای شما بفرستم مثل 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

[reza644 435]

در در 1396/01/08, 12:33:51، amir54 گفته است :

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

 یه آموزش برای جدا کردن شماره ها می خوام برای شما بفرستم مثل 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 از چه نوعه؟

 

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

[amir54 138]

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

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

 

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

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

com = com & tx & " "

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

com = com & tx & "."

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

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

100.000.000

[reza644 435]

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

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

com = com & tx & " "

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

com = com & tx & "."

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

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

100.000.000

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

[amir54 138]

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

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

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

[reza644 435]

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

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

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

 

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

[amir54 138]

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

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

 

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

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