جدا کردن هر خط تکست باکس

[sina_saravi1]

سلام

چجوری میشه محتویات یه تکست باکس که multiline=true هست رو خط به خط تو یه متغیر ذخیره کرد؟

چه سوال سختی پرسیدم:گیج:

[xxxxx_xxxxx]

با Split خطوط رو از هم جدا كنيد. به اين صورت:


Dim s() As String
s = Split(Text1.Text, vbCrLf)

S آرايه اي رشته ايست كه هر خونه اش يك خط از TextBox هست.
vbCrLf همون Enter هست.

[sina_saravi1]

با Split خطوط رو از هم جدا كنيد. به اين صورت:


Dim s() As String
s = Split(Text1.Text, vbCrLf)

S آرايه اي رشته ايست كه هر خونه اش يك خط از TextBox هست.
vbCrLf همون Enter هست.
واقعا ممنونم
ولی چجوری تعداد این خط ها رو بفهمم؟
یا تعداد خط های ذخیره شده تو آرایه S

[xxxxx_xxxxx]

با Ubound مي تونيد بفهميد. Ubound شماره آخرين خونه آرايه رو برميگردونه.


a = UBound(s)

a ميشه شماره آخرين خونه. البته دقت كنيد خونه ها از صفر شروع ميشه.