RE: FN-FORUM vb6 array question

date posted 28th January 2003 19:04

thanks, but was looking for a way without
looping really (for speed), memcopyish maybe.

Ant.

ps you'd only need to loop around the second array
i.e. redim preserve(ubound(a1)+ubound(a2) a1

>-----Original Message-----
>From: [EMAIL REMOVED]
[EMAIL REMOVED] Behalf Of Dave Polhill
>Sent: 28 January 2003 18:25
>To: [EMAIL REMOVED]
>Subject: RE: FN-FORUM vb6 array question
>
>
>Hi,
>
>This probably isn't the neatest way of doing this but it works:
>
>---------------------------------------------------------
>Dim array1(1), array2(1), arraysum() As String
>Dim n As Integer
>Dim cVal As Variant
>
>array1(0) = "1st string"
>array1(1) = "2nd string"
>array2(0) = "3rd string"
>array2(1) = "4th string"
>
>ReDim arraysum(UBound(array1) + UBound(array2) + 1)
>
>For n = 0 To UBound(array1)
> arraysum(n) = array1(n)
>Next
>For n = 0 To UBound(array2)
> arraysum(n + UBound(array1) + 1) = array2(n)
>Next
>
>For Each cVal In arraysum
> Debug.Print cVal
>Next
>---------------------------------------------------------
>
>Dave
>
>PS - Course, it's a lot easier in VB.NET ;-)
>
>
>-----Original Message-----
>From: [EMAIL REMOVED]
[EMAIL REMOVED] Behalf Of Anthony Johnston
>. Antix
>Sent: 28 January 2003 17:57
>To: Freelancers
>Subject: FN-FORUM vb6 array question
>
>
>Any one know how to append two string arrays into one?
>
>ps. c++ and c# programmers can answer if they know too
>
>___________________________________________________________
>Anthony Johnston
> [EMAIL REMOVED]
>Antix Software Limited
> http://www.antix.co.uk
>
>========
>Freelancers and Freelance Jobs: http://www.freelancers.net
>
>Advertise with Freelancers.net http://www.freelancers.net/advert.php
>
>To unsubscribe please email:
[EMAIL REMOVED]
>
>If you have difficulties unsubscribing please email:
[EMAIL REMOVED]
>
>========
>Freelancers and Freelance Jobs: http://www.freelancers.net
>
>Advertise with Freelancers.net http://www.freelancers.net/advert.php
>
>To unsubscribe please email:
[EMAIL REMOVED]
>
>If you have difficulties unsubscribing please email: [EMAIL REMOVED]