[AccessD] Strip out text

Jim,

Thanks for the example...I am using A97...and it does not recognize "Split"  
Am I missing a reference...or need a later version of Access?

Thanks,

Mark A. Matte


>From: "Jim DeMarco" <Jdemarco at hudsonhealthplan.org>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem solving" 
><accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Strip out text
>Date: Tue, 4 Apr 2006 12:57:35 -0400
>
>Felt guilty.  Here's a sample using Split. You can work out getting each
>element into your table via recordset.
>
>Sub SplitString()
>Dim str As String
>Dim arrStr
>Dim i As Integer
>
>     str = "AB_55_tt_1g"
>     arrStr = Split(str, "_")
>      For i = 0 To UBound(arrStr)
>         Debug.Print arrStr(i)
>      Next i
>End Sub
>
>Jim
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
>Sent: Tuesday, April 04, 2006 12:37 PM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] Strip out text
>
>Why not use the Split function (splitting on the underscore) which will
>break your string up into an array, then loop through the array to add
>new records to your table (sorry for no example).
>
>HTH,
>
>Jim DeMarco
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte
>Sent: Tuesday, April 04, 2006 12:10 PM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] Strip out text
>
>Hello All,
>
>I have just recieved a new db to link to...and I want to create a
>dictionary for all of the wonderful acronym names used.  I have a list
>of field names in each table.  The format is the same across the board:
>BB_CREG_TU  or TTT_PROG_GYU_FRWTG (format= some letters...an
>undersore...more letters...and so on)
>
>The can be 1 - 4 underscores in each name.  I would like to take this
>list of field names and strip out each part and create a new list.  For
>the example above I would now have 7 records...starting with BB and
>ending with FRWTG.  The underscore is always the seperator.  Any
>suggestions/direction would be greatly appreciated.
>
>Thanks,
>
>Mark A. Matte
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>
>
>
>
>************************************************************************
>***********
>"This electronic message is intended to be for the use only of the named
>recipient, and may contain information from Hudson Health Plan (HHP)
>that is confidential or privileged.  If you are not the intended
>recipient, you are hereby notified that any disclosure, copying,
>distribution or use of the contents of this message is strictly
>prohibited.  If you have received this message in error or are not the
>named recipient, please notify us immediately, either by contacting the
>sender at the electronic mail address noted above or calling HHP at
>(914) 631-1611. If you are not the intended recipient, please do not
>forward this email to anyone, and delete and destroy all copies of this
>message.  Thank You".
>************************************************************************
>***********
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>
>
>
>
>***********************************************************************************
>"This electronic message is intended to be for the use only of the named 
>recipient, and may contain information from Hudson Health Plan (HHP) that 
>is confidential or privileged.  If you are not the intended recipient, you 
>are hereby notified that any disclosure, copying, distribution or use of 
>the contents of this message is strictly prohibited.  If you have received 
>this message in error or are not the named recipient, please notify us 
>immediately, either by contacting the sender at the electronic mail address 
>noted above or calling HHP at (914) 631-1611. If you are not the intended 
>recipient, please do not forward this email to anyone, and delete and 
>destroy all copies of this message.  Thank You".
>***********************************************************************************
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com