تغییر سایز استرینگ

[afshin006 6]

دوستان کسی میتونه کمک کنه

ببینید من دونا استرینگ دارم با طول نا مشخص ، که میخام مثلا ده کاراکتر از اولی و ده تا از دومی را برداره و تشکیل یک استرینگ سوم به طول 20 کاراکتر بده، حالا اگر مثلا استرینگ اول 5 کاراکتر بود به جای 5 تا کمبود 5 تا اسپیس بزاره و تبدیلش کنه به ده تا و بعد ترکیب کنه

چه راحی داره به نظر شما ؟

[مجید آرتا 5,874]

سلام

یک همچین کدی میشه:

Dim t1 , t2 As String
Dim ti1,ti2 As Int
Dim Total As String
t1 = EditText1.Text
t2 = EditText2.Text
if t1.Length < 10 Then
 ti1 = t1.Length - 10
 For i = 1 To ti1
  t1 = t1 & " "
 Next
End If
if t2.Length < 10 Then
 ti2 = t2.Length - 10
 For i = 1 To ti2
  t2 = t2 & " "
 Next
End If

Total = t1 & t2

دستی نوشتم و تست نکردم خودتون توی محیط بیسیک تست کنید.

[afshin006 6]

ممنون مجید خان ، تست میکنم حتما درسته ، شاد باشی

[parhamahmadi78 93]

با ساب استرینگ میتوانید این کار رو انجام بدید

فرستاده شده از H30-U10ِ من با Tapatalk

[مهدی ایزدی 9,203]

درود

خب برای جدا کردن که با با همون SubString میتونید این کار رو انجام بدید

فقط برای جلوگیری از خطای احتمالی که به قولتون شاید 10 تا کارکتر کمتر باشه اول بایید Length بگیرید ببینید چند حرف است؟

دیگه با چند تا شرط که فکر کنم خودتون بهتر بلد باشید میایید مقادیر بو میگیرید و اگه کمتر از 10 تا حرف بود بهش Space اضافه میکنید

[afshin006 6]

ببین رفیق،چه جوری به استرینگ اسپیس اضافه کنم ؟

من هر کاری انجام میدم بعد که دوتارو با هم ترکیب میکنم میبینم اسپیس را حذف کرده