🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.basic.visual.misc
Article #336

:::::::: Dynamic Array Dillema ::::::::

#336
From: sou|burn
Date: Sun, 07 Oct 2001 01:00
27 lines
2014 bytes
Hi there

I'm having trouble with the following code

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::
Public EXP()
EXP_Max as integer
v2 is a integer (always stays smaller than EXP_Max)
sTag is a string
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::
Select Case Left$(sTag, 3)
    Case "ENG"
        ReDim Preserve EXP(EXP_Max, 4) As String
        EXP_Max = EXP_Max + 1
        EX(v2, 0) = sTag
End Select
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::

I get an "subscript out of range" error on the ReDim line as soon as EXP_Max
= 2, meaning there are values in the array that needs 2 b "preserved"

any help would be very much appreciated

sou|burn
Technical Details
Message-ID: <9po9gh$qjs$1@ctb-nnrp1.saix.net>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.cwix.com!ctb-nntp1.saix.net!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 108062,27dc3c52f32509a3,start
X-Google-Attributes: gid108062,public
X-Google-Thread: 110e3b,27dc3c52f32509a3,start
X-Google-Attributes: gid110e3b,public
X-Google-ArrivalTime: 2001-10-06 18:01:35 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.cwix.com!ctb-nntp1.saix.net!not-for-mail
From: "sou|burn" <ralfvb@msn.com>
Newsgroups: comp.lang.basic.visual.misc,cz.comp.lang.basic.visual
Subject: :::::::: Dynamic Array Dillema ::::::::
Date: Sun, 7 Oct 2001 03:00:16 +0200
Organization: The South African Internet Exchange
Lines: 29
Message-ID: <9po9gh$qjs$1@ctb-nnrp1.saix.net>
NNTP-Posting-Host: ppr53-03-p48.nt.saix.net
X-Trace: ctb-nnrp1.saix.net 1002416465 27260 155.239.196.48 (7 Oct 2001 01:01:05 GMT)
X-Complaints-To: abuse@saix.net
NNTP-Posting-Date: 7 Oct 2001 01:01:05 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000