PDA

Click to See Complete Forum and Search --> : Alittle confused on what purpose these characters make. . .little info please!


struntz
Nov 16th, 1999, 08:14 AM
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

Aaron Young
Nov 16th, 1999, 08:38 AM
CHR(10) is Carriage Return and CHR(13) is a LineFeed, instead you could just use the VB Constant vbCrLf, eg.

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
aarony@redwingsoftware.com
adyoung@win.bright.net


[This message has been edited by Aaron Young (edited 11-16-1999).]

Serge
Nov 16th, 1999, 08:38 AM
It adds the Carriage Return + Line Feed. But you better use VB constants:

strText = strText & vbCrLf & "NewLine"

Regards,

------------------

Serge

Software Developer
Serge_Dymkov@vertexinc.com
Access8484@aol.com
ICQ#: 51055819 (http://www.icq.com/51055819)

struntz
Nov 16th, 1999, 08:45 AM
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]