|
Displaying Source Code(s)
|
|
parseoneline
--------------------------------------------------------------------------------
Description : This subroutine takes in a long string, parses out
one line at a time, and then calls a process routine to handle
the line of text.
Sub parseoneline(list)
pos=1
pos2=0
ln=Len(list)
While pos<ln
pos2=InStr(pos,list,vbCrLf)
thisline=Mid(list,pos,pos2-pos)
pos=pos2+2
process oneline
Wend
End Sub
Sub process(oneline)
'do whatever you want with the line; use
' for mailing list, etc.
'example: sendmailto oneline,message
End Sub |
|
|
123
Eng