|
-
Nov 16th, 1999, 09:14 AM
#1
Thread Starter
Registered User
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
-
Nov 16th, 1999, 09:38 AM
#2
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).]
-
Nov 16th, 1999, 09:38 AM
#3
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
-
Nov 16th, 1999, 09:45 AM
#4
Thread Starter
Registered User
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]
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|