Programming Forums > Application Development > Visual Basic

office.boy · Dec 31st, 2005, 10:49 AM

Hi.

I'm fairly new to VB.

And i was wondering.

Could anyone help me with splitting?

See i don't know the concept of the functions chr() etc..

For example:

If fso.FileExists(App.Path & "\DATA\OBJDATA.TXT") = False Then Exit Function
roomdescs = fso.OpenTextFile(App.Path & "\DATA\OBJDATA.TXT", ForReading).ReadAll
roomfurniname = Split(roomdescs, finame & "_name = ")(1)
roomfurniname = Split(roomfurniname, Chr(13))(0)
roomdescription = Split(roomdescs, finame & "_desc = ")(1)
roomdescription = Split(roomdescription, Chr(13))(0)
thex = Split(SData, " ")(2)
they = Split(SData, " ")(3)

This laods from a text file etc..

Could anyone explain what is happening in this type of code and explain abit more about packet splitting and chr() Etc?

Thanks.

niteice · Jan 1st, 2006, 12:53 PM

Chr() returns a character code from the ASCII number given to it. 13 is the symbol for a new line, hence, you're splitting at every new line in that code.

Rory · Jan 3rd, 2006, 5:03 PM

However that will leave trailing break Chr(10) characters on each item as on windows the new line sequence is actually CR LF - you should use the constant vbNewLine instead which is a platform dependent constant.

Ooble · Jan 3rd, 2006, 7:25 PM

Because, y'know, VB is used on so many platforms...

Rory · Jan 4th, 2006, 2:15 PM

Mac is (barely) an operating system too. And I really meant .NET which runs on a multitude of architectures and platforms. Anyway it's better programming practice and more legible than a load of magic numbers.

Ooble · Jan 5th, 2006, 5:08 PM

Quote:

Originally Posted by Rory

Anyway it's better programming practice and more legible than a load of magic numbers.

Now that, I agree with.

Dec 31st, 2005, 10:49 AM	#1
office.boy Newbie Join Date: Dec 2005 Posts: 1 Rep Power: 0	chr() split() etc.. Hi. I'm fairly new to VB. And i was wondering. Could anyone help me with splitting? See i don't know the concept of the functions chr() etc.. For example: If fso.FileExists(App.Path & "\DATA\OBJDATA.TXT") = False Then Exit Function roomdescs = fso.OpenTextFile(App.Path & "\DATA\OBJDATA.TXT", ForReading).ReadAll roomfurniname = Split(roomdescs, finame & "_name = ")(1) roomfurniname = Split(roomfurniname, Chr(13))(0) roomdescription = Split(roomdescs, finame & "_desc = ")(1) roomdescription = Split(roomdescription, Chr(13))(0) thex = Split(SData, " ")(2) they = Split(SData, " ")(3) This laods from a text file etc.. Could anyone explain what is happening in this type of code and explain abit more about packet splitting and chr() Etc? Thanks.

Jan 3rd, 2006, 7:25 PM	#4
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Because, y'know, VB is used on so many platforms... __________________ Me :: You :: Them

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Jan 1st, 2006, 12:53 PM	#2
niteice Programmer Join Date: Aug 2005 Posts: 98 Rep Power: 4	Chr() returns a character code from the ASCII number given to it. 13 is the symbol for a new line, hence, you're splitting at every new line in that code.

Jan 3rd, 2006, 5:03 PM	#3
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	However that will leave trailing break Chr(10) characters on each item as on windows the new line sequence is actually CR LF - you should use the constant vbNewLine instead which is a platform dependent constant.

Jan 4th, 2006, 2:15 PM	#5
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	Mac is (barely) an operating system too. And I really meant .NET which runs on a multitude of architectures and platforms. Anyway it's better programming practice and more legible than a load of magic numbers.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

chr() split() etc..