حذف فضاهای خالی اینتر textbox

[aleas2]

توضیحات کامل در عکس دادم
102112

[SlowCode]

سلام
از تابع replace استفاده کن.
replace text1.text,vbcrlf,""

[aleas2]

نه اینجور کلا بهم میریز
مثلا متن تکست باکس


مرا از وصف ديدارت بسي نيست

مرا چون من به مشتاقت کسي نيست
که من دل دادم و دلداده ترينم

مرا درياب که بي تو نفسي نيست


میخوام تبدیل بشه به

مرا از وصف ديدارت بسي نيست
مرا چون من به مشتاقت کسي نيست
که من دل دادم و دلداده ترينم
مرا درياب که بي تو نفسي نيست

ولی اینجوری شما گفتین میشه


مرا از وصف ديدارت بسي نيستمرا چون من به مشتاقت کسي نيستکه من دل دادم و دلداده ترينممرا درياب که بي تو نفسي نيست

[رامین مرادی]

با يه حلقه متن رو بخون جايي كه دوتا اسپيس هست رو با vbcrlf جايگزين كن اگه جواب نداد بايد هر سطر رو توي يه آرايه بريزي بعد خانه هايي كه مقداري ندارند رو از ارايه حذف كن بعد آرايت رو چاپ كن

[aleas2]

طول متن 2013173 هسته بخوام خط به خط انجام بدم خیلی بیش از حد طول میکشه ممکنه هنگ کنه

[رامین مرادی]

نه واسه چي هنگ كنه داخل حلقه بنويس doevents‌مشكل هنگ حل ميشه برنامه مي تونه به كاراي ديگش هم برسه

[ho3ein.3ven]

سلام. کد زیر رو بررسی کنید :

Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, vbCrLf & vbCrLf, vbCrLf)
End Sub

[رامین مرادی]

بابا ريپليس مگه مي تونه با اين طول موجود اين كار رو بكنه !!!!!!!!!!!!! اگه بتونه برنامه حداقل يكي دودقيق رو هوا مي مونه نمي توني هيچ كاري بكني بهتره حلقه و تابع doevent رو اجرا كني تا هنگام پردازش هنگ نكنه
!!!!!!!!!!!!!!!