I need help with VB - GoFuckYourself.com

AssFairy · 10-21-2003, 07:19 PM

I want to fill an array with data but there must be an easier way than this.

Dim MyArray$(7)
MyArray$(1) = "Monday"
MyArray$(2) = "Tuesday"
MyArray$(3) = "Wednesday"

What I really want is something like this.

Dim MyArray$(7)
Data "Monday","Tuesday","Wednesday" .....

then use a loop to add the data to the array.

I could store the data in a text file and read it in like this

Open "data.txt" For Input As #1
Do
x = x + 1
Input #1, a$
MyArray$(x) = a$
Loop Until EOF(1)
Close

but I want my data string to be stored within the program.

cluck · 10-21-2003, 07:27 PM

You could store them as comma delimited or whatever then use a function to loop through them and put them in an array I guess.

MrSpeed · 10-21-2003, 07:29 PM

There aren't too many different ways.

<% Dim mArray(11)
mArray=Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
%>

gornyhuy · 10-21-2003, 07:33 PM

2 ways come to mind and there are probably better ones:

1)define a string variable with comma delimeters and then use a string tokenizer

or

2)similar to above but use the SPLIT() function which automatically tokenizes a string and returns an array with all the tokens as the array elements.

have fun!

AssFairy · 10-21-2003, 07:44 PM

Quote:

Originally posted by gornyhuy
2 ways come to mind and there are probably better ones:

1)define a string variable with comma delimeters and then use a string tokenizer

or

2)similar to above but use the SPLIT() function which automatically tokenizes a string and returns an array with all the tokens as the array elements.

have fun!

??? there is no "Split()" command in VB!

In old basics you could just use the "Data" and "Read" but VB don't appear to have such a function.

If you gad a string like .... MyData$="Monday,Tuesday,Wednesday,Thursday"
how would you put them into an array?

gornyhuy · 10-21-2003, 09:35 PM

RTFM.

http://msdn.microsoft.com/library/de...vafctsplit.asp

I'm done helping you.

evilregis · 10-22-2003, 09:21 AM

Dim Days() as String = { "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" }

remember VB starts its arrays at 0... so sunday is day(0) not day(1).

init · 10-22-2003, 10:09 AM

here is a little code i threw up, shows you start with a string then add's data to it. hope this is what you were looking for

Function Dates()
Dim strDay As String, iCount As Integer

strDay = "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday ,Sunday"

strDates = Split(strDay, ",")

For iCount = LBound(strDates) To UBound(strDates)

strDates(iCount) = strDates(iCount) & " Index (" & iCount & ")" & vbNewLine

MsgBox strDates(iCount)

Next iCount

End Function

gornyhuy · 10-22-2003, 10:26 AM

Quote:

Originally posted by init
here is a little code i threw up, shows you start with a string then add's data to it. hope this is what you were looking for

Function Dates()
Dim strDay As String, iCount As Integer

strDay = "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday ,Sunday"

strDates = Split(strDay, ",")

For iCount = LBound(strDates) To UBound(strDates)

strDates(iCount) = strDates(iCount) & " Index (" & iCount & ")" & vbNewLine

MsgBox strDates(iCount)

Next iCount

End Function

Nice use of SPLIT...

init · 10-22-2003, 10:31 AM

Quote:

Originally posted by gornyhuy

Nice use of SPLIT...

thanks you :p , easiest peice of code i ever wrote i think

AssFairy · 10-22-2003, 11:39 AM

Quote:

Originally posted by gornyhuy
RTFM.

http://msdn.microsoft.com/library/de...vafctsplit.asp

I'm done helping you.

Thanks for the link and taking your time out to help

Unfortunately its not supported in my old version of VB, I guess its time to upgrade.

AssFairy · 10-22-2003, 11:47 AM

Quote:

Originally posted by evilregis
Dim Days() as String = { "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" }

remember VB starts its arrays at 0... so sunday is day(0) not day(1).

Dam.... even this function is not supported in VB5

I feel so old and out of date

10-21-2003, 07:27 PM	#2
cluck Confirmed User Join Date: Dec 2002 Location: New Jersey Posts: 5,248	You could store them as comma delimited or whatever then use a function to loop through them and put them in an array I guess. __________________ icq 279990726 www.mcdonalds.com <- great money making opportunity

10-21-2003, 07:33 PM	#4
gornyhuy Chafed. Join Date: May 2002 Location: Face Down in Pussy Posts: 18,041	2 ways come to mind and there are probably better ones: 1)define a string variable with comma delimeters and then use a string tokenizer or 2)similar to above but use the SPLIT() function which automatically tokenizes a string and returns an array with all the tokens as the array elements. have fun! __________________ icq:159548293

10-21-2003, 09:35 PM	#6
gornyhuy Chafed. Join Date: May 2002 Location: Face Down in Pussy Posts: 18,041	RTFM. http://msdn.microsoft.com/library/de...vafctsplit.asp I'm done helping you. __________________ icq:159548293

10-22-2003, 09:21 AM	#7
evilregis Confirmed User Join Date: Oct 2003 Location: Canada Posts: 163	Dim Days() as String = { "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" } remember VB starts its arrays at 0... so sunday is day(0) not day(1). __________________ eR :: beauty is in the eye of the beer-holder ::

10-22-2003, 10:09 AM	#8
init Confirmed User Join Date: Oct 2002 Location: Sarasota, FL Posts: 973	here is a little code i threw up, shows you start with a string then add's data to it. hope this is what you were looking for Function Dates() Dim strDay As String, iCount As Integer strDay = "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday ,Sunday" strDates = Split(strDay, ",") For iCount = LBound(strDates) To UBound(strDates) strDates(iCount) = strDates(iCount) & " Index (" & iCount & ")" & vbNewLine MsgBox strDates(iCount) Next iCount End Function __________________ icq: 2721653

10-21-2003, 07:19 PM	#1
AssFairy Confirmed User Join Date: Jun 2003 Location: AssTown Posts: 674	I need help with VB I want to fill an array with data but there must be an easier way than this. Dim MyArray$(7) MyArray$(1) = "Monday" MyArray$(2) = "Tuesday" MyArray$(3) = "Wednesday" What I really want is something like this. Dim MyArray$(7) Data "Monday","Tuesday","Wednesday" ..... then use a loop to add the data to the array. I could store the data in a text file and read it in like this Open "data.txt" For Input As #1 Do x = x + 1 Input #1, a$ MyArray$(x) = a$ Loop Until EOF(1) Close but I want my data string to be stored within the program. __________________ I sale lube

10-21-2003, 07:29 PM	#3
MrSpeed Confirmed User Join Date: May 2003 Posts: 158	There aren't too many different ways. <% Dim mArray(11) mArray=Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December") %>