السلام عليكم
كيف يمكن ازالة الاسطر الغير مستعملة في TextBox
مثل
arab team 2000 .com
يحولها إلى
arab team 2000 .com
انا كنت عملت جزء من برنامج وهو يظهر الكلمات في مسج (كل كلمة لوحدها) لكن هناك مشكلة انه يظهر السطر الفارغ ككلمة
كيف حل هذه المشكلة
الكود الذي عملته ... وهو في المرفق كذلك
Dim d, s, l, i As Integer Dim str As String i = 1 str = Trim(T.Text) & " " s = InStr(str, " ") l = InStr(str, vbNewLine) If (s < l Or l = 0) Then d = s i = 1 Else d = l i = 2 End If Do While (Trim(str) <> "") MsgBox(Trim(Mid(str, 1, d - 1))) str = Trim(Mid(str, d + i)) str = Trim(str) & " " s = InStr(str, " ") l = InStr(str, vbNewLine) If (s < l Or l = 0) Then d = s i = 1 Else d = l i = 2 End If Loop
