Formating Data - Xtreme Visual Basic Talk

01-12-2004, 04:13 AM

equis

Regular

Join Date: Nov 2002

Posts: 89

Formating Data

Hello,

I am making a program that gets data from an internet server, I've done that bit, now I need format it so I can enter it into database.

this is the data I get: (except in VB it is all one line with small | sort of spacers in them (I think its the newline character but Im not sure)

How would I enter this into a database as 23 rows (not just one) and also split into 4 fields?

Thanks Heaps

1 0.00 0.00 0.00
2 0.00 0.00 0.00
3 0.00 0.00 0.00
4 0.00 0.00 0.00
5 0.00 0.00 0.00
6 0.00 0.00 0.00
7 0.00 0.00 0.00
8 0.00 0.00 0.00
9 0.00 0.00 0.00
10 0.00 0.00 0.00
11 0.00 0.00 0.00
12 0.00 0.00 0.00
13 0.00 0.00 0.00
14 0.00 0.00 0.00
15 0.00 0.00 0.00
16 0.00 0.00 0.00
17 14.58 0.02 0.00
18 163.64 0.08 0.00
19 197.32 0.12 0.00
20 180.27 0.00 0.00
21 139.43 0.02 0.00
22 0.00 0.00 0.00
23 0.00 0.00 0.00

01-12-2004, 04:23 AM

samr

Senior Contributor

Join Date: Jul 2003

Location: London, England

Posts: 993

If you use a flex grid to display the data, then the following will work (the data is storred in text1, can be converted to a string):

Code:

Dim txtarr() As String
Dim i As Integer
MSFlexGrid1.rows = 0
MSFlexGrid1.cols = 4
txtarr = Split(Replace$(Text1.Text, " ", vbTab), vbCrLf)
For i = LBound(txtarr) To UBound(txtarr)
    MSFlexGrid1.AddItem txtarr(i)
Next

01-12-2004, 04:35 AM

equis

Regular

Join Date: Nov 2002

Posts: 89

Thanks for that.

When I do the I get 1 line in the Grid

"1 0.00 0.00 0.00|2"

:-)

01-12-2004, 05:46 AM

waits77

Senior Contributor

Join Date: May 2003

Posts: 805

in the code provided by samr, try changing the Split character from vbCrLf to Chr(10) which is a line feed. vbLineFeed may work as well.

Code:

txtarr = Split(Replace$(Text1.Text, " ", vbTab), Chr(10))

01-13-2004, 09:40 PM

equis

Regular

Join Date: Nov 2002

Posts: 89

It Worked!

Thank you both

« Previous Thread | Next Thread »

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

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

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts BB code is On Smilies are On [IMG] code is Off HTML code is Off Forum Rules

Forum Jump

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help - Newbie - Huge problem - should be easy for you	eastcore	Excel	5	02-09-2004 09:36 PM
Formating columns of data to printer	littlerockz	Word, PowerPoint, Outlook, and Other Office Products	0	08-26-2003 12:05 AM
formating data passed from an Access DB	Rutibaker	Database and Reporting	8	08-05-2003 10:40 AM
programming for IRC with VB tutorial	crazycheetah	Tutors' Corner	0	05-04-2003 05:15 PM
Suggestions/Ideas on formating data	linzy	General	8	10-31-2001 02:16 PM