-
hello . . . i here is some code for the open command for the Commondialog . . . the code works great but
'look after the code:
_________________________
Private Sub cmdOpen_click()
Wrap$ = char(13) + char(10)
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$ & Wrap$
Loop
End if
Exit Sub
End Sub
I was wondering what does the Wrap$ = char(13) + char(10) Do?
i understand u Dim the Variable Wrap as string but the char(13) + char(10) do ?
thanks for your time!
------------------
Cory Sanchez
-
It adds the Carriage Return + Line Feed. But you better use VB constants:
strText = strText & vbCrLf & "NewLine"
Regards,
------------------
Serge
Software Developer
[email protected]
[email protected]
ICQ#: 51055819
-
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).]
-
Alright thanks for the info . . . i hate it when i read boooks and they tell me out dated stuff not that it is outdated but they take the longer way.
Thanks [b]Aaron Young[\b] and [b]Serge[\b]