>>lnStart = Thisform.Edit1.SelStart >>lcCrLf = CHR(13) + CHR(10) >> >>lnOccurence = OCCURS(lcCrLf, LEFT(Thisform.Edit1.Text, lnStart)) >> >>lcCommand = STREXTRACT(lcCrLf + Thisform.Edit1.Text, lcCrLf ,lcCrLf, lnOccurence + 1,2) >>>>
lnStart = Thisform.Edit1.SelStart lcCrLf = CHR(13) + CHR(10) lnOccurence = OCCURS(lcCrLf, LEFT(Thisform.Edit1.Text, lnStart)) ALINES(laLines, Thisform.Edit1.Text) lcCommand = laLines[lnOccurence + 1]