RE: FN-FORUM vb6 array question

date posted 28th January 2003 18:22

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]