جدا كردن به صورت 4 رقم 4 رقم

[ebrahimv]

سلام
چگونه با دستور Format يك عدد رو بدم و بين هر 4 رقم يك فاصله بندازه
مثلا عدد 1234567891234
در برام اينو برگردونه

1234 5678 9123 4

[teymoorei]

سلام
شما دو راه داری
1 - کد نویسی
2 - استفاده از MaskedTexbox که خیلی هم بهتره
این کد 3 رقم 3رقم جدا میکنه باید تغییرش بدی خودت :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim str As String = ""
If TextBox1.Text.Length > 3 Then
SendKeys.Send("{end}")
str = Format$(TextBox1.Text.Replace(",", ""))
TextBox1.Text = Format$(Val(str), "###,###,###")
End If
End Sub

[mehdi.mousavi]

سلام چگونه با دستور Format يك عدد رو بدم و بين هر 4 رقم يك فاصله بندازه مثلا عدد 1234567891234 در برام اينو برگردونه

1234 5678 9123 4


سلام.
مطمئن نیستم بشه اینکارو با یک دستور Format انجام داد، اما با Regular Expression ها میشه بدین شکل عمل کرد:

Dim str As String = 1234567891234.ToString()
Dim x As String = Regex.Replace(str, "(\d{1,4})", "$1 ")

موفق باشید.

پاورقی: به Space ای که بعد $1 در پارامتر سوم گذاشته ام دقت کنید.

[dottnett]

آيا اين امكان وجود داره كه عدد ما 4 رقم 4 رقم از سمت راست به چپ جدا كرد ؟ 1234 56789 1

[mehdi.mousavi]

آيا اين امكان وجود داره كه عدد ما 4 رقم 4 رقم از سمت راست به چپ جدا كرد ؟ 1234 56789 1

سلام.
بله، البته که این امکان وجود داره:

Dim x As String = Regex.Replace("12345678912340", "(\d{1,4})", "$1 ", RegexOptions.RightToLeft)

موفق باشید.

[saeed_sho]

سلام من یکم Regex بلدم میشه در مورد پارامترهای دوم و سوم یکم توضیح بدی مخصوصا پارامتر سوم
در مورد کدی که teymourei نوشته بود میشه کسی یکم توضیح بده