CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Sat, 16 Aug 2025 17:00:19 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080101104310 location: https://web.archive.org/web/20080101104310/https://www.daniweb.com/code/snippet463.html server-timing: captures_list;dur=0.940254, exclusion.robots;dur=0.035448, exclusion.robots.policy;dur=0.015937, esindex;dur=0.016501, cdx.remote;dur=10.781407, LoadShardBlock;dur=283.647142, PetaboxLoader3.datanode;dur=64.973852, PetaboxLoader3.resolve;dur=152.856959 x-app-server: wwwb-app218 x-ts: 302 x-tr: 327 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=1 set-cookie: wb-p-SERVER=wwwb-app218; path=/ x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() HTTP/2 200 server: nginx date: Sat, 16 Aug 2025 17:00:20 GMT content-type: text/html; charset=UTF-8 x-archive-orig-date: Tue, 01 Jan 2008 10:43:09 GMT x-archive-orig-server: Apache/2.2 x-archive-orig-x-powered-by: PHP/5.1.6 x-archive-orig-set-cookie: bblastactivity=0; expires=Wed, 31-Dec-2008 10:43:09 GMT; path=/; domain=.daniweb.com x-archive-orig-cache-control: private x-archive-orig-pragma: private x-archive-orig-vary: Accept-Encoding,User-Agent x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Tue, 01 Jan 2008 10:43:10 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Thu, 12 Jul 2007 18:11:57 GMT", ; rel="prev memento"; datetime="Sat, 01 Dec 2007 14:58:46 GMT", ; rel="memento"; datetime="Tue, 01 Jan 2008 10:43:10 GMT", ; rel="next memento"; datetime="Fri, 29 Aug 2008 22:26:20 GMT", ; rel="last memento"; datetime="Wed, 22 Nov 2023 23:53:46 GMT" content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org x-archive-src: 51_1_20080101095714_crawl105-c/51_1_20080101104204_crawl104.arc.gz server-timing: captures_list;dur=0.749463, exclusion.robots;dur=0.027983, exclusion.robots.policy;dur=0.013007, esindex;dur=0.014495, cdx.remote;dur=13.647383, LoadShardBlock;dur=79.626879, PetaboxLoader3.datanode;dur=156.139566, load_resource;dur=216.412064, PetaboxLoader3.resolve;dur=117.357757 x-app-server: wwwb-app218 x-ts: 200 x-tr: 395 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() content-encoding: gzip String Pop - visualbasic

String Pop

What is DaniWeb IT Discussion Community?

You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 256,156 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 1,540 IT professionals currently interacting right now! If you are in the IT industry or are just a technology enthusiast, you might find just what you're looking for in DaniWeb. Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Feb 22nd, 2006

Views: 2,753

Comatose

The Relative of push is pop. Pop removes the last item in an Array, and returns the value into a single (scalar) variable. Again, due To VB Limitations, this one works on strings.

Show Printable Version

Advertisements

visualbasic Syntax

Toggle Plain Text

Public Function spop(ArrayName() As String) as string
' /* Make Sure the Variable Passed Is An array */
If IsArray(ArrayName) = False Then spop = "not array"
 
' /* Get The Last Value In The Array */
RetVal = ArrayName(UBound(ArrayName()))
 
' /* Set The Last Element Of The Array To Nothing */
ArrayName(UBound(ArrayName())) = vbNullString
 
' /* Check If We Are Working With The Only Element In The Array */
If UBound(ArrayName()) = 0 Then
    ' /* If So, Remove The Array */
    Erase ArrayName()
Else
    ' /* Reset the size of the array to 1 less than it was */
    ReDim Preserve ArrayName(UBound(ArrayName()) - 1)
End If
 
' /* return The Value Of The last element of the array before we removed it */
spop = RetVal
 
End Function