split field function 1

[mns117]

Here's the problem, thanks in advanced...

I want have a function that is sending a string to another function. basically I want to take a string, and split it...

Here's what it looks like...

11111;22222;33333

of course the length of the string between the semi colon can vary. Also I am not always sure the delimiter is going to be a semi colon. I actually get the type of delimiter from another table so that will come in to my function as a variable...

the function looks like this:

Function Actually_Parse(pFld, pdlm)
Dim val_rtnFld As String

val_rtnFld = (Left(pFld, InStr(1, pFld, pdlm) - 1))

'Actually_Parse = val_rtnFld

End Function

any ideas??

 

[SkipVought]

Hi,

How about the Split function?

dim a, i
a = split("11111;22222;33333",";")
for i = lbound(a, 1), to ubound(a, 1)
  msgbox a(i)
next

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[mns117]

Skip, thanks, but I get a syntax error with that code...

Is there an issue with me saying

split (pfld,dfld)

in this case pfld is a variable which contains the string that needs to be parsed, and dfld is the delimiter.

 

[PHV]

Try something like this:
Function Actually_Parse(pFld, pdlm)
Dim val_rtnFld As String, myArr
myArr = Split(pFld, pdlm)
val_rtnFld = myArr(0)
'Actually_Parse = val_rtnFld
End Function

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[mns117]

PHV...THANKS!

 

[mych]

Is the Split fuction available in Access97? I don't see it?

 

[SkipVought]

Not in '97 :-(

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[MichaelRed]

search these fora for basSplit.





MichaelRed
mlred@verizon.net