Conversion Problem

[John]

Hi

This .net is driving me crazy!!

In VB6 I had a type which contained a couple of multi-dimentional arrays
which i used to create and read records:

Type AAA
:
Array1(10,10,2) as Integer
Array2(20,20,4) as Integer
:
End Type

I'm trying to get vb8 set up so that i can use the same files and use the
fileopen method to randomly access the file data etc

vb8 won't let me use <vbfixedarraywi th more than 2 dementions so i cannot
declare it correctly in the structure declaration.

What i have done is:

Structure z
:
dim Array1(,,) as short
dim Array2(,,) as short
:
End Structure
Dim x as z
I have then tried to Redim in an initialation so:
redim x.array1(10,10, 2)
redim x.array2(20,20, 4)

But when i go to get the record length Len(x) it is totally wrong

Is there any way out of this mess so i can use my original record structures
with openfile and random access? Why does vbfixedarray only allow 2
dementions?????

Cheers
John

[Nathan Sokalski]

It sounds like you are still adjusting to VB.NET. Have you looked at the
documentation for the Len method? What you want to use is the GetLength (or
the GetLongLength) method of the Array class. For example:

x.GetLength(0)
x.GetLength(1)
x.GetLength(2)

would return the values:

10
10
2

Hopefully this helps.
--
Nathan Sokalski
nj********@hotm ail.com
http://www.nathansokalski.com/

"John" <no************ ***@nothing.com wrote in message
news:uh******** ******@TK2MSFTN GP05.phx.gbl...

Hi

This .net is driving me crazy!!

In VB6 I had a type which contained a couple of multi-dimentional arrays
which i used to create and read records:

Type AAA
:
Array1(10,10,2) as Integer
Array2(20,20,4) as Integer
:
End Type

I'm trying to get vb8 set up so that i can use the same files and use the
fileopen method to randomly access the file data etc

vb8 won't let me use <vbfixedarraywi th more than 2 dementions so i
cannot declare it correctly in the structure declaration.

What i have done is:

Structure z
:
dim Array1(,,) as short
dim Array2(,,) as short
:
End Structure
Dim x as z
I have then tried to Redim in an initialation so:
redim x.array1(10,10, 2)
redim x.array2(20,20, 4)

But when i go to get the record length Len(x) it is totally wrong

Is there any way out of this mess so i can use my original record
structures with openfile and random access? Why does vbfixedarray only
allow 2 dementions?????

Cheers
John

[John]

i am totally confused by this reply, in your example it looks like the total
length is 22? but an array of (10,10,2) would be 400 or more depending on
the type of data. then there is all the other elements of the structure as
well

how exactly does your reply work when evaluating the record length to put in
the FileOpen statement?

sorry if i seem a bit dim :-) but i really don't understand your reply at
all
"Nathan Sokalski" <nj********@hot mail.comwrote in message
news:%2******** ********@TK2MSF TNGP02.phx.gbl. ..

It sounds like you are still adjusting to VB.NET. Have you looked at the
documentation for the Len method? What you want to use is the GetLength
(or the GetLongLength) method of the Array class. For example:

x.GetLength(0)
x.GetLength(1)
x.GetLength(2)

would return the values:

10
10
2

Hopefully this helps.
--
Nathan Sokalski
nj********@hotm ail.com
http://www.nathansokalski.com/

"John" <no************ ***@nothing.com wrote in message
news:uh******** ******@TK2MSFTN GP05.phx.gbl...

>Hi

This .net is driving me crazy!!

In VB6 I had a type which contained a couple of multi-dimentional arrays
which i used to create and read records:

Type AAA
:
Array1(10,10,2 ) as Integer
Array2(20,20,4 ) as Integer
:
End Type

I'm trying to get vb8 set up so that i can use the same files and use the
fileopen method to randomly access the file data etc

vb8 won't let me use <vbfixedarraywi th more than 2 dementions so i
cannot declare it correctly in the structure declaration.

What i have done is:

Structure z
:
dim Array1(,,) as short
dim Array2(,,) as short
:
End Structure
Dim x as z
I have then tried to Redim in an initialation so:
redim x.array1(10,10, 2)
redim x.array2(20,20, 4)

But when i go to get the record length Len(x) it is totally wrong

Is there any way out of this mess so i can use my original record
structures with openfile and random access? Why does vbfixedarray only
allow 2 dementions?????

Cheers
John

[Patrice]

An array is basically a pointer so the Len is not correct.

A trick could be to use <VBFixedArray(1 0 * 10 * 4)x() As Short to read
your data and possibly to copy in the final array (it might be needed anyway
as I'm not sure if .NET arrays and VB arrays are storing data using the same
ordering).

Another option would be to compute the record length
(Runtime.Intero pServices.Marhs l.SizeOf(GetTyp e(Short))*x.Len gth)

Another option could be to read each member, you can add a method to your
structure to do add (youll need just the overall size, is this a constant in
your case ?) and AFAIK datta are read based on the length of the receiving
object (depends also how is was done in VB I suppose).

Your best bet would be likely to create a small test case using VB and
reading use VB.NET wiht easy checkable values to test and diagnose possible
read/write problems more easily...

--
Patrice

"John" <no************ ***@nothing.com a écrit dans le message de groupe de
discussion : uh************* *@TK2MSFTNGP05. phx.gbl...

Hi

This .net is driving me crazy!!

In VB6 I had a type which contained a couple of multi-dimentional arrays
which i used to create and read records:

Type AAA
:
Array1(10,10,2) as Integer
Array2(20,20,4) as Integer
:
End Type

I'm trying to get vb8 set up so that i can use the same files and use the
fileopen method to randomly access the file data etc

vb8 won't let me use <vbfixedarraywi th more than 2 dementions so i
cannot declare it correctly in the structure declaration.

What i have done is:

Structure z
:
dim Array1(,,) as short
dim Array2(,,) as short
:
End Structure
Dim x as z
I have then tried to Redim in an initialation so:
redim x.array1(10,10, 2)
redim x.array2(20,20, 4)

But when i go to get the record length Len(x) it is totally wrong

Is there any way out of this mess so i can use my original record
structures with openfile and random access? Why does vbfixedarray only
allow 2 dementions?????

Cheers
John

[John]

thanks Patrice for that - i considered doing a fudge but the values are out
so there seems to be an overhead in the array structure differences in the
vb6 and vb8 - the 2 values do not come out the same anyway- they are a few
hundred bytes different so the chances of reading and writing correctly into
the old records is zero, and i don't fancy spending the rest of my life just
trying to fudge something that works.

i tried Runtime.Interop Services.Marsha l.SizeOf(GetTyp e(Short))*x.Len gth but
it just gives me an error saying length is not a member of x so i don't know
whether this would work or not!!

god i really hate this vb.net stuff - why is everything such a pain? -
nothing seems logical (for example, why have a vbfixedarray statement that
is limited to 2 dimentions?) and why they call it vb god knows, i've used vb
since the 70's without any problem everything i try to do in this turns out
to be a nightmare - perhaps i'm just too old and fixed in my ways
"Patrice" <http://www.chez.com/scribe/wrote in message
news:51******** *************** ***********@mic rosoft.com...

An array is basically a pointer so the Len is not correct.

A trick could be to use <VBFixedArray(1 0 * 10 * 4)x() As Short to read
your data and possibly to copy in the final array (it might be needed
anyway as I'm not sure if .NET arrays and VB arrays are storing data using
the same ordering).

Another option would be to compute the record length
(Runtime.Intero pServices.Marhs l.SizeOf(GetTyp e(Short))*x.Len gth)

Another option could be to read each member, you can add a method to your
structure to do add (youll need just the overall size, is this a constant
in your case ?) and AFAIK datta are read based on the length of the
receiving object (depends also how is was done in VB I suppose).

Your best bet would be likely to create a small test case using VB and
reading use VB.NET wiht easy checkable values to test and diagnose
possible read/write problems more easily...

--
Patrice

"John" <no************ ***@nothing.com a écrit dans le message de groupe
de discussion : uh************* *@TK2MSFTNGP05. phx.gbl...

>Hi

This .net is driving me crazy!!

In VB6 I had a type which contained a couple of multi-dimentional arrays
which i used to create and read records:

Type AAA
:
Array1(10,10,2 ) as Integer
Array2(20,20,4 ) as Integer
:
End Type

I'm trying to get vb8 set up so that i can use the same files and use the
fileopen method to randomly access the file data etc

vb8 won't let me use <vbfixedarraywi th more than 2 dementions so i
cannot declare it correctly in the structure declaration.

What i have done is:

Structure z
:
dim Array1(,,) as short
dim Array2(,,) as short
:
End Structure
Dim x as z
I have then tried to Redim in an initialation so:
redim x.array1(10,10, 2)
redim x.array2(20,20, 4)

But when i go to get the record length Len(x) it is totally wrong

Is there any way out of this mess so i can use my original record
structures with openfile and random access? Why does vbfixedarray only
allow 2 dementions?????

Cheers
John

[John]

Ok i've got the Runtime.Interop Services.... bit to work

I've done it on all the elements of the structure and added them together
but i'm 4 bytes out?

I suppose i could just hard code the record length - but it seems a very
poor way of doing things.
"John" <no************ ***@nothing.com wrote in message
news:e%******** ********@TK2MSF TNGP03.phx.gbl. ..

thanks Patrice for that - i considered doing a fudge but the values are
out so there seems to be an overhead in the array structure differences in
the vb6 and vb8 - the 2 values do not come out the same anyway- they are a
few hundred bytes different so the chances of reading and writing
correctly into the old records is zero, and i don't fancy spending the
rest of my life just trying to fudge something that works.

i tried Runtime.Interop Services.Marsha l.SizeOf(GetTyp e(Short))*x.Len gth
but it just gives me an error saying length is not a member of x so i
don't know whether this would work or not!!

god i really hate this vb.net stuff - why is everything such a pain? -
nothing seems logical (for example, why have a vbfixedarray statement that
is limited to 2 dimentions?) and why they call it vb god knows, i've used
vb since the 70's without any problem everything i try to do in this turns
out to be a nightmare - perhaps i'm just too old and fixed in my ways
"Patrice" <http://www.chez.com/scribe/wrote in message
news:51******** *************** ***********@mic rosoft.com...

>An array is basically a pointer so the Len is not correct.

A trick could be to use <VBFixedArray(1 0 * 10 * 4)x() As Short to read
your data and possibly to copy in the final array (it might be needed
anyway as I'm not sure if .NET arrays and VB arrays are storing data
using the same ordering).

Another option would be to compute the record length
(Runtime.Inter opServices.Marh sl.SizeOf(GetTy pe(Short))*x.Le ngth)

Another option could be to read each member, you can add a method to your
structure to do add (youll need just the overall size, is this a constant
in your case ?) and AFAIK datta are read based on the length of the
receiving object (depends also how is was done in VB I suppose).

Your best bet would be likely to create a small test case using VB and
reading use VB.NET wiht easy checkable values to test and diagnose
possible read/write problems more easily...

--
Patrice

"John" <no************ ***@nothing.com a écrit dans le message de groupe
de discussion : uh************* *@TK2MSFTNGP05. phx.gbl...

>>Hi

This .net is driving me crazy!!

In VB6 I had a type which contained a couple of multi-dimentional arrays
which i used to create and read records:

Type AAA
:
Array1(10,10, 2) as Integer
Array2(20,20, 4) as Integer
:
End Type

I'm trying to get vb8 set up so that i can use the same files and use
the fileopen method to randomly access the file data etc

vb8 won't let me use <vbfixedarraywi th more than 2 dementions so i
cannot declare it correctly in the structure declaration.

What i have done is:

Structure z
:
dim Array1(,,) as short
dim Array2(,,) as short
:
End Structure
Dim x as z
I have then tried to Redim in an initialation so:
redim x.array1(10,10, 2)
redim x.array2(20,20, 4)

But when i go to get the record length Len(x) it is totally wrong

Is there any way out of this mess so i can use my original record
structures with openfile and random access? Why does vbfixedarray only
allow 2 dementions?????

Cheers
John

[John]

OK forget it - there is a more serious problem with this, it seems that vb8
does not support arrays declared like arr1(10,10,10) because when you try to
do the Fileput it just gives an error saying only 2 dimentional arrays are
supported - what a load of tat!!!

i think i'll go back to vb6 that was a true RAD piece of kit, my only other
option it seems is to scrap all my hundreds of records and then design the
structure in vb8 so that it is something like

dim arr1(100,2)
dim arr2(100,2)
:
:
dim arr100(100,2)
just to get the same thing as dim arr1(100,100,2)

"John" <no************ ***@nothing.com wrote in message
news:%2******** ********@TK2MSF TNGP06.phx.gbl. ..

Ok i've got the Runtime.Interop Services.... bit to work

I've done it on all the elements of the structure and added them together
but i'm 4 bytes out?

I suppose i could just hard code the record length - but it seems a very
poor way of doing things.
"John" <no************ ***@nothing.com wrote in message
news:e%******** ********@TK2MSF TNGP03.phx.gbl. ..

>thanks Patrice for that - i considered doing a fudge but the values are
out so there seems to be an overhead in the array structure differences
in the vb6 and vb8 - the 2 values do not come out the same anyway- they
are a few hundred bytes different so the chances of reading and writing
correctly into the old records is zero, and i don't fancy spending the
rest of my life just trying to fudge something that works.

i tried Runtime.Interop Services.Marsha l.SizeOf(GetTyp e(Short))*x.Len gth
but it just gives me an error saying length is not a member of x so i
don't know whether this would work or not!!

god i really hate this vb.net stuff - why is everything such a pain? -
nothing seems logical (for example, why have a vbfixedarray statement
that is limited to 2 dimentions?) and why they call it vb god knows, i've
used vb since the 70's without any problem everything i try to do in this
turns out to be a nightmare - perhaps i'm just too old and fixed in my
ways
"Patrice" <http://www.chez.com/scribe/wrote in message
news:51******* *************** ************@mi crosoft.com...

>>An array is basically a pointer so the Len is not correct.

A trick could be to use <VBFixedArray(1 0 * 10 * 4)x() As Short to read
your data and possibly to copy in the final array (it might be needed
anyway as I'm not sure if .NET arrays and VB arrays are storing data
using the same ordering).

Another option would be to compute the record length
(Runtime.Inte ropServices.Mar hsl.SizeOf(GetT ype(Short))*x.L ength)

Another option could be to read each member, you can add a method to
your structure to do add (youll need just the overall size, is this a
constant in your case ?) and AFAIK datta are read based on the length of
the receiving object (depends also how is was done in VB I suppose).

Your best bet would be likely to create a small test case using VB and
reading use VB.NET wiht easy checkable values to test and diagnose
possible read/write problems more easily...

--
Patrice

"John" <no************ ***@nothing.com a écrit dans le message de groupe
de discussion : uh************* *@TK2MSFTNGP05. phx.gbl...
Hi

This .net is driving me crazy!!

In VB6 I had a type which contained a couple of multi-dimentional
arrays which i used to create and read records:

Type AAA
:
Array1(10,10 ,2) as Integer
Array2(20,20 ,4) as Integer
:
End Type

I'm trying to get vb8 set up so that i can use the same files and use
the fileopen method to randomly access the file data etc

vb8 won't let me use <vbfixedarraywi th more than 2 dementions so i
cannot declare it correctly in the structure declaration.

What i have done is:

Structure z
:
dim Array1(,,) as short
dim Array2(,,) as short
:
End Structure
Dim x as z
I have then tried to Redim in an initialation so:
redim x.array1(10,10, 2)
redim x.array2(20,20, 4)

But when i go to get the record length Len(x) it is totally wrong

Is there any way out of this mess so i can use my original record
structures with openfile and random access? Why does vbfixedarray only
allow 2 dementions?????

Cheers
John

[Ken Halter]

"John" <no************ ***@nothing.com wrote in message
news:e%******** ********@TK2MSF TNGP03.phx.gbl. ..

>
god i really hate this vb.net stuff - why is everything such a pain? -
nothing seems logical (for example, why have a vbfixedarray statement that
is limited to 2 dimentions?) and why they call it vb god knows, i've used
vb since the 70's without any problem everything i try to do in this turns
out to be a nightmare - perhaps i'm just too old and fixed in my ways

It's not you... the dotNet "VB Team" hasn't a clue what VB is. They're all C
programmers and re-wrote VB basically from the ground up, when the actual VB
team bailed out. I'd almost bet the current VB team has never written an app
in VB6, other than quick hacks to try something out.

just to get the same thing as dim arr1(100,100,2)

.....and, don't forget... those dimensions are 0 based, so that's 101 * 101 *
3 elements... but that's all I have <gI use VB6 100% of the time at work
and home, so I actually get stuff done..

Just passin' thru

[Tom Shelton]

On 2008-07-10, John <no************ ***@nothing.com wrote:

Hi

This .net is driving me crazy!!

In VB6 I had a type which contained a couple of multi-dimentional arrays
which i used to create and read records:

Type AAA
:
Array1(10,10,2) as Integer
Array2(20,20,4) as Integer
:
End Type

I'm trying to get vb8 set up so that i can use the same files and use the
fileopen method to randomly access the file data etc

vb8 won't let me use <vbfixedarraywi th more than 2 dementions so i cannot
declare it correctly in the structure declaration.

What i have done is:

Structure z
:
dim Array1(,,) as short
dim Array2(,,) as short
:
End Structure
Dim x as z
I have then tried to Redim in an initialation so:
redim x.array1(10,10, 2)
redim x.array2(20,20, 4)

But when i go to get the record length Len(x) it is totally wrong

Is there any way out of this mess so i can use my original record structures
with openfile and random access? Why does vbfixedarray only allow 2
dementions?????

Cheers
John

You can alawys use COM interop and put your file access in a VB6 dll :) There
are a lot of differences between VB6's array implementation (SafeArray) and
..NET's implementation - and so, there are probably going to be some differences
that might be hard to account for when reading binary files created in VB6...

--
Tom Shelton

[John]

glad to know its not just me, i would not even have considered using vb8 but
i do like the new updated appearance and i was worried that eventually vb6
would not work with microsofts operating system updates.

practically everything i try and do that took a few seconds in vb6 takes
hours in this to sort out and then like this example i have spent nearly the
whole day trying to achieve something that cannot be done simply (the best
solution being create a vb6 dll to handle it (says it all really doesn't
it). I have many more examples, no contol arrays so you have to build them
at run time and spend hours trying to get the layout correct, - printing -
you cannot easily specify a new page without going into a recursive print
handler which takes more time trying to handle your printing, etc etc all
simple stuff but a nightmare in this product.

"Ken Halter" <Ken_Halter@Use _Sparingly_Hotm ail.comwrote in message
news:uy******** ******@TK2MSFTN GP04.phx.gbl...

"John" <no************ ***@nothing.com wrote in message
news:e%******** ********@TK2MSF TNGP03.phx.gbl. ..

>>
god i really hate this vb.net stuff - why is everything such a pain? -
nothing seems logical (for example, why have a vbfixedarray statement
that is limited to 2 dimentions?) and why they call it vb god knows, i've
used vb since the 70's without any problem everything i try to do in this
turns out to be a nightmare - perhaps i'm just too old and fixed in my
ways

It's not you... the dotNet "VB Team" hasn't a clue what VB is. They're all
C programmers and re-wrote VB basically from the ground up, when the
actual VB team bailed out. I'd almost bet the current VB team has never
written an app in VB6, other than quick hacks to try something out.

>just to get the same thing as dim arr1(100,100,2)

....and, don't forget... those dimensions are 0 based, so that's 101 * 101
* 3 elements... but that's all I have <gI use VB6 100% of the time at
work and home, so I actually get stuff done..

Just passin' thru