انتقال حروف یک متن / جداسازی حروف یک متن

ما کد نویس هستیم نه برنامه نویس !!!

دوستان اگر نیازمند کد نویسی هستن در سایت هایی فریلنسرهایی هستند که با مبلغ اندکی کد را برای شما می نویسند البته حداقل مبلغ کارها ۵۰ هزار تومان است ( سال 1401 ) و حدود ۴۰ درصد پورسانت سایتی است که از مبلغ پروژه برداشت می کند ، در نظر داشته باشید یا باید دانش تحلیل و الگوریتم را بلد باشید یا در جاهایی از برنامتون از این فریلنسرها بهره ببرید یا در تلگرام گروه های اکسسی را بیابید که در کدنویسی ساده یاریِتان بُنُمایند.

فرض کنید در کنترل تکست باکسی ، داده متنی مثل "محمد علی" را تایپ می کنید و بعد از ترک فوکِس از کنترل می خواهید هر حرف داخل یک کنترل تکست باکس که در جلوی تکست باکس ورودی تعبیه کردید منتقل شود.

مراحل : 

1- باید با استفاده از تابع Replace فضاهای خالی یا Space را از متن بردارید .

2-در انتهای نام کنترل های ایجاد شده ، عدد ترتیبی مثل 1 ، 2 و ... اضافه بُنُمائید. مثل ctl1 ، ctl2 و ..... به اندازه هر چند کنترلی که جلوی تکست باکس دارید .

3- به اندازه طول رشته بعد از حذف Space ها  در مرحله یک لوپ بزنید .

4- داخل لوپ نوشته شده در هر کنترل که اسم آن ctl1 یا ... باشد در پراپرتی کنترل سورس آن ، حرف مورد نظر در متن را با توجه به موقعیت آن در متن ، قید میکند البته با استفاده از تابع Mid که چند پارامتر دارد ( از کجای متن شروع کند و چه تعدادی را برای شما نشان دهد (طول) در اینجا معلوم است یک حرف  )

office/mid-function

ولی لطفا نفرمائید  که استفاده از تابع Replace و Mid را بلد نیستید !!! 

چنانچه متوجه شدید لطفا در نظرات این پست بنویسید !!!