Date sent: Fri, 03 Dec 1999 14:05:32 +0100
From: Federico Antolín
Subject: SplitStringIntoWords
You have
a function to split strings in words on your list, there is an
improvement (new from scratch coded), the older does not work proprly,
and the new one have
the delimiter as
a variable, not "," forced.
There is the code.
Function SplitString%(TheString$, Delim$, DynArray$())
dim
p%, t%
dim
sTempString$, tmp$
t% = 0
' Remove trailing blanks
sTempString$ = Trim(TheString$)
' If the last
character is the delimiter, remove it
If Right(sTempString$, 1) = Delim$ Then sTempString$ = Left(sTempString$, Len(sTempString$) - 1)
' Add a delimiter to end
sTempString$ = sTempString$ & Delim$
Do
p% = InStr(sTempString$, Delim$)
If p% = 0 Then exit
Do
ReDim Preserve DynArray$(t%)
tmp$ = Left(sTempString$, p% - 1)
sTempString$ = Right$(sTempString$, Len(sTempString$) - p%)
DynArray$(t%) = Trim(tmp$)
t% = t% + 1
Loop
' Returns the last
availabe index
SplitString% = UBound(DynArray$)
End Function
------------------------------
** Calling procedure
example:
' text$ is the string to be splitted
' n= number of words found - 1
' delimiter is ","
Dim Words$()
Text$ = Trim(Text$)
n = SplitString(Text$, ",", Words$())
-------
Federico Antolin Baigorri
fantolin@arrakis.es
(Spain)
Return