From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: ***
X-Spam-Status: No, score=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 110df7,1e07e268dbb2da35
X-Google-Attributes: gid110df7,public
X-Google-Thread: 10cc59,1e07e268dbb2da35
X-Google-Attributes: gid10cc59,public
X-Google-Thread: 109fba,1e07e268dbb2da35
X-Google-Attributes: gid109fba,public
X-Google-Thread: 10d15b,1e07e268dbb2da35
X-Google-Attributes: gid10d15b,public
X-Google-Thread: 1164ba,1e07e268dbb2da35
X-Google-Attributes: gid1164ba,public
X-Google-Thread: 103376,1e07e268dbb2da35
X-Google-Attributes: gid103376,public
From: "Marius K." <x-mariuk@access.ch>
Subject: Re: Hello
Date: 1997/12/11
Message-ID: <01bd0647$cc3d0e40$4b4470c3@highlander>#1/1
X-Deja-AN: 297245497
References: <880696575.22694@dejanews.com> <348C01C8.2598@regiolicht.nl>
Organization: Internet Access AG, Zuerich, Switzerland
Newsgroups: 
 comp.lang.c++,comp.lang.ada,comp.lang.asm,comp.lang.cobol,comp.lang.pascal,comp.lang.basic
Date: 1997-12-11T00:00:00+00:00
List-Id: <comp.lang.ada>


John!

> I've a small ?:
> "How do I get a single line out of a variant in VB 5.0?)
> 
> F.E.:
> Br = Chr(13) + Chr(10)
> test= "Hello" & Br & "How are you today?" & br & "Fine, Thank you"
> 
> How do I get the 2nd, 3rd or 1st line out of 'test' ?
> 

dim i
i=1
while mid(test,i,1)<> Br
  line1=line1+mid(test,i,1)
  i=i+1
wend

I just wrote this out of my mind and I haven't tested it, but you should
see how it's supposed to work!

Greetings
Marius
<mariusk@access.ch>