[Q] Cách duyệt line trong textbox

[simon]

Xin hỏi làm thế nào để duyệt từng dòng trong textbox (ở chế độ multiline)

[DoanCongDanh]

mỗi dòng được ngăn cách bởi hai ký tự chr(13) và chr(10) (VBCrLf).
Bạn chỉ việc tìm lần lượt các ký tự trên là đã duyệt qua từng line rồi đó.
ví dụ:

Dim mStr as String, Pos as integer
Dim mLine as String, cLines As New Collection
'Đưa từng line vào tập hợp cLines
mStr=Textbox1.Text
Pos=Instr(mStr,chr(13))
Do While Pos<>0
mLine=Left(mStr,Pos-1)
cLines.Add mLine
mStr=Right(mStr,Len(mStr)-Pos -1)
Pos=Instr(mStr,chr(13))
Loop

'Lấy từng Line từng cLines
dim I as Integer
Dim mLine

For I=1 to cLines.Count
Set mLine = cLines.Item(I)
Print mLine
Next

Chúc bạn thành công!