[AccessD] Strip out text

How about something like this where underscore is the delimiter:
Function StringToArray_TSB(strIn As String, arrIn() As String, chrDelimit As
String) As Long
  ' Comments  : Converts a delimited string to an array of words
  ' Parameters: strIn - string to convert
  '             arrIn - array of strings (1-based)
  '             chrDelimit - character used to delimit words in strIn
  ' Returns   : number of words
  '
  Dim intCounter As Integer
  Dim intWordCount As Integer

  intWordCount = CountDelimitedWords_TSB(strIn, chrDelimit)
  ReDim arrIn(1 To intWordCount)

  For intCounter = 1 To intWordCount
    arrIn(intCounter) = GetDelimitedWord_TSB(strIn, intCounter, chrDelimit)
  Next intCounter

  StringToArray_TSB = intWordCount

End Function

Jim Hale

-----Original Message-----
From: Mark A Matte [mailto:markamatte at hotmail.com]
Sent: Tuesday, April 04, 2006 11:10 AM
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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.