VB Code:
Public Sub ReadNames()
Dim sFileName As String
Dim Lines
Dim WinH As Long
Dim i As Integer
Dim LineLength As Long
Dim charOffset As Long
WinH = txtNames.hWnd
Lines = SendMessage(WinH, EM_GETLINECOUNT, 0, 0)
For i = 0 To Lines - 1
charOffset = SendMessage(WinH, EM_LINEINDEX, i, 0)
LineLength = SendMessage(WinH, EM_LINELENGTH, charOffset, 0)
sFileName = Mid$(txtNames.Text, charOffset + 1, LineLength)
If sFileName = cboNickName.Text Then GoTo Repeat
sFileName = Rep(sFileName, "=", "")
sFileName = Rep(sFileName, "G,", "")
sFileName = Rep(sFileName, "H,", "")
sFileName = Rep(sFileName, "U,", "")
sFileName = Rep(sFileName, "R,", "")
sFileName = Rep(sFileName, "G,", "")
sFileName = Rep(Rep(Rep(sFileName, ".", ""), "@", ""), "+", "")
If sFileName <> "" Then lstNames.AddItem Trim(sFileName)
Repeat:
Next i
End Sub