درج کاراکتر بین رشته

[روستا]

با سلام
دوستان من یه قطعه کد میخوام که چون برنامه نویس وی بی دات نیستم بدجور توش گیر کردم با همه سادگیش
یه رشته به عنوان ورودی داریم که طولش بین 8 تا 14 کاراکتر متغیره، (بستگی داره کاربر چی وارد کرده باشه) و کاراکترها همه عدد هستن
میخوام خروجی و نتیجه کارم یه رشته 14 کاراکتری باشه پس اگه کاربر کمتر از 14 کاراکتر وارد کرد، از کاراکتر 6 به بعد به تعداد مورد نیاز 0 اضافه بشه و نتیجه در خروجی نمایش داده بشه.
خودم اینو نوشتم ولی جواب نمیده. حلقه هم گذاشتم که از 0 تا طول رشته تو لوپ صفر اضافه کنه جواب نداد.
ممنون میشم راهنماییم کنید کارم گیره


dim m as integer
dim len as integer
dim astring as string

astring=txt1.text

len=astring.length

m = 15 - len

Label4.Text = astring.Insert(6, "0")

[محمد آشتیانی]

سلام
مثلا اینجوری

If txt1.TextLength >= 6 Then
Dim ZeroChar As String = String.Empty
Dim ZeroLength As Integer = 14 - txt1.TextLength
ZeroChar = ZeroChar.PadLeft(ZeroLength, "0")
Label4.Text = txt1.Text.Insert(6, ZeroChar)
End If



موفق باشید

[روستا]

از این کد خطا میگیره و اجرا نمیکنه
چیزی که من میخوام یه همچین چیزیه. فکر کنم بد توضیح دادم:


123456-785 : clear text format

12345600000785: brought up to 14 digits

[محمد آشتیانی]

سلام
کد بالا به درستی کار میکنه دوست عزیز ، اتفاقا طبق همین مثالی که زدی هم کار میکنه ، شما کافیه اون خط تیره رو حذف کنی تا خروجی چیزی بشه که نیاز داری
البته حذف نکردن خط تیره هم باعث خطا نمیشه.


موفق باشید

[روستا]

مشکل این بود که من از masktextbox استفاده میکردم و در هرصورت length رو 15 شناسایی میکرد. textbox ساده گذاشتم مشکل حل شد و با این کد جواب داد. ممنونم