تشخیص اولین کاراکتر در هر خط

[Ghoghnus]

شما خودتون هم یکم به سورس نگاه میکردین متوجه میشدین جریان چیه و میتونستید درستش کنید!

کد:

Dim Pos As Long, temp As Long, t As String * 1
List1.AddItem (Left(Text1.Text, 1))
Pos = 1

For i = 1 To Len(Text1.Text) + 1 Step 1
t = Mid(Text1.Text, Pos)
temp = Asc(t)
    If temp = 13 Then
    Pos = Pos + 1
    t = Mid(Text1.Text, Pos)
    temp = Asc(t)
        If temp = 10 Then
        Pos = Pos + 1
        t = Mid(Text1.Text, Pos)
        
        List1.AddItem (t)
        End If
    End If

Pos = Pos + 1
Next