CHR(10) is Carriage Return and CHR(13) is a LineFeed, instead you could just use the VB Constant vbCrLf, eg.
------------------Code:Private Sub cmdOpen_click() Commondialog1.Filter = "Text Files (*.txt)|*.txt" Commondialog1.ShowOpen If commonDialog1.Filename <> "" then Open CommonDialog1.Filname for Input As #1 Do until EOF(1) Line Input #1, LineOfText$ AllText$ = ALLText$ & LineOfTExt$ & vbCrLf Loop End if End Sub
Aaron Young
Analyst Programmer
[email protected]
[email protected]
[This message has been edited by Aaron Young (edited 11-16-1999).]




Reply With Quote